主观

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

      Private Function f(x As Long) As Boolean

        If x Mod 2=0 Then

            f=False

        Else

           f=True

        End If

     End Function

     Private Sub Cmd_Click( )

        Dim n As Long

        n=Val(Me! text1)

         p=IIf(f(n), "奇数“,"偶数")

        Me! Labell. Caption=n&"是"&p

  End Sub

窗体打开运行后,在文本框中输入11,单击命令按钮,则标签显示内容为【 】。

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

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服