Question

随机产生100个6到1000以内的随机整数存入数组a中并输出，然后找出其中的素数存入数组b中输 急急！！

随机产生100个6到1000以内的随机整数存入数组a中并输出，然后找出其中的素数存入数组b中输出

Answer 1

Option Base 1

Private Sub Command1_Click()
Dim a() As Long, b() As Long
Dim i As Long, n As Long

Randomize
For i = 1 To 100
a(i) = Rnd() * 995 + 6
Print a(i)
Next i
Print

For i = 1 To 100
If Prime(a(i)) Then
n = n + 1
ReDim Preserve b(n)
b(n) = a(i)
Print b(n)
End If
Next i
End Sub

Private Function Prime(n As Long) As Boolean
If n <= 1 Then Exit Function
If n = 2 Then Prime = True: Exit Function
If n Mod 2 = 0 Then Exit Function
Dim i As Long
For i = 3 To Sqr(n) Step 2
If n Mod i = 0 Then Exit Function
Next i
Prime = True
End Function

Answer 2

不知道你用什么语言写，我用php写的：
$a=array();
$b=array();
for( $i=0;$i<100;$i++){
$a[]=rand(6,1000);
}
for($i=0;$i<100;$i++){
for($j=2;$j<$a[$i];$j++){
if($a[$i]%$j==0)
break;
}
if($j==$a[$i]){
$b[]=$a[$i];
}
}

追问

我是vb 能做不？

追答

我没有学过，但是肯定能写出来，就是产生随机数的函数不一样吧，其它的都是if else和数组，看看他们是怎么定义和使用的就行了，思路都是这样的

追问

我很急 你帮我写出来呗

追答

我没学过vb，所以只能给你提供一个思路，其实你只要把上面的程序改改就行了

Answer 3

晕