计算机二级
在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=" " End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为A．40123B．163C．123D．3012
题目
在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=" " End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为
A．40123
B．163
C．123
D．30123
参考答案和解析
解析：当双击列表框的第四行，对应的Text值是40而不是123。另外，ListBox和TextBox的Text属性返回的均为字符型数据。窗体上显示的是列表框的内容与文本框的内容连接以后的内容，即为40123。
相似问题和答案
第1题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。
第2题：
在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程:
Private Sub Form_loab()
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
解析：列表框ListIndex 属性用来返回或设置控件中当前选择项目的索引值,初始值为0,题中"List.Listindex=3"则设置选择列表框的第4项"456",又由于文本框中输入值"789",所以输出结果字符串连接"456789"
第3题：
设有如下通用过程：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：
End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。
A. 30
B. 25
C. 20
D. 15
A) 【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。
第4题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。
第5题：
在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程： Private Sub Form. Loab() 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
解析：列表框ListIndex属性用来返回或设置控件中当前选择项目的索引值，初始值为0。题中“List.Listindex=3"则设置选择列表框的第4项“456”，又由于文本框中输入值“789”，所以输出结果字符串连接“456789”。
第6题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。
第7题：
在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text 1="VB programming"
Text 2=Text 1
Text 1="ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text 2中显示的内容为【 】。
VB programming 解析：本段程序是先把“VB programming”赋给Text 1，然后在把Text 1的内容赋给Text 2，最后把“ABCD”赋给Text 1。所以最后Text 1中的内容是“ABCD”，而Text 2中的内容是“VB programming”。
第8题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，其输出结果为__________。
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。
第9题：
在窗体．上画一个列表框、一个文本框及一个按钮，然后编写如下事件过程： Prirate Sub Form_Loab() List.Addltem"357" Llst.Addltem"246" List.Addltem"123" List.Addltem"456" TEXTl.Text="" End ub Private Sub Commandl_Click() List.LiSdndex=3 Print List.Text+Textl.Text
A．789123
B．456789
C．789456
D．1245