计算机二级(VB)16
(总分1780,考试时间90分钟)
选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub Command1_Click() Dim a(30) As IntegerFor i=1 To 30a(i)=Int(Rnd*100) NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItemIf arrItem>90 Then Exit ForNextEnd Sub 对于该事件过程，以下叙述中错误的是______。
A. a数组中的数据是30个100以内的整数
B. 语句For Each arrItem In a有语法错误
C. If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数
D. If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环
2. 设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效?
A. Style B. Caption
C. Enabled D. Default
3. 单击命令按钮，下列事件过程的执行结果为( )。 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n \ 10+2 m = m \ 10+2 End Sub
A. 0 8 B. 40 72
C. 4 50 D. 78 50
4. Print方法可以在对象上输出数据，这些对象包括（ ）。
A. 程序错误 B. 内存为20地址的大小．
C. 20 D. 4
5. 下列程序的执行结果为( )。 Private Sub Commandl_Click() Dim s1 As String ,s2 As
String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub
A. dcba B. abdc
C. abcd D. dabc
6. 标签控件能够显示文本信息，决定其文本内容的属性是（ ）。
A. Alignment B. Caption
C. Visible D. BorderStyle
7. 执行下面的程序段后，变量c的值为( )。 a=14 b=30 Slect Case b\10 Case 0 C=a * 10 + b Case 1 To 9 C=a * 100+b Case 10 To 99 C=a * 1000 + b End Select print c
A. excellent B. good
C. pass D. fail
8. 激活菜单栏的快捷键是（ ）。
A. SELECT姓名，仓库名FROM职工；WHERE基本工资＞3000
B. SELECT姓名，仓库名FROM仓库；WHERE基本工资＞3000
C. SELECT姓名，仓库名FROM职工，仓库；WHERE(基本工资＞3000)OR(职工．仓库号=仓库．仓库号)
D. SELECT姓名，仓库名FROM职工，仓库；WHERE(基本工资＞3000)AND(职工．仓库号=仓库．仓库号)
9. 在PasswordChar属性中设置#，但运行时仍显示文本内容，原因是（ ）。
A. 文本框的Locked属性设置为False
B. 文本框的Locked属性设置为Tree
C. 文本框的Multiline的属性设置为Fasle
D. 文本框的Multiline的属性设置为True
10. 关于货币型数据的说明，正确的是（ ）。
A. 货币型数据有时可以表示成整型数据
B. 货币型数据与浮点型数据完全一样
C. 货币型数据是由数字和小数点组成的字符串
D. 货币型数据是小数点位置固定的实型数
11. 在窗体上画一个名称为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，然后单击命令按钮，窗体上显示的是（ ）。
11. 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strText End Sub Private Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
11. 在窗体上添加标签控件Label1之后，标签控件的默认的名称Name是（ ）。
A. 5，689．36 B. 5，689．360
C. 5，689．3 D. 005，689．360
12. 下面的属性中，用于自动调整图像框中图形内容的大小的是（ ）。
A. Picture B. CurentY
C. CurrentX D. Stretch
13. 下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I＞=
7 Print " I= "；I Print "x="；x
A. for循环只能用于循环次数已经确定的情况
B. for循环是先执行循环体语句，后判断表达式
C. 在for循环中，不能用break语句跳出循环体
D. for循环的循环体语句中，可以包含多条语句，但必须用花括号括起来
14. 下列各控件不包含滚动条的控件是（ ）。
A. x=4 B. x=8
C. x=6 D. x=12
15. 以下程序运行后，单击按钮输出结果是( )。 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub
A. 6 6 12 7 11 11
vb软件开发B. 8 5 105 11 11
C. 9 6 129 10 15
D. 8 10 105 9 10
16. 下列叙述中正确的是______。
A. 软件测试应该由程序开发者来完成 B. 程序经调试后一般不需要再测试
C. 软件维护只包括对程序代码的维护 D. 以上三种说法都不对
17. 属性 BorderColor的作用是（ ）。
A. 设置直线颜和形状边界颜 B. 设置直线或形状背景颜
C. 设置直线或形状边界线的线型 D. 设置形状的内部颜
18. 建立一个新的标准模块，应该选择哪个菜单下的“添加模块”命令?
A. “工程”菜单 B. “文件”菜单
C. “工具”菜单 D. “编辑”菜单
19. 下列几项中，属于合法的日期型常量的是（ ）。
A. "10/10/02" B. 10/10/02
C. {10/10/02} D. #10/10/02#
20. 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1 的计时器控件，并把其Interval属性设置为500，如图所示: 编写如下程序： Private Sub Form_Load( ) Timer1．Enabled=false End Sub Private Sub Command1 Click( ) Timer1．Enabled=True End Sub Private Sub Timer1_Timer( ) If Label1．Left＜Width Then Label1．Left=label1．Left+20 Else Label1．Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是（ ）。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论