国家计算机二级(VB)91
(总分100,考试时间120分钟)
选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 以下程序段的输出结果为（ ）。 Dim 1，a(10)，p(3) k=5 Fori=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Frint k
A. WHERE B. FROM
C. GROUP BY D. ORDER BY
2. 有变量定义语句Dim max，min As String，则可以知道max的类型是（ ）。
A. 除了Click事件之外，菜单项不可以响应其他事件
B. 每个菜单项都是一个控件，与其他控件一样也有其属性和事件
C. 菜单项的索引号必须从1开始
D. 菜单的索引号可以不连续
3. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A. 15 B. 14
C. 13 D. 12
4. 在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项是( )。
A. x=List1．ListCount B. x=ListCount
C. x=List1．ListIndex D. x=ListIndex
5. 编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按"A"键，则程序输出的结果是（ ）。
A. Panel B. Frame
C. Applet D. Dialog
6. 单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1 Click() Dim x As Integer，y As Integer x=12：y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A. 1232 B. 232
C. 23 D. 123
7. 设有如右图所示的窗体和下列程序： Private Sub Command1_Click() Text1.Text="Vi
sual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text＜＞"BASIC" Then Text1.Text=" " Text1.SetFocus End If End Sub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是( )。
A. 文本框中无内容，焦点在文本框中
B. 文本框中为"Basic"，焦点在文本框中
C. 文本框中为"Basic"，焦点在按钮上
D. 文本框中为"Visual Basic"，焦点在按钮上
8. 下列程序段的执行结果为( )。 I=4 x=5 Do I=I + 1 X=K^2 Loop Until I＞=7 Print"I="；I Print"x="；x
A. 121 B. 122
C. 112 D. 222
9. 下列程序段的执行结果为( )。 a=1 b=2 For I=1 To 3 f=a * b a=b b=f Print f Next I
A. 22 B. 10
C. 34 D. 30
10. 下面程序段执行结果为（ ）。 x=Int(Rnd()+3) Select Case x Case 5 Print "excellent" Case 4 Print "good" Case 3 Print"pass" Case Else Print"fail" End Select
A. excellent B. good
C. pass D. fail
11. 下列说法正确的是（ ）。
A. Click B. DbClick
C. RightClick D. 以上3项都是
12. 当复选框被选中时，复选框的Value属性的值为（ ）。
A. 0 B. 1
C. 2 D. 5
13. 设有下面的循环： i=0 While i＜=1 i=i + 3 Print i Wend 则运行后的输出结果是（ ）。
A. ab B. abc
C. abd D. abcd
14. 用来设置文本框有无滚动条的属性是（ ）。
A. 在File1中的Change事件中，输入File1．Path=Dir1．Path
B. 在Dirl中的Change事件中，输入File1．Path=Dir1．Path
C. 在File1中的Change事件中，输入Dir1．Path=File1．Path
D. 在Dir1中的Change事件中，输入Dir1．Path=File1．Pathvb开始按钮代码
15. 在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到什么事件?
A. True B. 0
C. 1 D. False
16. 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n = Val(Text1.Text) If n\2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是（ ）。
A. 72 36 B. 108 36
C. 72 6 D. 108 6
17. 下面关于菜单的叙述中错误的是【 】
A. 各级菜单中的所有菜单项的名称必须唯一
B. 同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同
C. 弹出式菜单用Popup Menu方法弹出
D. 弹出式菜单也用菜单编辑器编辑
18. 对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是______。
A. 冒泡排序为n/2 B. 冒泡排序为n
C. 快速排序为n D. 快速排序为n(n-1)/2
19. 设窗体上有1个滚动条,要求单击滚动条右端的鬻按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是【 】
A. Max B. Min
C. Smallhange D. Large Change
20. 在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) End Sub 假定焦点已经位于文本框中,则能够触发KeyPress事件的操作是【 】
A. 单击鼠标 B. 双击文本框
C. 鼠标滑过文本框 D. 按下键盘上的某个键
21. 设有如下的用户定义类型： Type Student number As String name As Suing age As Integer End Type 则以下正确引用该类型成员的代码是【 】
A. Student.name="李明"
B. Dim S As StudentS.name="李明"
C. Dim S As Type Student S.name="李明"
D. Dim S A.s TypeS.name="李明"
22. 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。
A. A B. a
C. C D. c
23. 下列程序段的执行结果为（ ）。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I＞=7 Print"I="；I Print"X="；x
发表评论