A.102, 2500 B.100,2500
160.执行下列代码后，变量count的值为（）。 Dim count As Integer
For count = 10 To 0, Step -1 count = count - 3 Next A.0 B.-1
C.100.2550 D.102,2550
C.-2 D.-3
161.单击鼠标时，首先响应的是（）事件。 A.Click B.Mousedown C.MouseUp D.MouseMove
162. VB控件属性中使用Cursor属性设置（）。 A.操作类型 B.形状类型 C.鼠标按键
D.指针类型
163.鼠标的移动触发（）事件。
A.Click B.Mousedown C.MouseUp D.MouseMove
164.鼠标一次单击过程，依次触发了（）事件。 A.Mouseup、Mousedown、Click## ## ## B.Mousedown、Click、Mouseup C.Click、Mousedown、Mouseup D.Mousedownk、Mouseup、Click
165.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（）。 A.MouseDown B.MouseUp C.Load
D.Click
166.鼠标按键、移动和释放事件过程的()参数用来获取按下的是哪个鼠标键。 A.sender B.e C.sender.Button D.e.Button
167.当指针指向窗体Form1时，鼠标指针改为用户自己定义的指针图标，应使用（）语句形式。
A.Form1.Cursor = New Cursor(图标文件名 B.Me.Cursor = New Cursor(图标文件名 C.Form1.Cursor = Cursor(图标文件名 D.Me.Cursor = Cursor(图标文件名
168.当在文本框中输入“ABCD”时，标签上显示的是（）。 Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged Label1.Text &=TextBox1.Text End Sub A.ABCD B.A C.AABABCABCD D.A
169.下列事件中，（）不是键盘可触发事件。 A.Click B.KeyDown C.KeyUp
170.要接收键盘按键的字符，应该使用（）事件。 A.Click B.KeyDown C.KeyUp 171.下面的程序段运行后S的值是（）。 Dim a(3) As Integer S=0
D.KeyPress
D.KeyPress
For i=1 To 3 a(i)=i*i S=S+a(i) Next i A.1
B.4 C.9 D.14
172.编写如下程序：
Private Sub Button1_Click(…)Handles Button1.Click Dim i As Integer, n As Integer Dim arr() As Integer
n = InputBox(请输入数值： ReDim arr(n)
For i = 1 To UBound(arr) arr(i) = i Next
For i = 1 To UBound(arr) \ 2 temp = arr(i)
arr(i) = arr(n - i + 1) arr(n - i + 1) = temp Next
For i = 1 To UBound(arr) Print arr(i); Next End Sub
程序运行后，单击命令按钮Button1，并在输入对话框中输入7，输出结果为()。 A.7 6 5 4 3 2 1 B.1 2 3 4 5 6 7 C.3 2 1 4 7 6 5 D.4 3 2 1 5 6 7
173.若dim a() as integer={1,2,3,4,5},则a.length的值（）。 A.4 B.5 C.6 D.NULL
174.以下属于中合法的数组元素的是（）。 A.k8 B.k[8] C.k() D.k(8)
175.下列有关VB中的概念，正确的是()。 A.列表框中的项目可以设定成允许多选 B.组合框中的项目可以设定成允许多选 C.数组默认下标下界可以设置为负数 D.数组名可以与简单变量名同名
176.下列叙述中正确的是（）。 A.数组是用户自定义的数据类型 B.数组元素在内存中的存放形式是连续的 C.数组在使用时可以采用隐式声明 D.数组的下界可以任意
177.下列数组声明语句中正确的是（）。 A.Dim (9) As Single={1,2,3,4,5,6,7,8,9,10} B.Dim a() As Single={1,2,3,4,5,6,7,8,9,10} C.Dim a() As Single={1,
D. Dim a( , ) As Integer={1,2,3,4,5,6,7,8,9,10}
178. VB.NET中，定义数组如下 Dim arr() as Integer = {1,2,3,4,5} 则arr(1)的值为（）。 A.1 B.2
C.3 D.4
179.如下数组声明语句中正确的是（）。 A.Dim (9) As Single={1,2,3,4,5,6,7,8,9,10} B.Dim a( ) As Single={1,2,3,4,5,6,7,8,9,10}
C.Dim a( ) As Single={1,“a”, “bc”2. ,4,5,6,7,8,9,10} D. Dim a(,) As Integer={1,2,3,4,5,6,7,8,9,10}
180.如下程序输出的结果是（）。
Dim a() As Integer={1,2,3,4,5,6,7} For i=0 To UBound(a) a(i)a=(i)*a(i) Next i MsgBox(a(i))
A.49 B.0 C.不确定 D.程序出错
181. ListBox1中的 GetSelected是（）。 A.方法 B.对象 C.属性
D.事件
182.在设计状态，列表框中的选项可以通过（）属性设置。 A.List B.Items.Count C.Text
D.Items
183.（）控件用于显示较长的选项列表，用户可以从中进行选择。 A. ListBox B.CheckBox C.Label D.以上都不是
184.引用列表框ListBox1最后一个数据项应使用（）。 A.ListBox1.Items(ListBox1.Items.Count) B.ListBox1.Items(ListBox1.Items.Count-1) C.ListBox1.Text D.ListBox1.Items(ListBox1.SelectedIndex)
185.要清除列表框中的所有列表项时，应使用（）方法。 A.Items.Remove B.Items.Clear C.Items.RemoveAT D.Items.Move
186.在下面对列表框（ListBox1）的操作中，正确的语句是（）。 A.Listbox1.Items.Cls B.ListBox1.Items.Remove(4) C.ListBox1.Items.Remove(计算机 D.ListBox1.Items.Add(1,打印机
187.已知列表框（ListBox1）中有10个数据项，对列表框操作正确的语句是( )。 A.ListBox1.Clear() B.ListBox1.Items.RemoveAt(4)
C.ListBox1.Items.RemoveAt(计算机D.ListBox1.Items.Add(1, 打印机
188.向列表框中的最后填加一个新项目，正确的语句是（）。 A.ListBox1.Items.Add (B.ListBox1.Items.Insert (C.ListBox1.Items.Add (2, D. ListBox1.Items.Insert (2,
189.复选框的CheckState属性为（）时，表示复选框内有灰色的勾即不可选。 A.Unchecked B.Indeterminate C.Checked D.None
190.复选框或单选钮的当前状态可通过（ ）属性来返回或设置。 A.Checked B.Value C.Selected
191.下面过程运行后显示的结果是（）。
Public Sub F1(ByRef n as Integer,ByVal m as Integer) n=n mod 10 m=m\10 End Sub
Sub Button1_Click(…… ) Handles Button1_Click Dim x,y as Integer x=12 y=34 Call F1(x,y)
MessageBox.Show(x & End Sub A.2 34 B.12 34 C.2 3
D.Caption
D.12 3
192.下面程序段运行的结果是（）。 Public Sub Proc(ByRef a%()) Dim i% Do
a(i) = a(i) + a(i + 1) ：i = i + 1 Loop While i < 2 End Sub
Private Sub Button1_Click(…) Handles Button1.Click Dim m%, i%, x%(10) For i = 0 To 4 x(i) = i + 1 Next i
For i = 1 To 2 Call Proc(x) Next i
For i = 0 To 4
Label1.Text &= x(i) & Next i End Sub A.8 8 3 4 5 B.7 7 2 3 4 C.9 9 4 5 6
D.6 6 1 2 3
193.下面过程运行后显示的结果是（）。 Public Sub F1(ByRef n%, ByVal m%) n=n Mod 10 m=m\10 End Sub
Sub Button1_Click(... ...) Handles Button1_Click Dim x%, y% x=12: y=34 Call F1(x, y)
MsgBox(x &“ End Sub A.2 34 B.12 34
C.2 3 D.12 3 6
194.下列主过程Main中执行完语句x.MyFunc(i)后，局部变量i的值为( )。 Public Sub MyFunc(ByVal i As Integer) i = i * 2 End Sub End Class Sub Main()
Dim x As new test
Dim i As Integer = 100 x.MyFunc(i) End Sub A.0 B.2 C.100
D.200
195.已知数组arr进行以下定义： Dim arr() as Integer = {1,1,1,1,1} 过程MySub定义如下：
Sub MySub(ByVal ar() As Integer, ByRef x As Integer) Dim i As Integer
For i = 0 To UBound(ar) 注：UBound(ar)求数组ar的下标上限 ar(i) = x Next x = 0 End Sub
则执行下列语句后，数组arr和变量data中的内容是( )。 Dim data As Integer = 2 MySub(arr, data)
A.arr={2,2,2,2,2} data=2 B.arr={1,1,1,1,1} data=2 C.arr={2,2,2,2,2} data=0 D.arr={1,1,1,1,1} data=0
196.在VB.NET的过程MySub中，下列变量声明语句（）正确。 A.Dim x,y,x as Integer
B.Dim x as Integer,y as String,z as Decimal C.Private temp as Long D. Public temp as Long
197.在VB.NET中，无返回值的过程称为（）过程。 A.Sub B.Function C.Property
D.Main
198.设过程P有两个数值类型的形参，把( )当作调用过程P的语句是错误的。 A.CallP(1,2) B.Call P(Math.Sqrt(10), 2) C.P(1,2) D.P1+2