7,785
社区成员




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
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
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
'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