国家计算机二级(VB)91
(总分100,考试时间120分钟)
选择题(每小题2分,共70分)  下列各题四个选项中,有一个是正确的,请选择正确答案。
沧海一声笑gai1. 以下程序段的输出结果为(  )。  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="Visual 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.Path
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 二级VB