2015年秋季学期《VB程序设计》补考在线考试(适用于2016年4月份考试)
2015年秋季学期《VB程序设计》补考在线考试(适用于2016年4月份考试)试卷总分：100 测试时间：--
单选题 计算题 简答题 论述题 主观填空题 主观填空题 主观填空题 主观填空题 主观填空题
一、单选题（共 15 道试题，共 15 分。）V 1.应用程序设计完成后，应将程序保存，保存的过程是（ ）
A. 只保存窗体文件即可
B. 只保存工程文件即可
C. 先保存工程文件，之后保存窗体文件
D. 先保存窗体文件（或标准模块文件），之后还要保存工程文件
满分：1分
2.不可以通过下列（ ）操作将焦点赋给对象
A. 运行时使用TAB键
B. 在代码中用CALL语句调用
C. 在代码中用SETFOCUS方法
D. 用访问键或用鼠标单击选择对象
满分：1分
3.下面程序运行后输出的结果是：（ ）
A$="CHINA"
B$=STRING$(3,A$)
PRINT B$
END
A. CHI
B. CCC
C. INA
D. AAA
满分：1分
4.如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（ ）
A. 0
B. -1
C. TRUE
D. FALSE
满分：1分
5.下列关于属性设置的叙述错误的是：（ ）
A. 一个控件具有什么属性是VB预先设计好的，用户不能改变
B. 一个控件具有什么属性是VB预先设计好的，用户可以改变
C. 一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置
D. 一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值
满分：1分
6.用于设置通用对话框控件显示文件类型的属性是（ ）
A. Filter
B. Path
C. Partern
D. FoleName
满分：1分
7.把MsgBox的返回值转换为数值应该使用的函数是（ ）
A. Log
B. Str
C. Len
D. Val
满分：1分
8.
假定有以下程序段：For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j,i则语句Print i*j的执行次数是（ ）A. 15
B. 16
C. 17
D. 18
满分：1分
9.变量未赋值时，数值型变量的值为（ ）
A. 0
B. 空
C. 1
D. 无任何值
满分：1分
10.假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是（ ）
A. BOOLVAR=‘TRUE’
B. BOOLVAR = .TRUE.
C. BOOLVAR=#TRUE#
D. BOOLVAR=3＜4
满分：1分
11.在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是（ ）
A.Private Sub HScroll_Change()
Text1.Text=HScroll1.Value
End Sub
B. Private Sub HScroll_Click()
Text1.Text=HScroll1.Value
End Sub
C. Private Sub HScroll_Change()
Text1.Text=HScroll.Caption
End Sub
D.Private Sub HScroll_Click()
Text1.Text=HScroll.Caption
End Sub
满分：1分
12.用于从内存删除窗体的命令是（ ）
A. Move
B. Hide
C. Unload
D. Delete
满分：1分
13.当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到（ ）
A. MouseDown
B. MouseUp
C. Load
D. Click
满分：1分
14.为了检测到用户按下键盘上的所有键，应该使用的键盘事件为（ ）
A. KeyPress
B. MouseDown
C. KeyDown
D. MouseUp
满分：1分
15.假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（ ）
A. MenuItem.Enabled=False
B. MenuItem.Enabled=True
C. MenuItem.Visible=True
D. MenuItem.Visible=False
满分：1分1.
分析以下程序，写出运行结果。Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score Case Is ＜ 60 A$ = "F"
Case 60 To 69 A$ = "D" Case 70 To 79 A$ = "C" Case 80 To 89 A$ = "B" Case Else A$ = "A" End Select Print A$End Sub
满分：5分
2. 阅读下面的程序，写出执行结果。
Private Sub Form_load()
Form1.show
d = 0
For a = 1 To 2
For b = 1 To a
For c = b To 5
d = d + 1
Next c
Next b
Next a
Print d
End Sub
满分：5分
页:
[1]