在VB程序中函数如何调用

例：判断形差为m是否为素数，若m是素数，函数的返回值为Ture，否则为Flase。 0

函数：Function prime(m%) As Boolean

prime =Ture

For i =2 To Sqr(m)

If m Mod i =0 Then

prime=Flase

Exit If

Next i

End Function

如何调用并判断该段程序的正误。

麻烦详细写下。

小示例，在vb6.0中判断输入的数是否为质数，用Function过程实现，希望对楼主有帮助

Option Explicit

Private Sub Form_Click()
Dim i As Integer
Dim IsZS As Boolean

i = Val(InputBox("请输入一个整数", "提示"))

IsZS = Validate(i) '调用Function过程

If IsZS = True Then
Print i & " 是质数"
Else
Print i & " 不是质数"
End If
End Sub

'验证输入的数是否为质数
Public Function Validate(inputNum As Integer) As Boolean
Dim i As Integer
Dim IsZhi As Boolean '标志，是否为质数
IsZhi = True

For i = 2 To inputNum - 1
If inputNum Mod i = 0 Then
IsZhi = False '不是质数
Exit For '不用再判判断了，退出For循环
End If
Next i

Validate = IsZhi 'Function过程有返回值

End Function

以上代码在VB6.0下测试通过

if prime(5)=ture then

print "5是素数"

else

print "5不是素数"

end if

prime =Ture

For i =2 To Sqr(m)

If m Mod i =0 Then

prime=Flase

Exit FOR

Next i

End Function