高校问答730开头的股票是什么股:请高手帮忙便一个 1 到 100的所有质数的 VB程序，用动态数组
来源：百度文库 编辑：高校问答 时间：2024/04/28 21:05:05
谢谢大家了
ReDim sushu(n) As Integer 把所有的素数即质数定义为一个数组
i = 0
Do While i >= 0
For a = 3 To 100
m = True
For b = 2 To a - 1
If a Mod b = 0 Then
m = False
End If
Next b
If m = True Then
sushu(i) = a
i = i + 1
End If
Next a
Loop
为什么会一直下标越界？？
ReDim sushu(n) As Integer 把所有的素数即质数定义为一个数组
i = 0
Do While i >= 0
For a = 3 To 100
m = True
For b = 2 To a - 1
If a Mod b = 0 Then
m = False
End If
Next b
If m = True Then
sushu(i) = a
i = i + 1
End If
Next a
Loop
为什么会一直下标越界？？
Private Sub Command1_Click()
Dim i, k, c As Integer
c = 1
For i = 1 To 100
For k = 1 To i
If i Mod k = 0 And k <> 1 And i <> k Then c = 0
Next k
If c <> 0 Then Print i
c = 1
Next i
End Sub