在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令
第1题
第2题
Private Sub Command1_Click() If List1.ListIndex>=0 Then List1.RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub
第3题
End If End Sub
第5题
在窗体上画一个命令按钮,编写如下事件过程: Private Sub Command1_Click() a=InputBox ("Enter FirstInteger") b=InputBox ("Enter SecondInteger") Print EndSub 程序运行后,单击命令按钮,先后在两个输入对话框中分别输入 456 和123,输出结果为()。
A、579
B、123
C、456
D、123456
第6题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2<>0 Then a=a+1 End If a=a+1 Next j Next i Print a End Sub 程序执行后,单击命令按钮,输出结果是【 】。
第7题
在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x; End Sub 程序执行后,单击Command1命令按钮,输出的结果是【 】。
第8题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在【 】处填入适当的内容,将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
第10题
在窗体上画—个命令按钮,然后编写如程序: (假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x; End Sub 程序执行后,单击Command1命令按钮,输出的结果是【 】 。