• 2022-06-26
    窗体上添加有3个命令按钮,分别命名为C1、C2和C3。编写C1的单击事件过程,完成的功能为:当单击按钮C1时,按钮C2可见,按钮C3不可用。下列语句中正确的是( )。
    A: Private Sub C1_Click()
    B: C2.Visible=True
    C: C3.Visible=False
    D: End Sub
    E: Private Sub C1 Click()
    F: C2.Enabled=True
    G: C3.Enabled=False
    H: End Sub
    I: Private SubC1_Click()
    J: C2.Enabled=True
    K: C3.Visible=False
    L: End Sub
    M: Private Sub C1
    N: C2.Visible=True
    O: C3.Enabled=Fals
    P: End Sub
  • D

    举一反三

    内容

    • 0

      窗体上有三个按钮Command1、Command2和Command3,如以下代码所示,该程序的功能是______。Private Sub Command1_ Click() Command2. Enabled=False Command3. Visible =FalseEnd Sub A: 当单击按钮Command1时,按钮2和按钮3都不可用 B: 当单击按钮Command1时,按钮2和按钮3都不可见 C: 当单击按钮Command1时,按钮2不可用和按钮3不可见 D: 当单击按钮Command1时,按钮2不可见和按钮3不可用

    • 1

      假定有下表所列的菜单结构: 标题 名称 层次 显示 appear 1(主菜单) 大图标 bigicon 2(菜单) 小图标 smallicon 3(菜单) 要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是( )。 A: Private Sub bigicon_Click() B: bigicon.Checked=False C: End Sub D: Private Sub bigicon_Click() E: Me.appear.bigicon.Checked=True F: End Sub G: Private Sub bigicon_Click() H: bigicon.Checked=True I: End Sub J: Private Sub bigicon_Click() K: appear.bigicon.Checked=True L: End Sub

    • 2

      在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Private Sub Command1 Click( ) A=75 If A>60 Then I=1 If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。 A: 1 B: 2 C: 3 D: 4

    • 3

      在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮;其输出结果为 ______。 A: A) 1 2 3 4 B: B) 2 3 4 5 C: C) 2 3 4 4 D: D) 3 4 5 6

    • 4

      窗体上添加有3个命令按钮,分别命名为Commandl、Command2和Command3,编写Commandl的单击事件过程,完成的功能为:当单击按钮Commandl时,按钮Command2可用,按钮Command3不可见。以下正确的是( )。 A: Private Sub Command l Click() Command2.Visible=TrueCommand3.Visible=False B: Private Sub Commandl Click() Command2.Enabled:TrueCommand3.Visible:FalseEnd SubEnd Sub C: Private Sub Commandl_Click() Command2.Enabled=TrueCommand3.Visible=False D: Private Sub Commandl_Click() Command2.Visible:TrueCommand3.Enabled=FalseEnd SubEnd Sub