求vb大神来。 这个题咋做。 请编写程序产生10个【10，100】之间的随机整数，输出其中是3的倍
求vb大神来。 这个题咋做。 请编写程序产生10个【10，100】之间的随机整数，输出其中是3的倍数的整数，并统计它们的个数
Cls
s = 0
For i = 1 To 10
a = Int(Rnd * 91) + 10
If a Mod 3 = 0 Then
Me.ForeColor = vbRed
s = s + 1
Else
Me.ForeColor = vbBlack
End If
Print a
Next
Print "总共" & s & "个能被3整除."
s = 0
For i = 1 To 10
a = Int(Rnd * 91) + 10
If a Mod 3 = 0 Then
Me.ForeColor = vbRed
s = s + 1
Else
Me.ForeColor = vbBlack
End If
Print a
Next
Print "总共" & s & "个能被3整除."
往Form1上拖一个Command1，双击Command1，把上面的代码复制到Sub Command_Click和End Sub之间，然后运行。
温馨提示：内容为网友见解，仅供参考
第1个回答 2015-12-21
Sub s()
Debug.Print "3的倍数有："
For i = 1 To 10
Randomize
n = Int(10 + Rnd * 91)
If n Mod 3 = 0 Then
Debug.Print n;
c = c + 1
End If
Next
Debug.Print
Debug.Print "总个数为：" & c
End Sub
Debug.Print "3的倍数有："
For i = 1 To 10
Randomize
n = Int(10 + Rnd * 91)
If n Mod 3 = 0 Then
Debug.Print n;
c = c + 1
End If
Next
Debug.Print
Debug.Print "总个数为：" & c
End Sub
相似回答
