Question

vb中 100-300素数，并在列表框中显示

Answer 1

希望能帮到你

Private Sub Form_Click() '窗体单击事件
Dim a,n,k As Integer '声明变量为整形值
Dim d As Boolean '声明变量为布尔值
For a = 100 To 300 '循环变量a的值为100到300
For n = 2 To Int(Sqr(a)) '循环n的值为2到a的平方根之间
If a Mod n <> 0 Then '判断，如果a不能被n整数（不能被小于a的平方根的所有素数整除的数就是素数）
d = True '那么 d的值为真
Else
d = False '否则为假
Exit For ' 退出循环
End If '结束判断
Next n

If d = True Then '判断，当d的值为真时
list1.additem a, '在列表框中输入a的值
k = k + 1 'K的值加1
End If '结束判断
Next a

Print "100-300之间的所有素数为" & k; "个" '输出K的值

End Sub

Answer 2

Private Function isprime(ByVal Num As Integer) As Boolean '判断是否为素数的函数
Dim i As Integer
If Num < 2 Then
isprime = False
Else
isprime = True
For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit For
End If
Next i
End If
End Function

Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 300
If isprime(i) Then List1.AddItem i
Next
End Sub

Answer 3

我 空间 里有 素数 的 例程

可以参考