求大神帮看VB代码哪边出错了——随机生成10个20到90之间的整数,将其中的素数输出.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/10 04:35:23

求大神帮看VB代码哪边出错了——随机生成10个20到90之间的整数,将其中的素数输出.
Private Sub Form_Click()
Dim a(1 To 10),i As Integer
Dim m,n,j,t As Integer
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 71 + 20)
Print a(i);
Next i
Print
t = a(i)
m = Sqr(t)
For j = 2 To m
If t Mod j = 0 Then
Exit For
End If
Next
Print "素数为:"; a(t)
End Sub

1) t= a(i) 这句下标越界了, 因为这时i =11
2) 判断素数的语句也有点逻辑上的错误.
3) 随机数有可能重复.
我改了下,请参考：
Private Sub Form_Click()
Dim a(1 To 10), i As Integer
Dim m, n, j, t As Integer
Dim Is_prime_number As Boolean
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 71 + 20)
Print a(i);
Next i
Print
For i = 1 To 10
t = a(i)
m = Int(Sqr(t))
Is_prime_number = True
For j = 2 To m
If t Mod j = 0 Then
Is_prime_number = False
Exit For
End If
Next j
If Is_prime_number = True Then Print "素数为:"; a(i)
Next i
End Sub
再问：为什么说t= a(i) 这句下标越界了，请问这是怎么判断出来的？
再答：你上面是 for i 1 to 10 当i=11 跳出循环后，a(i)越界了

求大神帮看VB代码哪边出错了——随机生成10个20到90之间的整数,将其中的素数输出. 求大神帮我看一下下边程序哪里出错了?输出整数x到y之间的所有素数. 求VB 程序设计利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇 VB随机产生10个10到100的整数,每行输出10个代码怎么写? 求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并 vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b) vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中的最大值与最小值 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 VB利用随机函数产生30个[3,99]整数,打印输出其中的素数（要求用数组存放） VB代码,输出1到10之间所有整数的乘积利用高级语言程序设计（VB）随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列… vb编程随机生成20个【1,100】以内的整数,以每行五个输出其中的奇数,并统计输出奇数的个数.