Question

请问有谁知道怎样在VB窗口中实现每10个数字换行拜托了各位 谢谢

Answer 1

Dim i As Long For i = 1 To 100 Print i, If i Mod 10 = 0 Then Print Next i mod是取余数，如果和10取余数为0，说明可以被10整除，那么换行。 另附：如果循环变量不是刚好的话，可以在判断里面加语句： Dim i As Long For i = 0 To 100 Print i, If (i + 1) Mod 10 = 0 Then Print Next i

Answer 2

'示例代码如下： Private Sub Form_Click() Dim a(1 To 40) As Integer For i = 1 To 40 a(i) = i Print a(i); " "; If i Mod 10 = 0 Then Print Next i End Sub