编写程序，随机产生100个1~6的整数，统计每个数出现的次数。修改程序，使之产生1000个1~6的随机数，并统计每个数出现的次数。比较不同的结果并给出结论。

以下程序段产生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

/* 随机产生100个【10,100000】之间的整数,将其中的素数存入数组a,对数组a进行升序排列后按照每行5个输出。 编写函数1:判断一个数是否为素数,是返回1,不是返回0. 编写函数2:对数组进行升序排列和按照每行n个进行输出。 */ #include#include#includeint ss（）; }

程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= ______ For j=2 To 100 If a(j)＞max Then max=a(j) : p=j Next j Print "The largest number is " ; max Print "The position is"; p End

A．0

B．a(1)

C．1.7E+38

D．1.7E-38

A.Int(Rnd*6)

B.Int(Rnd(6)+1)

C.Int(Rnd*7)

D.Int(Rnd*6+1)

A.Int(Rnd*7)

B.Int(Rnd(6)+1)

C.Int(Rnd*6+1)

D.Int(Rnd*6)