计算机二级(VB)31_真题-无答案

计算机二级(VB)31

(总分100,考试时间120分钟)

选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。

1. 窗体文件的扩展名是（ ）。

A. Rem注释内容

B. ′注释内容

C. a=3：b=2，′对a、b赋值

D. Private Sub Command1_MouseDown(button As Integer，shift As Integer，_Rem鼠标按下事件的命令调用过程X As Single，Y As Single)

2. 在默认情况下，InputBox函数返回值的类型为（ ）。

A. constructAdestructA

B. constructAconstructAdestructAdestructA

C. constructAconstructAconstructAdestructAdestructAdestructA

D. constructAconstructAconstructAconstructAdestructAdestructAdestructAdestructA

3. 在程序运行期间可以将图形装入窗体、图片框或图像框的函数是（ ）。

A. DrawStyle B. AutoSize

C. PasswordChar D. LoadPicture

4. 在Visual Basic中，被称为对象的是 （ ）。

A. 在需要自定义Swing构件的时候，首先要确定使用哪种构件类作为所定制构件的父类

B. paintComponent( )方法位于JComponent类内，该方法与paint( )方法类似，也要求一个Graphics类的实例为参数

C. 无论在系统开始执行还是窗口被覆盖后需要重新绘制时，paintComponent( )方法都会被系统自动调用，所以在程序中不要调用它，否则会与自动化过程相冲突

D. 如果需要重新绘制Applet，就调用方法paintComponent( )

5. 设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show

= "" usEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As

Integer, X As Single, Y AsSingle)Print "程序设计" End SubPrivate Sub

Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic";End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是______。

A. Visual Basic B. 程序设计

C. Visual Basic程序设计 D. a程序设计

6. 下列说明中，不属于随机文件特点的是（ ）。

A. 可移植性和跨平台的特点

B. 多线程的并发机制

C. 编译器将Java源程序转换成机器码

D. Applet是Java的特殊应用程序，它嵌入到HTML中，随主页发布到互连网上

7. 有如下事件过程，当同时按下转换键Ctrl和功能键F6时，最后输出的信息是( )。

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" Elself

Key Code=Key_F6 And Shift=CtrlKey Then Print"Press Ctrl+F6" End If

End Sub

A. int a[10]； B. int a[2][20]；

C. int a[20][ ]； D. iht a[ ]；

8. 下列程序段，在运行时最后输出的内容是（ ）。 a=2 c=1 AAA: c=c + a

If c＜10 Then Print c GoTo AAA Else Print "10以内的奇数显示完毕" End If

A. public abstract int read( )throws IOException

B. public final void writeInt(int v)throws IOException

C. pubfic void close( )throws IOException

D. pubfic int available( )throws IOExcepfion

9. 下面有一段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是( )。

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii＞ =65 And KeyAscii＜=122 Then KeyAscii=42 End If End Sub

A. Picture B. CurentY

C. CurrentX D. Stretch

10. 单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click()

Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；y End

Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod

10 End Sub

A. 1 5 9 B. 7 5 3

C. 3 5 7 D. 5 9 1

11. 以下叙述中错误的是【 】

A. 一个工程中可以包含多个窗体文件

B. 在一个窗体文件中用Public定义的通用过程不能被其他窗体调用

C. 窗体和标准模块需要分别保存为不同类型的磁盘文件

D. 用Dim定义的窗体层变量只能在该窗本中使用

12. 当复选框被选中时，复选框的Value属性的值为（ ）。

A. 1 B. 2

C. 3 D. 4

13. 下列程序段，在运行时最早输出的内容是（ ）。 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

14. 执行下面的程序段后，变量c的值为( )。 a=14 b=30 Slect Case b10

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

15. 窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组

Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与 该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示， 为了实现上述功能，在程序中的问号（？）处应填入的内容是______。Private Sub

Option1_Click(Index As Integer) If <>"" ThenSelect Case ? Case 0

=Val() Case 1 =Val()*10Case

=Val()*100End SelectEnd IfEnd Sub

A. Index B.

C. Option1(Index) D. Option1(Index).Value

16. 数据库设计的根本目标是要解决______。

A. 数据共享问题 B. 数据安全问题

C. 大量数据存储问题 D. 简化数据维护

17. 两个或两个以上的模块之间关联的紧密程度称为______。

A. 耦合度 B. 内聚度

C. 复杂度 D. 数据传输特性

18. 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + d Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确 定”按钮后，在窗体上显示的内容为______。

A. 123 B. 456

C. 479 D. 123456

19. 按照“后进先出”原则组织数据的数据结构是______。

A. 队列 B. 栈

C. 双向链表 D. 二叉树

20. 图片框与图像框的区别是图片框可以作为其他控件的父对象，即为容器控件，而图像框只能 （ ）。

A. excellent B. good

C. pass D. fail

21. 窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。Private Sub Text1_LostFocus() Call

CheckInput(Text1,500) End SubPrivate Sub Text2_LostFocus() Call CheckInput(Text2,1000) End

SubSub CheckInput(t As ?,x As Integer) If Val()>x ThenMsgBox "请重新输入！"End IfEnd

Sub

A. Text B. SelText

C. Control D. Form

22. 设 a=5，b=4，c=3，d=2 下列表达式的值是______。3 > 2 * b Or a = c And b <> c Or c > d

A. 1 B. True

C. False D. 2

23. 如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过（ ）。

A. SELECT FROM 教师表IF(性别=‘男’)

B. SELECT性别FROM教师表IF(性别=‘男’)

C. SELECT * FROM教师表WHERE(性别=‘男’)

D. SELECT * FROM性别WHERE(性别=‘男’)

24. 以下各项，可以作为Visual Basic变量名的是（ ）。

A. Book B. 2_Seek

C. 123.58 D. Book-1

25. 确定一个控件在窗体上的位置的属性是（ ）。

A. Width和Height B. Width或Height

C. Top和Left D. Top或Left

26. 下列程序段执行结果为（ ）。 x=5 y=-6 If Not x＞0 Then x=y-3 Else y=x+3

Print x-y；y-x

A. k/1l B. k%11

C. k/11==0 D. k%11==0

27. 下列各选项说法错误的一项是（ ）。

A. 文件对话框可分为两种，即打开(Open)文件对话框和保存(Save As)文件对话框

B. 通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题

C. 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件

D. DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性

28. 在窗体上建立通用对话框需要添加的控件是（ ）。

A. 在Java中，常量null和true都需要小写

B. 浮点型数据小数位数bit越多，表示数的精度越高

C. 布尔型数据在内存中占两位

D. Unicode字符集要比ASCII集更丰富，它们是16位无符号数据

29. 在Visual Basic中，组合框是文本框和什么的特性的组合?

A. 复选框 B. 标签

C. 列表框 D. 目录列表框

30. 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n = Val()

If n2 = 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

31. 以下关于MsgBox的叙述中，错误的是（ ）。

A. MsgBox函数返回一个整数

B. 通过MsSBox函数可以设置信息框中图标和按钮的类型

C. MsgBox语句没有返回值

D. MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量

32. 数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和【 】

A. 编码设计 B. 测试阶段

C. 运行阶段 D. 物理设计

33. 在窗体上画一个命令按钮，然后编写如下程序： Private Sub Comrnand3_Click( )

Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static

x As Integer x=x + a Print x; End Sub 程序运行后，单击命令按钮，输出结果为( )。

A. 2 3 4 B. 2 5 9

C. 3 5 4 D. 2 4 3

34. 在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是（ ）。

A. 123 B. _name

C. class D. 1first

35. 单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click()

Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n10

m=m10 End Sub

A. 多态 B. 继承

C. 封装 D. 垃圾回收

填空题（每空2分，共30分）

36. 一个关系表的行称为【 】。

37. 下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。 Private Sub Command1_Click() Dim x As Single

x=InputBox("请输入x的值!") 【 】 Case Is<50 y=0．8

* x Case 50 To 100 y=0．7 * x 【 】 Print"输入的数据出界!" End Select Print x，y End Sub

38. 在E盘当前目录文件夹下建立一个名为“Student．txt''’的顺序文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private

Sub Form _ Click( ) 【 】 For i=1 To 5 StuName=InputBox("请输入姓名") StuGrade=InputBox("请输入年级号")

StuAge=InputBox("请输入年龄") 【 】 Next i 【 】

End Sub

39. 下列软件系统结构图的宽度为【 】

A. 正确 B. 错误

40. 下列程序的输出结果为【 】。 num=2 While num<=3 num=num+1

Print num Wend

41. 关系式x≤-5或x≥5所对应的布尔表达式是【 】。

42. 下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。 Private

Sub Form_Click() Dim i As Integer Open"Num．txt"For Output As #1

For i=1 To 8 【 】 Next i Close #1 End Sub

43. 把窗体的KeyPreView属性设置为True，并编写如下两个事件过程： Private Sub

Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下B键，则在窗体上输出的数值是【 】和【 】。

44. 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【 】属性设置为【 】。

45. 在窗体上有二个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。 Private Sub Form_Load() d=False End Sub

Private Sub Text1【 】() d=True End Sub

46. 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读 出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。Private

Sub Form_Click() Dim x As Single，y As Single Open "" For Input As #1

Open "" For Input As #2 Do While Not EOF(1) 【 】

Print x y=x^2 【 】 Print x Loop

Close #1，#2 End Sub

47. 下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 Sub TOF( ) Randomize Dim s As

Double Dim a(10) As lnteger For i=0 To 9 【 】 Next For i=0 To

9 If【 】Then Print a(i) s=s+a(i) 【 】

Next i Print Print "S=" ; s End Sub

48. 下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。 Private Sub Command1_Click() Dim x As Single

x=InputBox("请输入x的值!") 【 】 Case Is<50 y=0．8

* x Case 50 To 100 y=0．7 * x 【 】 Print"输入的数据出界!" End Select Print x，y End Sub

49. 本程序的功能是利用随机数函数模拟投币，方法是；每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、 Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。 程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click( ) Radomize n=CInt(Text1．Text) n1=0

n2=0 For i=1 To【 】 r=Int(Rnd*2) If r=【 】Then n1=n1+1

Else n2=n2+1 End If Next Next2．Text=n1 Next3．Text=n2

End Sub

50. 某二叉树中度为2的结点有18个，则该二叉树中有 _________个叶子结点。