Question

帮我解一道大一的VB题

要求：
1：使用inputbox输入两个数A和B，求出A，B间的所有素数（即质数）
2：将素数列在列表框中
我当然不会才来这求解的，晕

Answer 1

控件自己添

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

Answer 2

懒虫，自己动脑子