'一个Command
Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim k As Long
Dim nCount As Long
Dim s As String
Me.Cls
Me.AutoRedraw = True
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
s = s & " " & i & j & k
nCount = nCount + 1
If nCount Mod 5 = 0 Then
Print s
s = ""
End If
Next k
Next j
Next i
If Len(s) > 0 Then
Print s
End If
Print "个数:" & nCount
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024