更多"窗体上有一个列表框和一个文本框，编写如下两个事件过程： Privat"的相关试题:
[单项选择]窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form Load（ ）
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click（ ）
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。
A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国
[单项选择]窗体上有一个列表框和一个文本框，编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.Addltem "北京"
List1.Addltem "天津"
List1.Addltem "上海"
Text1.Text= ""
End Sub
Private Sub List1_Click（ ）
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果为( )。
A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国
[单项选择]在窗体上画一个列表框、一个文本框和一个按钮，然后编写如下事件过程：
Private Sub Form_Load（ ）
List.AddItem“357”
List.AddItem“246”
List.AddItem”123”
List.AddItem”456”
TEXT1.Text="
End Sub
Private Sub Command1_C1ick（ ）
List.Listindex=3
Print List.Text+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中“456”，则输出结果为( )。
A. 789123
B. 456789
C. 789456
D. 12345
[单项选择]窗体上有一个列表框，编写下列程序： Private Sub Command1_Click（ ） List1. RemoveItem3 End Sub Private Sub Form_Load（ ） List1. AddItem "拉瓦锡" List1. AddItem "道尔顿" List1. AddItem "汤姆森" List1. AddItem "门捷列夫" End Sub 程序执行时，单击Commandd1，则在列表框中将不再出现 ______。
A. 拉瓦锡
B. 道尔顿
C. 汤姆森
D. 门捷列夫
[单项选择]在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程。
Private Sub Form_Load（ ）
List.Addltem"357"
List.Addltem"246"
List.Addltem"123"
List.Addltem"456"
Text1.Text=""
End Sub
Private Sub Command1_C/ick（ ）
List. ListIndex=3
Print List.Text+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双列表框中的“456”，则输出结果为______。
A. 789123
B. 456789
C. 789456
D. 1245
[单项选择]在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.Addltem "357"
List1.Addltem "246"
List1.Addltem "123"
List1.AddItem "456"
Text1.Text = ""
End Sub
Private Sub Listl_DblClick0
m=List1.Text
Print m + Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。
A. 1245
B. 456123
C. 123456
D. 0
[单项选择]在窗体上画一个文本框和一个列表框，然后编写下列两个事件过程：
Private Sub Form_Load（ ）
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1 DblClick（ ）
m=List1.Text
Print m+Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的"456"，输出结果是( )。
A. 1245
B. 456123
C. 123456
D. 0
[单项选择]在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：
Private Sub Form_Load（ ）
List1.AddItem "357"
List1.AddItem "246"
List1.AddItem "123"
List1.AddItem "456"
Text1.Text=""
End Sub
Private Sub List1_Db1Click（ ）
m=List1.Text
Print m+Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的“456”，输出结果为( )。
A. 1245
B. 456123
C. 123456
D. 0
[单项选择]
设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Private Sub List1_Click（ ）
Dim ch As String
ch=List1. List(List1. ListIndex)
List1. RemoveItem List 1. ListIndex
List1. AddItem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是（）。
A. 该列表项被移到列表的最前面
B. 该列表项被删除
C. 该列表项被移到列表的最后面
D. 该列表项被删除后又在原位置插入
[单项选择]在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程：
Private Sub Form_Load（ ）
List.AddItem“357”
List.AddItem“246”
List.AddItem“123”
List.AddItem“456”
TEXT1.Text="
End Sub
Private Sub Command1_Click（ ）
List.Listindex=3
Print List.Text1+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为( )。
A. 789123
B. 456789
C. 789456
D. 1245
[填空题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程：
Private Sub Command1_Click（ ）
a=InputBox("请输入一个整数")
Text1．Text=a
If a ＞ 0 Then
If a Mod 3 = 0 Then
MsgBox "True"
Else
MsgBox "error"
End If
End If
End Sub
程序运行后，单击命令按钮，在输入对话框里输入12，则弹出的提示内容是______。
[单项选择]在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码：
Private Sub Commandl_Click（ ）
Dim a, i, msg
msg="Choose OK to add 100 items to your listbox."
MsgBox msg
For i＝l To 100
a="a：" &i
List1. Addltem a
Next i
End Sub
程序完成的功能是 ( )
A. 本程序使用Addltem方法增加100项给一个列表框
B. 本程序使用Addltem方法向一个列表框中添加100项，其内容是数字1～100
C. 本程序使用Addltem方法向一个列表框中添加的内容是1～100的和
D. 本程序使用Addhem方法增加100个列表框
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)
Const Alt=4
Const Key_f2=&H71
altdown%=(Shift And Alt) ＞ 0
f2down% And f2down% Then
If altdown% And f2down% Then
Text ="abl"
End If
Ead Sub
程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是( )。
A. Alt+F2
B. abl
C. 随机出儿个数
D. 不发生变化
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程：
PriVate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=＆H71
altdown%=(Shift And Alt)＞0
f2down%=(KevCode=Kev_F2)
If altdown% And f2down% Then
Text1.Text="abl"
End If
End Sub
程序运行后，清除文本框中原有内容，如果按＜Shift+F2＞组合键，则在文本框中显示的是( )。
A. Alt+F2
B. abl
C. 随机出几个数
D. 不发生变化
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load（ ） Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer，_ Shift As Integer,X As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是( )。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
