东北大学13春学期《可视化程序设计Ⅰ》在线作业2

13春学期《可视化程序设计Ⅰ》在线作业2
试卷总分：100
单选题
一、单选题（共 20 道试题，共 100 分。）
V
1. 为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
A. 5
B. 500
C. 300
D. 5000
满分：5 分
2. 表达式4+56 * 7 / 8 Mod 9 的值是
A. 4
B. 5
C.
D. 7
满分：5 分
3. 以下关于图片框控件的说法中，错误的是
A. 可以通过Print方法在图片框中输出文本
B. 清空图片框控件中图形的方法之一是加载一个空图形
C. 图片框控件可以作为容器使用
D. 用Stretch属性可以自动调整图片框中图形的大小
此题选: D 满分：5 分
4. 目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
满分：5 分
5. 设a=“Visual Basic”，下面使b=“Basic”的语句是
A. "b=Left(a,8,12) "
B. " b=Mid(a,8,5)"
C. "b=Rigth(a,5,5)"
D. "b=Left(a,8,5)"
满分：5 分
6. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运
A. 15
B. 14
C. 13
D. 12
此题选: D 满分：5 分
7. 定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔
A. 分
B. 秒
C. 毫秒
D. 微秒
满分：5 分
8. 有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A. 15个字符
B. 15个字节
C. 或小于15个字符
D. 或小于15个字节
满分：5 分
9. 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
此题选: D 满分：5 分
10. 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x 20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
C. 195和3
D. 600和4
满分：5 分
11. 执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)
A. BBBB
B. 空
C. AAAA
D. 出错，不能产生信息框
此题选: D 满分：5 分
12. 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x 20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
C. 195和3
D. 600和4
满分：5 分
13. 在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click()x=0Do Until x=-1a = InputBox(“请输入A的值”)a = Val(a)b = InputBox(“请输入B的值”)b = Val(b)x = InputBox(“请输入x的值”)x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为
A. 2
B. 3
C. 14
D. 15
满分：5 分
14. 以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
满分：5 分
15. 在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click( ) a=Text1.text b=Text2.text C=Lcase(a) D=Ucase(b) PrintC;D End Sub 程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
满分：5 分
16. 关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
满分：5 分
17. 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
A. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
B. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
C. "Private Sub Command1_Click()CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
D. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"
满分：5 分
18. 文件列表框的Pattern属性的作用是（ ）
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示某一类型的文件
D. 显示该路径下的文件
满分：5 分
19. 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是
A. “text (.txt) (*.txt)”
B. “文本文件( .txt) (.txt)”
C. “text(.txt) (*.txt)”
D. “text(.txt)(*.txt)”
满分：5 分
20. 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X=5:Y=3Call Proc(X,Y)Label1.Caption= XLabel2.caption=YEnd Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮
A. 5和3
B. 25和3
C. 25和6
D. 5和6
满分：5 分