利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数.Private Sub Form_click()Dim N%,c1%,c2%,i%,c3%,c4%i = 1c1 = 0c2 = 0c3 = 0c4 = 0Do While i〈 = 50N = Int(Rnd * 4 + 1)Select Case NCase 1c1
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/28 07:55:08
![利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数.Private Sub Form_click()Dim N%,c1%,c2%,i%,c3%,c4%i = 1c1 = 0c2 = 0c3 = 0c4 = 0Do While i〈 = 50N = Int(Rnd * 4 + 1)Select Case NCase 1c1](/uploads/image/z/6886541-29-1.jpg?t=%E5%88%A9%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E4%BA%A7%E7%94%9F50%E4%B8%AA+%5B1%2C4%5D+%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B4%E6%95%B0%2C%E5%88%86%E5%88%AB%E7%BB%9F%E8%AE%A1%E5%87%BA1%E7%9A%84%E4%B8%AA%E6%95%B0%2C2%E7%9A%84%E4%B8%AA%E6%95%B0%2C3%E7%9A%84%E4%B8%AA%E6%95%B0%E5%92%8C4%E7%9A%84%E4%B8%AA%E6%95%B0.Private+Sub+Form_click%28%29Dim+N%25%2Cc1%25%2Cc2%25%2Ci%25%2Cc3%25%2Cc4%25i+%3D+1c1+%3D+0c2+%3D+0c3+%3D+0c4+%3D+0Do+While+i%E3%80%88+%3D+50N+%3D+Int%28Rnd+%2A+4+%2B+1%29Select+Case+NCase+1c1)
利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数.Private Sub Form_click()Dim N%,c1%,c2%,i%,c3%,c4%i = 1c1 = 0c2 = 0c3 = 0c4 = 0Do While i〈 = 50N = Int(Rnd * 4 + 1)Select Case NCase 1c1
利用随机函数产生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
请问哪里有问题,
利用随机函数产生50个 [1,4] 之间的整数,分别统计出1的个数,2的个数,3的个数和4的个数.Private Sub Form_click()Dim N%,c1%,c2%,i%,c3%,c4%i = 1c1 = 0c2 = 0c3 = 0c4 = 0Do While i〈 = 50N = Int(Rnd * 4 + 1)Select Case NCase 1c1
就只是一个标点<=你打错了,拓成了中文标点,于是就杯具了.更改一个符号,一切OK: