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

Private Function f(X As Long)As Boolean

If x Mod2=0 Then

f=True

Else

f=False

End If

End Function

Private Sub Command1_ Click()

Dim n As Long

n=Val(Me!text1)

p=Ⅱf(f(n)，"Even number"，"Odd number")

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

End Sub

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

相关问题推荐

• 若有运算符<<、sizeof、^、&=，则它们按优先级由高至低的正确排列次序是
  A．sizeof、&=、<<、^ B．sizeof、<<、^、&= C．^、<<、sizeof、&= D．<<、^、&=、sizeof

  查看答案
• 若有以下程序: include using namespace std; class TestClass 1 { public: TestClass

  若有以下程序：

  include＜iostream＞

  using namespace std;

  class TestClass 1

  {

  public:

  TestClass1()

  {

  X=0;

  }

  int x;

  };

  class TestClass2:virtual public TestClass1

  {

  public:

  TestClass2()

  {

  x=10;

  }

  };

  class TestClass3:virtual public TestClass 1

  {

  public:

  TestClass3()

  {

  x=20;

  }

  };

  class TestClass4:public TestClass2, protected TestClass3

  { };

  int main()

  {

  TestClass4 obj;

  cout＜＜obj.x＜＜end1;

  return 0:

  }

  该程序运行后的输出结果是______。

  查看答案

• 下列操作中，不能打开窗体布局窗口的是______。

  A．执行“视图”菜单中的“窗体布局窗口”命令

  B．按Alt+F5组合键

  C．按Alt+V组合键，再按F键

  D．单击工具栏中的“窗体布局窗口”按钮

  查看答案

• 除了VisualBasic系统默认的工具箱布局之外，还可以通过______定义选项卡来安排控件。

  A．执行“文件”菜单中的“添加工程”命令

  B．执行“工程”菜单中的“部件”命令

  C．在工具箱处执行其快捷菜单中的“添加选项卡”命令

  D．执行“工程”菜单中的“添加窗体”命令

  查看答案

• 当将______属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。

  A．SelStart

  B．Text

  C．PasswordChar

  D．Locked

  查看答案