计算机二级(VB)39
(总分100,考试时间120分钟)
选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False?
A. double s(42)；
B. double sine(42)；
C. double Radians(42) )；
D. double Degrees(42) )；
2. 单击窗体上的关闭按钮时，触发的事件是（ ）。
A. TextField b = new TextField("关闭")；
B. TextArea b = new TextArea("关闭")；
C. BuRon b = new Button("关闭")；
D. Checkbox b = new Checkbox("关闭")；
欢乐合唱团演员失踪3. 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（ ）。
A. For i=0 To List1.ListCount-1 …… Next
五一劳动节标语简短B. For i=0 To ListCount-1 …… Next
著名钢琴家C. For i=1 To List1.listCount …… Next
D. For i=1 To ListCount …… Next
4. Visual Basic标题栏上显示了应用程序的（ ）。
A. 子类的访问权限比父类方法的访问权限要高
B. 继承性是面向对象方法的一个重要特征，它使代码可重用，可降低程序的复杂性
C. 子类方法不能产生比父类方法更多的异常
D. 重写是指子类的成员方法与父类的成员方法名字相同，参数列表相同，方法体不同
5. 下列程序段，在运行时最早输出的内容是（ ）。 a=2 C=1 AAA： C=C + a If c＜10 Then Print c GoTo AAA Else Print"10以内的奇数显示完毕。" End If
A. 3 B. 7
C. 9 D. 6
6. 下列程序段的执行结果为( )。 a=95 If a ＞ 60 Then degree=1 If a ＞ 70 Then degree=2 If a ＞ 80 Then degree=3 If a ＞ 90 Then degree=4 Print"degree="；degree
A. 8 9 B. 9 8
C. 程序有错误 D. 9 9
7. 单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() D
im a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A) End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End Function
A. 21 B. 19
C. 17 D. 34
8. 新建一个窗体，其Borderstyle属性设置为Fixed Single，但运行时却没有最大化和最小化按钮，可能的原因是 （ ）。
A. 默认情况下，属性Visible的值为False
B. 如果设置控件的Visible属性为False，则运行时控件会隐藏
C. Visible的值可设为True或者False
D. 设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态
9. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next i End Sub 该事件过程的功能是（ ）。
A. 输出n以内的奇数 B. 输出n以内的偶数
C. 输出n以内的素数 D. 输出n以内能被j整除的数
10. 单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub
A. 15 B. 16
C. 17 D. 18
11. 以下关于文件的叙述中，错误的是（ ）。
A. 顺序文件中的记录一个接一个地顺序存放
B. 随机文件中记录长度是随机的
C. 执行打开文件的命令后，自动生成一个文件指针
D. LOF函数返回给文件分配的字节数
12. 下列数据结构中，能用二分法进行查的是______。
A. 顺序存储的有序线性表 B. 线性链表
C. 二叉链表 D. 有序线性链表
13. 在窗体上画一个名称为File的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1．FileName，1) End Sub 以下关于该程序的叙述中，错误的是（ ）。
A. x没有实际作用，因此可以将该语句写为：Call Shell(File．FileName，1)
工程师报考条件
B. 双击文件列表框中的文件，将触发该事件过程
C. 要执行的文件的名字通过File1．FileName指定
D. File1中显示的是当前驱动器、当前目录下的文件
14. 下列程序段，在运行时最后输出的内容是( )。 a=2 c=3 AAA： c=c * a If c〈10 Then Print c GoTo AAA Else Print“10以内的奇数显示完毕” End If
A. 5，2，3 B. -5，-12，-7
情何以堪的近义词C. -5，-12，-17 D. 5，-2，-7
15. 有如下程序： Private Sub Commandl_Click( ) a$="A WORKER IS HERE" x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$="WOR" Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为( )。
A. 1 B. 2
C. 3 D. 5
16. 设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是( )。
A. a+=a-=(b=4) * (a=3) B. a=a * 3+2
C. x％(-3) D. y=float i
17. 下列程序段的执行结果为( )。 m=2 n=3 Do m=m+n n=n + 1 Loop While m＜10 Print m；n
A. CLASS ACLASS B
B. CLASS ACLASS BCLASS B
C. CLASS ACLASS BCLASS ACLASS B
D. CLASS ACLASS BCLASS BCLASS B
18. 对下列二叉树,进行中序遍历的结果是【 】
A. ACBDFEG B. ACBDFGE
C. ABDCGEF D. FCADBEG
19. 假定有如下事件过程：Private Sub Form_Click()Dim x As Integer, n As Integer x = 1n = 0Do While x < 28 x = x * 3n = n + 1Loop Print x, nEnd Sub程序运行后，单击窗体，输出结果为______。
A. 814 B. 563
C. 281 D. 2435
20. 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Co
mmand1，然后编写如下两个事件过程： 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，则在标签中显示的内容是
A. 空 B. abcdef
C. abc D. def
21. 有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是（ ）。 Const ShiftKey=1 Const CtrlKey=2 Const Key_F5=&H74 Const Key_F6=&H75 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode=Key_F5 And Shift=ShiftKey Then Print"Press Shift+F5" ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then Print"Press Ctrl+F6" End If End Sub
A. 无任何信息 B. Press Shift+F5
C. Press Ctrl+F6 D. 程序出错
22. 以下各项中，Visual Basic不能接收的图形文件是（ ）。
A. .ico文件 B. .jpg文件
C. .psd文件 D. .bmp文件
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论