vb二级模拟3

1.有程序代码：Text1.Text=”Visual Basic”,则Text1、Text和”Visual Basic”分别代表（c）。

A 对象、值、属性
B 对象、方法、属性
C 对象、属性、值
D 属性、对象、值
2. 以下能正确定义数据类型TelBook的代码是（c ）。

A Type TelBook
B Type TelBook
Name As String*12 Name As String*12
TeL As Integer TeL As Integer
End Type TelBook Type End
C Type TelBook
D Type TelBook
Name As String*12 Name As String*8
TeL As Integer TeL As Integer
End Type End TelBook
3．下列运算符中，优先级最低的是（c）。

A \
B /
C MO
D D *
4. 函数Choose(2,”+”,”-”,”*”,”/”)返回值是( b )。

A +
B -
C *
D /
5. 下列关于VB编码规则的叙述,错误的是( c)。

A 一条语句可以分多行书写
B 可以用“Rem”注释单行语句
C 注释可以放在语句之前
D 可以用“：”作为语句的结束符
6. 窗体上有一命令按钮Command1，编写下列事件过程：
Private Sub Command1_Click()
MsgBox Cstr(“123” + 123)
End Sub
程序运行时，单击按钮，消息对话框显示的内容是（ a ）。

A 246
B 123123
C 123 + 123
D 显示出错信息
7．使用（a ）方法可隐藏窗体，但不从内存中释放。

A Hide
B UnLoad
C Show
D Load
8. 为了使标签Label1有边框，正确的属性设置为（b）。

A Label1.BorderStyle=0
B Label1.BorderStyle=1
C Label1.BackStyle=0
D Label1.BackStyle=0
9. Pset方法绘制的点的大小受其容器对象的（）属性的影响。

A DrawWidth
B Picture
C AutoRedraw
D stretch
10. 如果要把单选按钮的标题显示在它的左边,应把( b)。

A Alignment 属性设置为0
B Alignment属性设置为1
C Style属性设置为0
D Style属性设置为1
11. 命令按钮不能响应( b )事件。

A DblClick
B DragDrop
C KeyPress
D MouseMove
12. 如果列表框()中只有一个项目被选中，则语句Debug.print List1.Selected
（List1.ListIndex）执行的结果是（b）。

A 在立即窗口中输出被选定的项目的索引值
B 在立即窗口中输出True
C 在立即窗口中输出Falsed
D 在立即窗口中输出被选定的项目的文本内容
13. 可以触发滚动条的Scroll事件的操作是(c )。

A 单击滚动条空白处
B 单击滚动条两端的箭头
C 拖动滚动条的滑块
D 单击滚动条的滑块
14. 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single, Y As Single) If Shift = vbShiftMask + vbCtrlMask And Button = vbRightButton
Then
Print “Visual Basic ”
End If
End Sub
运行时，为了在窗体上输出“Visual Basic”，应执行的操作为（d）。

A 按下Shift键和鼠标左键
B 同时按下Shift、Alt键和鼠标左键
C 按下Alt键和鼠标右键
D 同时按下Shift 、Ctrl键和鼠标右键
15. 下列程序段的执行结果是（b）。

Private Sub Form_Click()
For i = 1 To 5
Select Case i Mod 2
Case 0
Print “*”
Exit For
Case 1
Print “$”
Case Else
Print “#”
Next i
End Select
End sub
A *
B $
C *
D $
# * $ #
16.运行下列程序段，其中“n=n+1”语句被执行的次数是（c）。

Dim m%, n%
For m = 1 To 3
For n = 1 To 6 Step 2
n = n + 1
Next n
Next m
Print n
A 3
B 6
C 9
D 18
17. 设数组下标从0开始，有如下过程Fun：
Private Sub Fun(a() As Integer)
Dim T
Dim J As Integer
J = (LBound(a) + Ubound(a)) \ 2
For i = Lbound(a) To J
T = a(i): a(i) = a(UBound(a) – i ): a(UBound(a) - i) = T
Next i
End Sub
下列对其功能的叙述正确的是（）。

A 该过程能对传入数组进行升序排序
B.该过程能对传入数组进行降序排序
C.该过程能对传入数组进行序存放
D.以上均不对
18.窗体上有命令按钮Command1编写如下事件过程
Sub p(b() As integer)
For i=1To 4
b(i)=2*I
Next i
End Sub
Private Sub Command1_Click()
Dim a(1To4) As Integer
a(1)=1:a(2)=3
a(3)=5:a(4)=7
p a()
For i=1To4
A.1357
B.2468
C.26 10 14
D.2222
19.下面关于多重窗体的叙述,正确的是()
A.在多重窗体程序中,可以用关键字MY代表程序代码所在的窗体
B.没有
二、设计题
三、编程题:。