电子科大11秋学期《VB程序设计》在线作业资料3(满分)

久爱奥鹏晓林

一、单选题（共 20 道试题，共 100 分。）V 1.  使文本框获得焦点的方法是（ ）。
A. GotFocus
B. Change
C. ListFocus
D. SetFocus
      满分：5  分
2.  刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。
A. 单选按钮
B. 图片框
C. 通用对话框
D. 文本框
      满分：5  分
3.  为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。
A. Get文件号，记录号，变量名
B. Get文件号，变量名，记录号
C. Put文件号，变量名，记录号
D. Put文件号，记录号，变量名
      满分：5  分
4.  在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a=InputBox("Enter the Firstinteger") b=InputBox("Enter the Secondinteger") Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是（ ）。
A. 246
B. 123
C. 456
D. 123123
      满分：5  分
5.  在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。
A. CommonDialog1.Filter=“*.DOC|*.doc”
B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C. CommonDialog1.Filter=“text(.doc)||(*.doc)”
D. CommonDialog1.Filter=“text(.doc)(*.doc)”
      满分：5  分
6.  ADO数据控件的RecordSoure属性是表示（ ）。
A. 与ADO数据控件连接的数据库
B. 与数据库的连接方式
C. 数据库类型
D. ADO数据控件可访问的数据来源
      满分：5  分
7.  指出下面哪个语句不是写文件语句（ ）。
A. Print
B. Output
C. Write
D. Put
      满分：5  分
8.  在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1____() TxtTime.text=Time End Sub 在横线上应填入的内容是（ ）。
A. Enabled
B. Visible
C. Interval
D. Timer
      满分：5  分
9.  Sub过程与Function函数的最根本区别是（ ）。
A. Function过程可以有参数，而Sub过程不可以
B. 两种过程参数的传递方式不同
C. Sub过程无返回值，但Function过程有返回值
D. Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用
      满分：5  分
10.  窗体的MouseDown事件过程如下： Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single) 其中有4个参数，关于这些参数，正确的描述是（ ）。
A. 通过Button参数判定当前按下的是哪一个鼠标键
B. Shift参数只能用来确定是否按下Shift键
C. Shift参数只能用来确定是否按下Alt键和Ctrl键
D. 参数x、y用来设置鼠标当前位置的坐标
      满分：5  分
11.  执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
      满分：5  分
12.  关于复选框和单选按钮的Value属性，说法正确的是（ ）。
A. 复选框的Value属性有2个值
B. 单选按钮的Value属性有3个值
C. Value属性的值都是True或False
D. 复选框的Value属性有3个值
      满分：5  分
13.  当拖动滚动条中的滚动块时，将触发滚动条的哪个事件（ ）。
A. Move
B. Change
C. Scroll
D. SetFocus
      满分：5  分
14.  图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是（ ）。
A. Autosize
B. Stretch
C. Autoredraw
D. Appearance
      满分：5  分
15.  目录列表框的Path属性的作用是（ ）。
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
      满分：5  分
16.  设a=3,b=5,则以下表达式值为真的是（ ）。
A. a>=b And b>10
B. a>b) or (b>0)
C. (a<0) Eqv (b>0)
D. (-3=5>a) And (b>0)
      满分：5  分
17.  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A. 1 3.4 5.8
B. 1 3 5
C. 1 4 7
D. 无数据输出
      满分：5  分
18.  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为（ ）。
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
      满分：5  分
19.  在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2,4,6 x = 20 Case Is<10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A. 10
B. 20
C. 30
D. 40
      满分：5  分
20.  设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5 - I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。
A. 4321
B. 5432
C. 6543
D. 7654
      满分：5  分
需要满分标准资料请直接加QQ :1306998094