Mr. Rayburn suggests if you want to be successful and remain successful, you need toA．know

数，就是合数。用被测试的数除以从2开始到该数本身的数，如果能除尽(余数为0)，则为合数；如果都除不尽(余数均不为0)，则为素数。请在划线处将下面过程补充完整： Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i=【 】，Then GoTo comfinish End If Next i Prime=inputvar Print "素数" GoTo【 】 comfinish: Prime=inputvar Print"合数" finish: End Function

，就是合数。用被测试的数除以从2开始到该数本身的数，如果能除尽(余数为0)，则为合数；如果都除不尽(余数均不为0)，则为素数。请在划线处将下面过程补充完整： Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i=【 】Then GoTocomfinish End If Next i Prime=inpuvar Print"素数" Go To【 】 comfinish： Prime=inputvar Print"合数" finish: End Function

【实训4-8】 判断一个数是否是素数(质数) 输入一个数，判断一个数是否是素数。分别用三种不同的方式解决此问题。分析：判断一个数是否是素数，可以根据素数的定义，一个数若是素数，则它只能被自己和1整除。为了减少循环的次数，可以从2直到x/2为止。更少的次数可以从2直到。

某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False

Function Prime（a As Integer）AS Boolean

Dim k As Interger,isprime AS Boolean

If a<2 Then

isprime=False

Else

isprime=True

k=2

Do While k If a Mod k=0 Then

isprime=False

ELSE

k=k+1

End IF

LOOP

End If

prime=isprime

End Function

在测试时发现有1个非素数也被判断为素数，这个错判的数是________

（9 ）某人编写如下函数来判断 a 是否为素数，若是，则函数返回 True ；否则返回 False

Function Prime （a As Integer ） AS Boolean

Dim k As Interger,isprime AS Boolean

If a<2 Then

isprime=False

Else

isprime=True

k=2

Do While k<a/2 And isprime

If a Mod k=0 Then

isprime=False

ELSE

k=k+1

End IF

LOOP

End If

prime=isprime

End Function

在测试时发现有 1 个非素数也被判断为素数，这个错判的数是——

请填空。 Private Sub Form_Click() Dim i As Integer For i=3 To 97 Step 2 If【 】Then Print i，i+2 End If Next i End Sub Public Function prime(ByVal n As Integer)As Boolean Dim i As Integer For i=2 To n-1 If【 】Then Exit For End If Next i If i=n Then prime=True Else prime=False End If