07-08(2)VB期末A卷(终稿1)

2007/08二学期程序设计基础VB试卷

说明：考生应将所有答案填写在答卷上，否则无效。 一、选择题（每小题1分，共8分）

1、控件的Left和Top属性是相对 而言的。

A、对象 B、窗体 C、控件 D、容器 2、在VB中，称对象的数据为 。

A、属性 B、方法 C、事件 D、函数 3、Long类型数据能够表示的最大整数为 。

A、2-1 B、2-1 C、2-1 D、2-1

4、以下 语句可以在任何时刻执行只删除列表框List1中的最后一项。 A、List1.RemoveItem List1.ListCount-1 B、List1.Clear C、List1.List(List1.ListCount-1)= \ D、List1.RemoveItem List1.Listindex

5、语句“Circle(1000,1000),400,VbRed,-6.28,-3.14,0.5”所做的图为 。 A、横轴为400、大于纵轴 B、横轴为400、小于纵轴 C、纵轴为400、大于横轴 D、纵轴为400、小于横轴 6、单选的列表框选中的文本，用 属性表示。

A、Selected B、List C、Text D、Caption 7、若i的初值为8，则下列循环语句的循环次数为 次。 Do Until i<=17 i=i+5 Loop

A、0次 B、1次 C、2次 D、3次 8、选中复选框控件时，Value属性的值为 。

A、True B、False C、0 D、1 二、填空题（每空格1分，共12 分）

1、面向对象的程序设计是一种以 ⑴ 为基础，由 ⑵ 驱动对象的编程技术。 2、X为一个三位数，用if语句判断其个位与百位是否对称的条件为 ⑶ 。 3、声明有n个元素的integer类型动态数组a，用 ⑷ 语句。 4、声明Double类型全局变量x，写作 ⑸ 。

5、调用过程时对形参的改变就是对相应实参变量的改变，则形参采用 ⑹ 传递方式。 6、语句“print Not 20<15 or 8<2^3”的输出结果是 ⑺ 。 7、将通用对话框的类型设置为“字体”对话框可以使用 ⑻ 方法。 8、利用定时器来连续播放动画时，其 ⑼ 属性可以控制播放的动画速度。 9、决定图形或图形控件填充色的属性是 ⑽ 。

10、Shape属性决定形状控件的 ⑾ ，当形状控件的填充样式为透明时，要改变其颜色，

必须先修改其 ⑿ 属性、再设置其颜色属性。

共6页，第1页

31

15

32

16

三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“√”或“×”）

1、VB的Double类型数据可以精确表示其数值范围内的所有实数。

2、For/Next循环正常（未执行Exit For）结束后，控制变量的当前值一定大于终值。 3、用Public声明的数组是全局量。

4、移动框架时框架内控件也跟随移动，但框架内控件的Left和Top属性值不会改变。 5、用Cls方法能清除窗体或图片框中用Picture属性设置的图形。

6、在窗体上绘制CommonDialog控件时，控件的大小、位置可由用户自己加以设定。 7、在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path=Drive1.Drive的作用

是：当Drive1的驱动器改变时，Dir1的目录列表随同驱动器作相应变化。 8、文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change事件。 9、语句“Callshell(\”可以打开Word文档e:\\aaa.doc。

10、在设计下拉菜单时，为了创建分隔栏，除了在标题栏中输入单连字符“－”外，还必须

给这个字符设定name属性。

四、程序阅读题（共24分）

阅读下列程序，将运行时的输出结果或改错的情况写在答卷纸相应题号下。

程序1. 写出三次单击Command1，分别输入100和75后、16和26、15和8时窗体上的显示结果（6分）。

Private Sub Command1_Click()

Dim a As Long,b As Long,r As Long a = InputBox(\ Do While b <> 0

r = a Mod b: a = b: b = r Loop Print a End Sub

程序2. 运行时在Text1中依次输入以回车结束的字符串\、\、\＋－×÷\，请依次每次所追加的表项是什么? 最后，列表框中所有表项依次是什么？（6分）。

Private Sub Form_load()

Text1.Text = \End Sub

Private Sub Text1_KeyPress(K As Integer) Dim n As Integer

If K >= Asc(\ If K = 13 Then

List1.AddItem Text1.Text, n n = n + 1: Text1.Text = \ End If End Sub

程序3. 单击窗体后打开CommonDialog1对话框，选择合适的字体名称、字体大小及是否使用下划线来修改文本框Text1中的文本格式。请问程序中有哪些错误，如何修改？（6分）

共6页，第2页

Private Sub Form_Click() CommonDialog1.ShowFont = 1

Text1.FontSize = CommonDialog1.FontSize Text1.FontName = CommonDialog1.FontName Text1.FontUnderline = True End Sub

程序4. 输入n和n个整数后在文本框中显示，调用函数计算偶数的个数并将其在标签框内显示。请问程序中有哪些错误，如何修改？（6分）

Private Sub Form_click()

Dim n As Integer, i As Integer n = InputBox(\输入数组个数\ ReDim a(n) As Integer For i = 1 To n

a(i) = InputBox(\输入第\个数\ Text1.Text = a(i) Next i

Label1.Caption= \其中有\个偶数\End Sub

Private Function oushu(b As Integer, m As Integer) As Integer Dim i As Integer For i = 1 To n

If b(i) Mod 2 = 0 Then oushu = oushu + 1 Next i End Function 五、程序填空题（每空格2分，共16分）

阅读下列程序说明和程序，将答案填写在答卷纸相应题号下。

程序1. 函数过程f返回Single类型数组n个元素的平均值，数组中最大值、最小值可以通过设置相应的实参返回到调用处。该过程可以被其他模块中的过程调用。

⑴ Dim i As Integer ⑵ For i = 2 To n

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ⑶ Next i f=f/n

End Function

程序2. 单击窗体后输入一个不小于6的正整数，然后输出该数所有的质数因子（如输入6则显示2、3，输入100则显示2、2、5、5，等等）。

Private Sub Form_click()

共6页，第3页

Dim n As Integer Do

n = InputBox(\请输入一个大于6的正整数\ Loop ⑷ Call f(n) Print End Sub

Private Sub f( ⑸ ) Dim i As Integer i = 2

Do While ⑹

If ⑺ Then k = k / i: Print i; Else ⑻ Loop End Sub

六、程序设计题（每题10分，共30分）

1、编程，输入x后按下式计算并显示f(x)的值。要求将g(x)、h(x)分别写做两个函数过程。

2、编写一个Sub过程，可以将1维Single类型数组按值从小到大排序。

3、某文本文件以下列格式存储若干个的学号和三门课成绩。编写单击窗体的事件过程，完成：⑴ 用通用对话框控件commondialog1选择文件 ⑵ 在Label1及Label2中显示平均分最高的学生之学号与总分 …… 此处隐藏：2417字，全部文档内容请下载后查看。喜欢就下载吧 ……