vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题Private 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 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
这个输出的数据时斜着排列的,哪有问题?求高手
不好意思,我会了

人气：192 ℃　时间：2020-07-11 16:07:41

解答

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帮忙看看这个吧，统计字符个数的，之后把上个财富给你。已经回答了，你自己去看