|
|
2015年秋季学期《VB程序设计》在线考试(适用于2015年12月份考试)
一、单选题（共 15 道试题，共 15 分。）V 1. 以下哪个是合法的变量（ ）A. right
B. abc@123
C. 123_abc
D. ab123c
谋学网：www.mouxue.com：1 分
2. 使文本框获得焦点的方法是（ ）A. Change
B. GetFocus
C. SetFocus
D. LostFocus
谋学网：www.mouxue.com：1 分
3. 程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（ ）A. DragDrop
B. MouseDown
C. MouseUp
D. MouseMove
谋学网：www.mouxue.com：1 分
4. 变量未赋值时，数值型变量的值为（ ）A. 0
B. 空
C. 1
D. 无任何值
谋学网：www.mouxue.com：1 分
5. 以下合法的Visual Basic标识符是（ ）A. ForLoop
B. Const
C. 9abc
D. a#x
谋学网：www.mouxue.com：1 分
6. 为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（ ）A. 0
B. 1
C. 2
D. 3
谋学网：www.mouxue.com：1 分
7. 不可以通过下列（ ）操作将焦点赋给对象A. 运行时使用TAB键
B. 在代码中用CALL语句调用
C. 在代码中用SETFOCUS方法
D. 用访问键或用鼠标单击选择对象
谋学网：www.mouxue.com：1 分
8. 应用程序设计完成后，应将程序保存，保存的过程是（ ）A. 只保存窗体文件即可
B. 只保存工程文件即可
C. 先保存工程文件，之后保存窗体文件
D. 先保存窗体文件（或标准模块文件），之后还要保存工程文件
谋学网：www.mouxue.com：1 分
9. 表达式 5 Mod 3+3\5*2的值是（ ）A. 0
B. 2
C. 4
D. 6
谋学网：www.mouxue.com：1 分
10. 以下能够触发文本框Change事件的操作是（ ）A. 文本框失去焦点
B. 文本框获得焦点
C. 设置文本框的焦点
D. 改变文本框的内容
谋学网：www.mouxue.com：1 分
11.
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox("Input") Select Case x Case 1,3 Print "分支 1" Case Is >4 Print "分支 2" Case Else Print "Else 分支 " End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）A. 分支1
B. 分支2
C. Else分支
D. 程序出错
谋学网：www.mouxue.com：1 分
12. 要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应：（ ）A. 设置窗体的VISIBLE属性
B. 设置窗体的CAPTION
C. 调用窗体的SHOW方法
D. 设置窗体ENABLED属性
谋学网：www.mouxue.com：1 分
13. 下列关于控件画法的叙述错误的是（ ）A. 单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件
B. 按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件
C. 双击工具箱中的控件图标，所画控件的大小和位置是固定的
D. 不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符
谋学网：www.mouxue.com：1 分
14. 下面程序运行后输出的结果是：（ ）
A$="CHINA"
B$=STRING$(3,A$)
PRINT B$
END
A. CHI
B. CCC
C. INA
D. AAA
谋学网：www.mouxue.com：1 分
15. 滚动条控件的属性中，表示取值范围最大值的属性是（ ）A. Max
B. LargeChange
C. Min
D. Value
谋学网：www.mouxue.com：1 分
二、计算题（共 2 道试题，共 10 分。）V 1. 阅读下面的程序，写出执行结果。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
谋学网：www.mouxue.com：5 分2. 阅读下面的程序，分析并写出其功能。Sub insert(a() As Single,ByVal x As Single)
Dim m as integer,n as integer
n=1
Do While n<20 And x>a(n)
n=n+1
Loop
For m=20-1 To n Step –1
a(m+1)=a(m)
Next m
a(n)=x
End Sub
谋学网：www.mouxue.com：5 分
三、简答题（共 10 道试题，共 30 分。）V 1. 在程序设计中为什么尽量不用GoTo语句？
谋学网：www.mouxue.com：3 分2. 表达式2>3 And 4＜=5 Or 4>4的值是什么？
谋学网：www.mouxue.com：3 分3. 如何为一个菜单项设置热键和快捷键？
谋学网：www.mouxue.com：3 分4. 什么是文件？文件的作用是什么？
谋学网：www.mouxue.com：3 分5. 表间的关系类型有哪几种？
谋学网：www.mouxue.com：3 分6. 在什么情况下可以设置断点？
谋学网：www.mouxue.com：3 分7. 请说明PRINT #和WRITE #语句的区别。
谋学网：www.mouxue.com：3 分8. 框架的作用是什么？
谋学网：www.mouxue.com：3 分9. 在工程资源管理器窗口中，主要列出了哪三类文件？
谋学网：www.mouxue.com：3 分10. 什么是对象？如何建立对象？
谋学网：www.mouxue.com：3 分
四、论述题（共 2 道试题，共 20 分。）V 1.
编程题
输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error信息。（界面自行设计）
谋学网：www.mouxue.com：10 分2.
编程题
实现二进制方式文件的复制。（界面自行设计）
谋学网：www.mouxue.com：10 分
五、主观填空题（共 1 道试题，共 5 分。）V 1. 设某列表框共有10项，按题目要求补齐程序，完成相应的功能。
（1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上：
Private Sub Command1_Click( )
List.(7)=True
Print List1.
End Sub
（2）单击列表框某一项时立即将该项打印在窗体上：
Private Sub List1_Click( )
Print
End Sub
（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项：
Private Sub Command1_Click( )
For I=1 To 5
List1.
Next I
End Sub
（4）在列表框的每一项之后插入一个新的项：
Private Sub Command1_Click( )
For I=1 to 10
X=InputBox(“请输入插入的第” & I & “项内容”)
List1.AddItem
Next I
End Sub
试题谋学网：www.mouxue.com：5 分
第 1 空、 谋学网：www.mouxue.com：1 分
第 2 空、 谋学网：www.mouxue.com：1 分
第 3 空、 谋学网：www.mouxue.com：1 分
第 4 空、 谋学网：www.mouxue.com：1 分
第 5 空、 谋学网：www.mouxue.com：1 分
六、主观填空题（共 1 道试题，共 4 分。）V 1. 设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.( )
Label1.Caption = Hscroll1.
End Sub
要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。
Private Sub Hscroll1.( )
Label1.Caption = Hscroll1.
End Sub
试题谋学网：www.mouxue.com：4 分
第 1 空、 谋学网：www.mouxue.com：1 分
第 2 空、 谋学网：www.mouxue.com：1 分
第 3 空、 谋学网：www.mouxue.com：1 分
第 4 空、 谋学网：www.mouxue.com：1 分
七、主观填空题（共 2 道试题，共 6 分。）V 1. 文件按存取方式及其组成结构可分为文件、文件和文件。
试题谋学网：www.mouxue.com：3 分
第 1 空、 谋学网：www.mouxue.com：1 分
第 2 空、 谋学网：www.mouxue.com：1 分
第 3 空、 谋学网：www.mouxue.com：1 分
2. 窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将控件的属性设置为。
试题谋学网：www.mouxue.com：3 分
第 1 空、 谋学网：www.mouxue.com：1 分
第 2 空、 谋学网：www.mouxue.com：1 分
第 3 空、 谋学网：www.mouxue.com：1 分
八、主观填空题（共 2 道试题，共 4 分。）V 1. 生成消息框的命令是，生成输入框的命令是。
试题谋学网：www.mouxue.com：2 分
第 1 空、 谋学网：www.mouxue.com：1 分
第 2 空、 谋学网：www.mouxue.com：1 分
2. 要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的属性为。
试题谋学网：www.mouxue.com：2 分
第 1 空、 谋学网：www.mouxue.com：1 分
第 2 空、 谋学网：www.mouxue.com：1 分
九、主观填空题（共 6 道试题，共 6 分。）V 1. 要将焦点定位到命令按钮Command1上，需要使用代码。
试题谋学网：www.mouxue.com：1 分
第 1 空、 谋学网：www.mouxue.com：1 分
2. 设置计时器控件只能触发事件。
试题谋学网：www.mouxue.com：1 分
第 1 空、 谋学网：www.mouxue.com：1 分
3. 函数Abs(x)的功能是。
试题谋学网：www.mouxue.com：1 分
第 1 空、 谋学网：www.mouxue.com：1 分
4. 表达式3/6*5的值是。
试题谋学网：www.mouxue.com：1 分
第 1 空、 谋学网：www.mouxue.com：1 分
5. 在标签控件中通过编程使文字换行用的代码是。
试题谋学网：www.mouxue.com：1 分
第 1 空、 谋学网：www.mouxue.com：1 分
6.
表达式chr(Asc("a") + 5)的值为。
试题谋学网：www.mouxue.com：1 分
第 1 空、 谋学网：www.mouxue.com：1 分
|
|
IP卡
狗仔卡
发表于 2015-12-29 11:04:24
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2015-12-29 11:14:31
客服一
