可视化程序设计（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_Click() Dim n As IntegerDim t As Integern = 354 t = 0 While (n 1) t = t + f1(n Mod 10) n = n 10 Wend Print t End Sub Public Function f1(n As Integer)If (n = 0) Thenf1 = 0Else If (n = 1) Then f1 = 1 Else f1 = n * f1(n - 1)End If End Function 单击一次Command1按钮一次，窗体上显示的是什么？2. 写出下列程序的输出结果。 Private Sub Form_Click Print Tab(10); -100;Tab(20); 200;Tab(30); -300 Print Spc(5); -100;Spc(5); 200;Spc(5); -300End Sub3. 写出下列事件过程的执行结果。 Public x As Integer Private Sub Command1_Click() x=10 Print x Call s1Print xCall s2 Print x End SubPrivate Sub s1() x=x+20 Print xEnd SubPrivate Sub s2()Dim x As Integerx=x+20 Print x End Sub4. 下面程序的功能是对两个整型变量的值进行交换，在横线上填上适当内容。 Private Sub Command1_Click() Dim a As Integer, b As Integer a=10b=20 Print a=; a, b=; b (1) Print a=; a, b=; bEnd SubPrivate Sub swap(ByRef a As Integer, ByRef b As Integer) Dim t As Integer (2) End Sub三、问答题（本大题共24分，共 4 小题，每小题 6 分）1. 在VB中，要对数据文件中的数据进行读写操作一般要经过哪三步？2. VB坐标系中旋转什么方向是正向3. 要使单精度变量x,y,z分别保留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. 参考答案：1Fixed 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. 参考答案：（） swap a, b 或Call swap( a, b) （） t=a: a=b: b=t解题方案：数据交换的实现评分标准：6三、问答题（24分，共 4 题，每小题 6 分）1. 参考答案：（1）打开文件。 （2）使用相关语句对打开文件进行读写操作。 （3）关闭文件。解题方案：评分标准：42. 参考答案：在VB坐标系中，逆时针方向为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。解题方案：评分标准：43. 参考答案：Print Format(x,”0.0”) 显示1位小数位Print Format(x,”0.00”) 显示2位小数位Print Format(x,”0.000”) 显示3位小数位解题方案：评分标准：44. 参考答案：使用Pset绘制像素点的大小由当前容器的DrawWidth属性确定。解题方案：评分标准：4四、程序设计题（12分，共 1 题，每小题 12 分）0. 参考答案：Dim a(1 To 20) As Integer 在通用的声明段中输入Dim Private Sub Command1_Click() Dim i As Integer, t As Integer For i=1 To 20输入 20个元素的a(i)=InputBox(输入 a( & Format(i, #) & ):) 输入 Next i Print 互换前各元素的值： For i=1 To 20 输出互换前各元素的值 Form1.Print a(i);Next i Print For i=1 To 10互换操作 t=a(i