【vb精品源码栏目提醒】:网学会员--在 vb精品源码编辑为广大网友搜集整理了:2012年9月份考试可视化程序设计(VB)第三次作业.doc - 计算机等级绩等信息,祝愿广大网友取得需要的信息,参考学习。
2012 年 9 月份考试可视化程序设计(
VB)第三次作业一、填空题(本大题共 40 分,共 10 小题,每小题 4 分)1.
VB 中三种文件访问类型是 ______ 、 ______ 、 ______2.
VB 中,在预定对话框里有两种对话框分别称为 ______ 和 ______ ,它们所用函数分别为 ______ 和 ______ 。
3.
VB 的数据类型可以分为 ______ 和 ______ 。
4.
VB 的控件分为 ______ 、 ______ 、 ______ 。
5. 要使标签框有边框,需设置 BorderStyle 属性的值为 ______ 。
6. 创建工具栏需要 ______ 件和 ______ 控件的组合。
7. 由 Array 函数建立的数组必须是 ______ 类型。
8.
VB 程序的错误一般分为 ______ 、 ______ 和 ______ 三类。
9. 在执行 KeyPress 事件过程中,KeyAscii 是所按键的 ______ 值,对于有上档字符和下档字符的键,档执行 KeyDown 事件过程中,KeyCode 是 ______ 字符的 ______ 值。
10. 反复执行的程序段称为 ______ ;进入循环体的条件称为 ______ ;中止循环体执行的条件称为 ______ 。
二、程序阅读题(本大题共 24 分,共 4 小题,每小题 6 分)1. Private Sub Command1_ClickDim n As IntegerDim t As Integern 354t 0While n 1t t f1n Mod 10 n n 10WendPrint tEnd SubPublic Function f1n As IntegerIf n 0 Thenf1 0Else If n 1 Thenf1 1Else f1 n f1n - 1End IfEnd Function单击一次 Command1 按钮一次,窗体上显示的是什么?2. 写出下列程序的输出结果。
Private Sub Form_ClickPrint Tab10 -100Tab20 200Tab30 -300Print Spc5 -100Spc5 200Spc5 -300 End Sub3. 写出下列事件过程的执行结果。
Public x As Integer Private Sub Command1_Clickx10Print xCall s1Print xCall s2Print xEnd Sub Private Sub s1xx20Print x End Sub Private Sub s2Dim x As Integerxx20Print xEnd Sub4. 下面程序的功能是对两个整型变量的值进行交换,在横线上填上适当内容。
Private Sub Command1_ClickDim a As Integer b As Integera10b20Print a a b b1Print a a b b End Sub Private Sub swapByRef a As Integer ByRef b As IntegerDim t As Integer2End Sub三、问答题(本大题共 24 分,共 4 小题,每小题 6 分)1. 在
VB 中,要对数据文件中的数据进行读写操作一般要经过哪三步?2.
VB 坐标系中旋转什么方向是正向3. 要使单精度变量 xyz 分别保留 1 位、2 位、3 位小数位,并在窗体显示,使用什么函数?如何写对应的 Print 方法?4. 使用 Pset 绘制像素点的大小由什么因素确定?四、程序设计题(本大题共 12 分,共 1 小题,每小题 12 分)某数组有 20 个元素,元素的值由键盘输入,要求将前 10 个元素与后 10 个元素对换。
即第 1 个元素与第 20 个元素互换,第 2 个元素与第 19 个元素互换,…,第 10 个元素与第 11 个元素互换。
输出数组原来各元素的值和对换后各元素的值。
答案:一、填空题(40 分,共 10 题,每小题 4 分)1.参考答案:顺序、随机、二进制解题方案:评分标准:22.参考答案:消息框、输入对话框、Msgbox、Inputbox解题方案:评分标准:23.参考答案:基本数据类型、自户自定义数据类型解题方案:评分标准:24.参考答案:内部控件、ActiveX 控件、可插入控件解题方案:评分标准:25.参考答案:1-Fixed Single解题方案:评分标准:26.参考答案:ToolBar、ImageList解题方案:评分标准:27.参考答案:Variant解题方案:评分标准:28.参考答案:编译错误,运行时错误,逻辑错误解题方案:评分标准:29.参考答案:ASCII、下档、ASCII解题方案:评分标准:210.参考答案:循环体、循环条件、结束循环条件解题方案:评分标准:2二、程序阅读题(24 分,共 4 题,每小题 6 分)1.参考答案:150解题方案:函数调用过程与循环操作评分标准:62.参考答案:-100 200 -300 -100 200 -300解题方案:Tab 函数使用方法评分标准:63.参考答案:执行结果为: 10 30 30 20 30解题方案:过程调用评分标准:64.参考答案:(1) swap a b 或 Call swap a b (2) ta: ab: bt解题方案:数据交换的实现评分标准:6三、问答题(24 分,共 4 题,每小题 6 分)1.参考答案:(1)打开文件。
(2)使用相关语句对打开文件进行读写操作。
(3)关闭文件。
解题方案:评分标准:42.参考答案:在
VB 坐标系中,逆时针方向为正,各绘图方法都参照此坐标系。
计算对象的坐标点时务必注意这一点。
解题方案:评分标准:43.参考答案:Print Formatx”0.0” 显示 1 位小数位 Print Formatx”0.00” 显示 2 位小数位 Print Formatx”0.000” 显示 3 位小数位解题方案:评分标准:44.参考答案:使用 Pset 绘制像素点的大小由当前容器的 DrawWidth 属性确定。
解题方案:评分标准:4四、程序设计题(12 分,共 1 题,每小题 12 分)0.参考答案:Dim a1 To 20 As Integer在通用的声明段中输入 Dim Private Sub Command1_ClickDim i As Integer t As IntegerFor i1 To 20输入 20 个元素的aiInputBox输入 a Formati : 输入Next iPrint 互换前各元素的值:For i1 To 20 输出互换前各元素的值Form1.Print aiNext iPrintFor i1 To 10互换操作tai:aia20-il:a20-i1t交换Next iPrintPrint 互换后各元素的值:For i1 To 20输出互换后各元素的值Form1.Print aiNext iEnd Sub解题方案:使用循环控制设计算法评分标准:循环 5 分,算法 5 分