vb基础

2010-04-20 09:55:42 314 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.NET 基础入门 VB.NET 基础入门之前对VB 和C#语言有相应的了解，特别是VB，进行了很长一段时间的的深入的学习，现在开始VB.NET 基础学习，学习进度不快，很多的东西要虚心向身边的高手学习、交流。VB.NET开始有一段时间了，自己阶段是做一个VB.NET 的宏观学习把控！一、什么是VB.NET 阅读详情

Private Sub Command1_Click()
Dim a(1 To 7)
For i = 1 To 7
a(i) = i: Print a(i)
Next i
Print
For i = 1 To 7
t = a(7)
For ？？？？
a(j + 1) = a(j)
Next j
？？？？
For j = i To 7
Print a(j)
Next j
？？？？
Next i

End Sub

目的是打印出
1234567
7123456
6712345
5671234
4567123
3456712
2345671
1234567

...全文

VB与VB.NET的区别宏观 Visual Basic 是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。基于对象。拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 Visual Basic.NET 是基于微软.NET Framew 阅读详情

hanchunchun

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

神马被哪个妞占用了呢 2010-04-25

打赏
举报

7楼2简单。我喜欢

wq382793896 2010-04-24

打赏
举报

看看··

游子 2010-04-24

打赏
举报

我路过。。。。一说算法我头就疼。。

liangjingke 2010-04-23

打赏
举报

支持5楼顶11楼好像有点乱@!@

myy168 2010-04-23

打赏
举报

Option Explicit
Dim i As Integer
Dim j As Integer
Dim t As Integer
Private Sub Command1_Click()
Dim a(1 To 7)
For i = 1 To 7
a(i) = i
Print a(i);
Next i
Print
For i = 1 To 7
t = a(7)
For j = 6 To 1 Step -1
a(j + 1) = a(j)
Next j
a(1) = t
For j = 1 To 7
Print a(j);
Next j
Print
Next
End Sub

myy168 2010-04-23

打赏
举报

andylauren 2010-04-22

打赏
举报

这个程序运行的结果是什么，不对吗，要什么结果？

gooore 2010-04-22

打赏
举报

貌似好解决啊。用数组比较麻烦。



Private Sub Command1_Click()



    Dim i As Integer, j As Integer, k As Integer

    

    For i = 0 To 8

        k = i Mod 7     'k is line start number - 1(from 0 to 6)

        For j = 0 To 6  'Loop to print the number of each line, 7 times.

            Print k Mod 7 + 1;  'From k to print,if bigger than 7, then back to 1...

            k = k + 1

        Next

        Print

    Next

    

End Sub

舉杯邀明月 2010-04-21

打赏
举报

你只打印８行，

For i = 0 To 7

就可以了。

舉杯邀明月 2010-04-21

打赏
举报

Private Sub Form_Load()

    AutoRedraw = True

    Dim i&, j&

    For i = 0 To 15

        For j = 0 To 6

            Print CStr((j + 7 - i Mod 7) Mod 7 + 1);

        Next

        Print

    Next

End Sub

telnet7250 2010-04-21

打赏
举报

接着顶你.

aaron_gl 2010-04-21

打赏
举报

只提供一个思路
首先对要进行循环的数字初始化
然后用 len（），left（）与right 就可以搞定了

chinaboyzyq 2010-04-21

打赏
举报

[Quote=引用楼主 hanchunchun 的回复:]
Private Sub Command1_Click()
Dim a(1 To 7)
For i = 1 To 7
a(i) = i: Print a(i)
Next i
Print
For i = 1 To 7
t = a(7)
For ？？？？
a(j + 1) = a(j)
Next j
？？？？
……
[/Quote]



Private Sub Command2_Click()

    Dim a(1 To 7)

    For i = 1 To 7

        a(i) = i

        Print a(i);

    Next i

    Print

    For i = 1 To 7

        t = a(7)

        For j = 6 To 1 Step -1

            a(j + 1) = a(j)

        Next j

        a(1) = t

        For j = 1 To 7

            Print a(j);

        Next j

        Print

    Next

End Sub

chinaboyzyq 2010-04-21

打赏
举报



'1.

Private Sub Command2_Click()

    Dim a(1 To 7)

    For i = 1 To 7

        a(i) = i

        Print a(i);

    Next i

    Print

    For i = 7 To 1 Step -1

        t = a(7)

        For j = 7 To 2 Step -1

            a(j) = a(j - 1)

        Next j

        a(j) = t

        For j = 1 To 7

            Print a(j);

        Next j

        Print

    Next

End Sub



'2.

Private Sub Command1_Click()

  Dim a As String

  a = "1234567"

  Print a

  For i = 1 To 7

      a = Right(a, 1) + Left(a, 6)

      Print a

  Next

End Sub

学习风 2010-04-20

打赏
举报

Dim a(1 To 7)
For i = 1 To 7
a(i) = i: Print a(i)
Next i

这段代码就已经无法实现 1234567

你叫人怎么帮你填那些问号
For ？？？？
a(j + 1) = a(j)
Next j
？？？？
For j = i To 7
Print a(j)
Next j
？？？？
Next i

lb_bn 2010-04-20

打赏
举报

帮楼主顶上去。。

vb基础

相关推荐