• 2021-04-14
    在窗体上有一个由3个按钮组成的控件数组,它们的Caption属性分别为"按钮1","按钮2"以及"按钮3",Index值分别为0,1,2。该控件数组的事件代码如下:
    Private Sub Command1_Click(Index As Integer)
    Print Index
    End Sub
    当我们点击”按钮2“时,窗体上显示的内容为【1】;当我们点击”按钮1“时,窗体上显示的内容为【2】

  • 1 --- 0

    举一反三

    内容

    • 0

      中国大学MOOC: 在窗体上添加一个命令按钮Command1,然后编写如下事件过程:Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; aEnd Sub程序运行后,单击命令按钮,则窗体上显示的内容是( )。

    • 1

      在窗体中有一个命令按钮(名为Command1),其事件代码如下: Private Sub Command1_Click() a = 1: b = 2: c = 6 MsgBox a = b + c End Sub, 运行该窗体后,单击命令按钮,则消息框的输出结果为( )。

    • 2

      在窗体上画一个名称为 Command1 的命令按钮,然后编写下列通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click Dim i As Integer,s As Integer s=0 For i = 1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是

    • 3

      设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:Dim Flag As BooleanPrivate Sub Form_Load() Flag=TrueEnd SubPrivate Sub mnu1_Click(index As Integer) If Index=1 Then If Flag=True Then Form2.show mnu1(1).Caption="隐藏窗体2" Flag=False Else Form2.Hide mnu1(1).Caption="显示窗体2" Flag=True End If End If If Index=2 Then EndEnd Sub关于上述程序,以下叙述中错误的是______。 A: Index属性的值可以用来区分控件数组元素 B: Index为1的菜单项的标题可能会改变 C: 两个名称均为Mnu1的菜单项构成一个控件数组 D: 语句Form2.Hide将Form2卸载

    • 4

      在窗体中有一个命令按钮(名为Command1),其事件代码如下: Private Sub Command1_Click() Dim a(5, 5) For m = 2 To 3 For n = 1 To 2 a(m, n) = m * n Next n Next m MsgBox a(2, 1) + a(3, 2) End Sub 运行该窗体后,单击命令按钮,则消息框的输出结果为( )。 A: 8 B: 6 C: 2 D: 16