Question

用VB设计程序能求出给定范围内的素数

求出给定范围内的素数，每行输出5个数字。给出的范围要求大于等于3。素数指除了能被１和自身外，不能被其它整数整除的自然数。

Answer 1

Private Sub Command1_Click()
Dim isNum As Boolean
Dim count As Integer
Dim i As Integer
Dim j As Integer

For i = Val(Text1.Text) To Val(Text2.Text) '下限到上限的数
isNum = True '先暂为质数
For j = 2 To i / 2
If i Mod j = 0 Then '如果能被 1或 数本身 整除
isNum = False '此数不是质数
Exit For '退出循环
End If
Next j
If count = 5 Then '计数 5个质数 一次换行
count = 0
Print '这里就是换行了
End If
If isNum Then ' 如果是质数
Print i; '打印出来
count = count + 1 '并累加 到5个质数后 准备换行
End If
Next i
End Sub