在VB中编写SUB子过程,以整数作为形参,当该参数为奇数时,输出"FALSE",而当该参数为偶数时,输出"TRUE".

Private Sub Command1_Click()
dim a as integer,b as boolean
a=val(text1.text)
If a Mod 2 = 0 Then
b=true
Else
b=false
End If
End Sub

Private Sub Command1_Click()
Call a(120)
End Sub

Sub a(ByVal b As Integer)
If b Mod 2 = 0 Then
Print \"true\"
Else: Print \"false\"
End If
End Sub

晕了.我以前很精通的,但是现在忘光了