Question

在VB程序中函数如何调用

例：判断形差为m是否为素数，若m是素数，函数的返回值为Ture，否则为Flase。 0 函数：Function prime(m%) As Booleanprime =TureFor i =2 To Sqr(m)If m Mod i =0 Thenprime=FlaseExit IfNext iEnd Function 如何调用并判断该段程序的正误。麻烦详细写下。

Answer 1

小示例，在vb6.0中判断输入的数是否为质数，用Function过程实现，希望对楼主有帮助Option ExplicitPrivate 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下测试通过

Answer 2

if prime(5)=ture then print "5是素数"else print "5不是素数"end if