帮忙写一下VB程序语句

来源：百度知道 编辑：UC知道 时间：2024/05/27 20:29:49
要求是求出一定范围内的所有素数
这个范围是可以自己在TEXT框里定的
老师要求用FOR-NEXT、WHILE DO、DO NOT-UNTIL、LOOP等语句

拜托各位高手帮忙拉，下周一小组考试急用

先谢谢各位了

OTZ

首先写一个判断素数的函数
Private Function Judge_prime_number(ByVal JudgeNumber As Long) As Boolean
'判断指定的大于2的奇数数是否为素数
Dim i As Long
Dim lngLoopEnd As Long

Judge_prime_number = True
If JudgeNumber > 2 Then
lngLoopEnd = Sqr(JudgeNumber)
For i = 3 To lngLoopEnd Step 2
If JudgeNumber Mod i = 0 Then
Judge_prime_number = False
Exit For
End If
Next
End If
End Function

在指定范围判断
假设定义变量lngFirstNumber为起始数,lngEndNumber为终结数,相关求素数的语句如下
If lngFirstNumber Mod 2 = 0 Then
If lngFirstNumber = 2 Then 写自己需要输出素数的语句 '2是最小的素数
lngFirstNumber = lngFirstNumber + 1
End If
For i = lngFirstNumber To lngEndNumber Step 2
If Judge_prime_number(i) Then 写自己需要输出素数的语句
Next