题目内容
（请给出正确答案）
以下程序段产生100个1-4之间的随机整数，并进行统计。数组元素s(i)的值表示等于i的随机数的个数，要求输出如下格式：
s(1)= ⋯ ⋯
s(2)= ⋯ ⋯
s(3)= ⋯ ⋯
s(4)= ⋯ ⋯
将程序补充完整。
Private Sub Form_Click()
Dim s(4) As Integer
Randomize
for i=1 to()
x = Int(Rnd *()+ 1 )
s(x) = s(x) + 1
Next i
for i=1 to()
Print "s(";I;")=";s(i)
Next i
End Sub
安装简答题APP，拍照搜题省时又省心！
更多“以下程序段产生100个1－4之间的随机整数，并进行统计。数组…”相关的问题
有以下程序段
下面针对上述程序段的描述正确的是
A.最多可以输出100个非负整数
B.当x＜0时结束整个循环
C.当X＞=0时没有任何输出
D.pfinff函数调用语句总是被跳过
Randomize语句的功能是
A．产生一个(0，1)之间的随机小数
B．产生一个[1，10]之间的随机整数
C．产生一个(-1，1)之间的随机小数
D．产生新的随机整数
andomize语句的功能是（）。
A．产生个(0，1)之间的随机小数
B．产生一个[1，10]之间的随机整数
C．产生一个(-1，1)之间的随机小数
D．产生新的随机整数
以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik()
Randomize
For I=1 To 20
X=Int(Rnd* ______ )
If X/2= ________ Then Print x
Next I
End Sub
A、getInteger(100);
B、System.getInt(100);
C、Random.nextInt(100);
D、Random random=new Random(); int aInt=random.nextInt(100);
下面的程序产生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
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
