第3题
下面的程序产生100个0~99的随机整数,并统计个位上的数字分别是1,2,3,4,5,6,7,8,9,0的数的个数。
Private Sub a3()
Dim x(1 To 10)As Integer,a(1 To 100)As Integer
Dim P As Integer,j As Integer
For j=1 To 100
a(j)=______
P=a(j)Mod 10
If P=0 Then P=10
______
Next j
For j=1 To 10
Debug.Print x(j);
Next j
End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!