主观

若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框,且文本框的内容为空,然后编写如下事件代码:

Private Function f(x As Long) As Boolean

If x Mod 2=0 Then

f=True

Else

f=False

End If

End Function

Private Sub Command1_Click( )

Dim n As Long

n=Val(Me!text1)

p=IIf(f(n) ,“Even

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服