利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数.

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/29 05:15:27

利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数.
Private Sub Form_click()
Dim N%,c1%,c2%,i%,c3%,c4%
i = 1
c1 = 0
c2 = 0
c3 = 0
c4 = 0
Do While i〈 = 50
N = Int(Rnd * 4 + 1)
Select Case N
Case 1
c1 = c1 + 1
Case 2
c2 = c2 + 1
Case 3
c3 = c3 + 1
Case 4
c4 = c4 + 1
End Select
i = i + 1
Loop
Print c1,c2,c3,c4
End Sub

请问哪里有问题,

就只是一个标点<=你打错了,拓成了中文标点,于是就杯具了.更改一个符号,一切OK：

利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数. vb利用随机函数产生50个1—6之间的整数,分别统计出1的个数,2的个数,3的个数,4的个数,5的个 c#随机产生1~20之间的整数,总共生成1000次,统计其中生成的整数0,1,2,3,...…,20的个数分别是多少产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将这30个随机整数以每行5个数形式输出 VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数（使用数组随机产生任意个20个50~100的整数,求最大值、最小值,平均值,并统计高于平均值的个数. VB编程随机产生50个10~200的整数,统计能被5整除的数的个数 VB编程,用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0的元素个数汇编语言：一组有符号整数,编写程序分别统计正数的个数、负数的个数和0的个数求和VB程序用随机函数产生100个【0,99】范围内的随机整数统计个位上的数字为C的元素个数,个位上的数字为1的元素的个 Qbasic题随机产生20个两位整数,然后统计输出偶数的个数