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  分