若窗体中已有一个名为COMMAND1的命令按钮、一个名为LABEL1的标签和一个名为 TEXT1的文本框,且文本框的内容为空,然后编写如下事件代码: PRIVATE FUNCTION F(X AS LONG) AS BOOLEAN

admin2013-05-12  37

问题 若窗体中已有一个名为COMMAND1的命令按钮、一个名为LABEL1的标签和一个名为 TEXT1的文本框,且文本框的内容为空,然后编写如下事件代码:
          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  NUMBER" ,"ODD  NUMBER" )
                  ME ! LABEL1: CAPTION = N&"IS" &P
            END SUB
     窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示的内容为【  】。

选项

答案21 IS ODD NUMBER

解析 从键盘输入一个整数,若能被2整除,则返回“EVEN NUMBER”,否则返回“ODD NUMBER”,而本题输入的数字为21,它不能被2整除,故最后答案为“21 IS ODD NUMBER”。
转载请注明原文地址:https://kaotiyun.com/show/QGrp777K
0

最新回复(0)