Private Sub Command1_Click(Index As Integer)
Print Index
End Sub
当我们点击”按钮2“时,窗体上显示的内容为【1】;当我们点击”按钮1“时,窗体上显示的内容为【2】
1 --- 0
举一反三
- 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=1:b=2:c=3 a=b:b=c:c=a Print a;b;c End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是().
- 窗体上有一名为Text1的文本框,三个单选按钮构成控件数组,名称为Option1,程序运行后,单击某个单选按钮,则文本框中的字体随着随选择的单选按钮切换,请完善下面程序. Private Sub Option1_Click(Index As Integer) Select Case 【1】 Case 0 a = "宋体" Case 1 a = "黑体" Case 2 a = "楷体_GB2312" End Select Text1.【2】 = a End Sub
- 在窗体上画一个名称为Command 1命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c="ABCD" For n=1 To 4 Print ▁▁▁▁ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在横线处填入的内容为?
- 工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是______。 A: Private Sub Command1_Click() Form2.Visible End Sub B: Private Sub Command1_Click() Form2.Show End Sub C: Private Sub Command1_Click() Form2.Load End Sub D: Private Sub Command1_Click() Load Form2 End Sub
- 在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,显示结果为( )。
内容
- 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