帮我解一道大一的VB题

来源：百度知道 编辑：UC知道 时间：2024/05/13 23:57:36
要求：
1：使用inputbox输入两个数A和B，求出A，B间的所有素数（即质数）
2：将素数列在列表框中
我当然不会才来这求解的，晕

控件自己添

Dim A As Long
Dim B As Long
Dim c As Integer
Private Sub Command1_Click()

A = Val(InputBox("请输入A"))

B = Val(InputBox("请输入B"))

For i = A To B
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For '当i有可以整除的因子时（即i不是素数时）,跳出内层循环，判断下一个数
End If
Next j

If j = i Then List1.AddItem i '当循环进行到最后 也没跳出时 即i没有可以整除的因子时（即i是素数时），输出i

Next i
End Sub

懒虫，自己动脑子