vb基础

[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
？？？？
For j = i To 7
Print a(j)
Next j
？？？？
Next i

End Sub

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

[lb_bn]

帮楼主顶上去。。

[学习风]

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

[chinaboyzyq]

'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

[chinaboyzyq]

[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

[aaron_gl]

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

[telnet7250]

接着顶你.

[舉杯邀明月]

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

[舉杯邀明月]

你只打印８行，

For i = 0 To 7

就可以了。

[gooore]

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

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

[andylauren]

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

[myy168]

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]

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

[liangjingke]

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

[游子]

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

[wq382793896]

看看··

[神马被哪个妞占用了呢]

7楼2简单。我喜欢