计算机二级(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
printform3. 在程序运行期间可以将图形装入窗体、图片框或图像框的函数是（ ）。
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 Text1.Text = "" Text1.SetFocusEnd 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 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
15. 窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组 Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与 该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示， 为了实
现上述功能，在程序中的问号（？）处应填入的内容是______。Private Sub Option1_Click(Index As Integer) If Text1.Text<>"" ThenSelect Case ? Case 0 Text2.Text=Val(Text1.Text) Case 1 Text2.Text=Val(Text1.Text)*10Case 2Text2.Text=Val(Text1.Text)*100End SelectEnd IfEnd Sub
A. Index B. Option1.Index
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 + Text1.TextEnd 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(t.Text)>x ThenMsgBox "请重新输入！"End IfEnd Sub
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论