vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题Private Sub Command1_Click() Dim a%, b%, c%, i%, k% k = 0 For i = 100 To 999 a = i Mod 10 b = (i Mo

vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题Private Sub Command1_Click() Dim a%, b%, c%, i%, k% k = 0 For i = 100 To 999 a = i Mod 10 b = (i Mo
vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题
Private Sub Command1_Click()
Dim a%, b%, c%, i%, k%
k = 0
For i = 100 To 999
a = i Mod 10
b = (i Mod 100) \ 10
c = i \ 100
If a + b + c = 10 Then
k = k + 1
Print Tab((k Mod 5) * 8); i
End If
Next i
End Sub
这个输出的数据时斜着排列的,哪有问题?求高手
不好意思,我会了

vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题Private Sub Command1_Click() Dim a%, b%, c%, i%, k% k = 0 For i = 100 To 999 a = i Mod 10 b = (i Mo
Private Sub Command1_Click()
Dim a%, b%, c%, i%, k%
k = 0
For i = 100 To 999
a = i Mod 10
b = (i Mod 100) \ 10
c = i \ 100
If a + b + c = 10 Then
Print Tab((k Mod 5) * 8); i;
k = k + 1
End If
Next i
End Sub