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
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/01 06:03:29
![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](/uploads/image/z/2086570-10-0.jpg?t=vb+%E8%A6%81%E6%B1%82%E8%BE%93%E5%87%BA3%E4%BD%8D%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E5%90%84%E4%B8%AA%E6%95%B0%E5%AD%97%E4%B9%8B%E5%92%8C%E7%AD%89%E4%BA%8E10%2C%E6%AF%8F%E8%A1%8C%E6%98%BE%E7%A4%BA5%E4%B8%AA%E6%95%B0%E6%8D%AE%2C%E6%AF%8F%E4%B8%AA%E6%95%B0%E6%8D%AE%E5%8D%A06%E5%88%97.+%E6%B1%82%E9%AB%98%E6%89%8B%E7%9C%8B%E4%B8%8B%E8%BF%99%E4%B8%AA%E8%A1%8C%E6%95%B0%E7%9A%84%E9%97%AE%E9%A2%98Private+Sub+Command1_Click%28%29++++Dim+a%25%2C+b%25%2C+c%25%2C+i%25%2C+k%25++++k+%3D+0++++For+i+%3D+100+To+999++++a+%3D+i+Mod+10++++b+%3D+%28i+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