编写一个过程，以整型数作为形参，当该参数为奇数时输出False，而当该参数为偶数时输出True。

以下是此题的【VB源代码】
'先编写过程
Function NumOE(ByVal n As Integer) As Boolean
    If n Mod 2 Then
        NumOE = False
    Else
        NumOE = True
    End If
End Function

'再编写窗体代码，来调用过程
Private Sub form_click()
    Dim retnum As Boolean
    num = InputBox("请输入一个整数")
    num = Val(num)
    retnum = NumOE(num)
    If retnum = True Then
        a$ = "偶数"
    Else
        a$ = "奇数"
    End If

    Print retnum; " --- "; num; " 是一个"; a$
End Sub

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_9.3.html