Question

vb 自定义函数返回布尔值怎做

vb 自定义函数返回布尔值怎做

Answer 1

Private Sub Command1_Click()

Dim n As Integer

n = InputBox("请输入百分制成绩：")

MsgBox n & "分 ==> " & IIf(cj(n), "及格", "不及格")

End Sub

Private Function cj(n As Integer) As Boolean

cj = n >= 60

End Function

Answer 2

function blnfun () as boolean
blnfun=true
end function

Answer 3

看例子
比如
Public Function test(Nos As Integer) As Boolean
For i = 2 To Nos
If Nos Mod i = 0 Then
test= False
Exit For
End If
Next i
test= True
End Function