循环的问题
同志们,帮我看一下,下面这段代码,我运行时有"溢出",不知道
问题在哪?
Private Sub Picture1_Click()
Dim s As Integer
For i = 1 To 6
s = 0
For j = 1 To i
s = s * 10 + j
If i Mod 2 = 0 Then
Picture1.Print "-"; s;
Else
Picture1.Print " "; s;
End If
Next j
Picture1.Print
Next i
End Sub
