VB期末练习卷三

练习卷三

一、 语言基础题（40分）

判断题（本题10分，每小题1分）

1． 都能显示和输入文字是控件TextBox 与Label的共同特点之一。 2． Do Until ---- Loop 语句实现循环时 , 当条件为False时才执行循环。

3． 通过vb编译生成的文件具有.EXE文件扩展名，该文件只能在VB环境下执行。 4． InputBox函数的数据类型是String。 5． 变量尾部的%符号隐式声明变量为整型。

6． Dim a1,a2 as Integer 语句显式声明变量a1和a2 都为整型变量。 7． 过程调用时，实际参数的个数与形式参数的个数不一定要相等。

8． 可以在窗体或标准模块的通用声明部分声明全局变量，但不可以在过程里声明全局变量。

9． 控件数组的每个元素都有相同的Name属性值和不同的Index属性值，其中最小的Index属性值为0。 10． 当拖曳滚动条中的滚动框时，便发生滚动条Scroll事件。

单选题（本题10分，每小题1分）

1． 改变某控件在窗体中的上下位置应修改该控件的( )属性。 [A] Me.Clear [B] Me.Cls [A] flge = ' True ' [A] 事件、方法

[C] Top

[D] Left

[D] flge = 3 < 4

2． 假定flge是逻辑型变量,下面赋值语句中正确的是( )

[B] flge = \ [C] flge = # True #

3． 一个对象可以执行的动作和可被对象识别的动作分别称为:

[B] 方法、事件 [C] 属性、方法

[D] 过程、事件

4． Sub 过程与Function 过程最根本的区别是:

[A] 前者可以使用Call 或直接使用过程名调用, 后者不可以. [B] 后者可以有参数, 前者不可以. [C] 两种过程参数的传递方式不同. [D] 前者无返回值,但后者有. 5． 列表框控件的下列几个属性中, 哪一个不是数组: [A] List [A] Form

[B] ListIndex [B] PictureBox

[C] Selected [C] Shape

[D] ItemData

6． 下面哪种类型的对象不能作为控件的容器:

[D] Frame

7． 下面哪类控件不支持Change 事件: [A] TextBox [B] Label [A] Chr [A] Scale [A] Form

[B] InStr

[C] PictureBox [D] ListBox [C] Val

[D] Asc

8． 下列函数中, 返回值是字符串的是:

9． 移动滚动条中的滚动框, 将触发该滚动条的什么事件:

[B] KeyDown

[C] Change

[D] Scroll

[D] Frame

10．下面哪种对象没有 Caption 属性:

[B] TextBox [C] CommondButton

填空题（本题20分，每小题2分）

1． 定时器控件的Interval 属性值是指时间间隔，当每隔此间隔的时间，定时器会触发一次 事件。 2． VB 为添加到窗体上的第一个图片框提供的默认对象名为 。 3． 当复选框被选中, 它的Value属性值为 。

4． 在过程调用中，参数传递分为按值传递和按地址传递，其中按地址传递是默认方式。使用 关键字来修饰参数，可以使之按值传递。 5． 判断变量X是不是能被5 整除的偶数，逻辑表达式写为 。 6． 表达式（-5）Mod 8 的值为 。

7． 如果在模块的声明段中有 Option Base 0 语句, 则在模块中使用 Dim a (6, 3 To 5 )声明的数组有 个元素 8． 如果要强制变量的声明, 应在模块的声明段使用 语句。

9． 已知a 、b、c都是整型变量,，描述条件 a和b 中至少有一个大于c 的VB逻辑表达式是 。 10．声明变量类型有二种方法，它们是： 。 二、 程序阅读题（本题20分，每小题5分）

1．设窗体上有两个控件：文本框 Text1和按钮Command1 ,下面是按钮的Click事件过程, 单击按钮后, 文本框中最终显示什么: Private Sub Command1_Click()

Dim a(2, 4) As Integer, b(4) As Integer

Dim c As Integer Do While c <= 4

a(1, c) = a(1, c) + 2 * c - 1 a(2, c) = a(2, c) + 12 - 2 * c c = c + 1 Loop c = 1

Do While c <= 4

2．单击窗体打印出的结果是： Private Sub Form_click() A = 1：B = A Do Until A >= 5 X = A * B

Print Str$(A) & \3．单击窗体打印出的结果是： Private Sub Form_Click() Dim F(2) For I = 0 To 2

F(I) = SQ(I * I + 1) Next I I = I - 1 Do Until I = 0 I = I - 1

4．当单击窗体时,窗体上显示内容的第一行和第二行分别是: Private Sub Form_Click() test 2 End Sub

Public Sub test(x As Integer) x = x * 2 + 1 If x < 6 Then

三、 程序填空题（本题20分，每空2分）

b(c) = a(1, c) + a(2, 5 - c) Text1.Text = b(c) c = c + 1 Loop End Sub

A = A + B B = B + A Loop End Sub

Print \ Loop End Sub

Public Function SQ(X) X = X + 2 SQ = X * 4 - 5 End Function

Call test(x) End If x = x * 2 + 1 Print x End Sub

1．用随机数产生十个[ 10---50 ]的随机整数(包括10 和 50 ),并按由小到大顺序并五个一行打印出来 Option Base 1 For i = 1 To 9 Dim a(10) As Integer imin = i Private Sub Form_Click() For j =----(4)---To 10 Dim i, j As Integer If a(imin) > a(j) Then imin = j Dim t As Integer Next j Randomize t = a(i) For i = 1 To 10 a(i) = a(imin) a(i) = ----(1)--- a(imin) = ----(5)--- Next i Next i Print \排序前数据:\ Print \排序后数据:\ For i = 1 To ----(2)--- For i = 1 To 10 Print a(i); Print a(i); If ----(3)--- Then Print If i Mod 5 = 0 Then Print Next i Next i Print End Sub

2．盘上有个\文件，数据为某班级学生姓名，计算机成绩，编写程序求该班计算机平均成绩。 '平均成绩

Private Sub Command2_Click()

Open \（1）------- As 1 total = 0 '计算总分 n = 0 '统计学生人数 Do While Not -------（2）------- Input #1, stu_name, score total = total + score n = n + 1

Loop

Print \平均成绩=\ -------（3）------- End Sub

'删除

Private Sub Command6_Click() Dim f_name As String

Dim stu_name As String Dim score As Integer f_name = Text1.Text

Open \ Open \ Do While Not EOF(1) Input #1, stu_name, score

If stu_name = -------（4）------- Then Exit Do Write #2, stu_name, score

四、 程序设计题（本题20分，每小题10分）

Loop

Do While Not EOF(1) Input #1, stu_name, score

-------（5）------- #2, stu_name, score Loop Close

Kill \ '删除文件格式 Kill file Name \ End Sub

1． 编写计算阶乘的Function 过程,利用ex的下述近似公式计算e 直到最后一项小于1E-8 为止)。编写窗体代码要求在\立即\窗口输出计

算结果。

ex≈ 1+ x/1!+x2/2!+x3/3!+…..+xn/n!

2． 利用文本框检查用户口令，使用静态变量来限制输入三次，在文本框中输入口令按回车后，如果口令错，则提示\对不起，口令错！\，

如输入三次仍错，则提示\对不起，您无权使用\。如三次内口令正确, 则提示\欢迎使用本系统!\。

Text1 Label1

练习卷三 标准答案及评分标准

五、 语言基础题

判断题评分标准： 1．× 2．√

3．×

4．√

5．√

6．×

7．×

8．√

9．√

10．√

单选题评分标准： 1．C 2．D 3．B 4．D 5．B 6．C 7．D 8．A 9．D 10．B 填空题评分标准：本题20分，每小题2分 1． Timer 2． Picture1 3． 1 4． ByVal 5． X Mod 10 = 0 说明：写”X Mod 10”得一分 六、 程序阅读题

评分标准：每小题5分。完全与标准答案吻合可以得5分，若数据正确或格式正确则酌情给分。 1． 17 3． F(1 )= 11 F(0 ) = 7 七、 程序填空题

评分标准：本题20分，每空2分。 1．

（1） Int (Rnd*41)+10 或 Int (Rnd*(50-40+1))+10 （2） 10 （3） i mod 5=0 2．

（4） i+1 （5） t

2． 1*1 = 1 2*3 = 6 4． 23 47 6． -5 7． 21

8． Option Explicit 9． a > c OR b > c

10．显式声明变量和隐式声明变量

（1） Input 八、 程序设计题 1．评分标准：本题10分

（2） Eof(1) （3） Close 1 （4） f_name （5） Write

事件名及变量声明（1分）：变量可以不声明，但是如果声明错误要扣分。 函数声明（1分） For循环（2分）：其中初值1分，循环结构1分。 函数返回值(1分) 。 Do循环（4分）：其中初值1分，循环结构2分，循环条件1分。 循环结构语句不限。 Debug.Print s 得(1分) 参考程序：

Public Function fact(x As Integer) Dim n As Integer Dim p As Long s = 1: n = 1: t = 1 p = 1 Do For n = 1 To x t = 1 / fact(n) p = p * n s = s + t Next n n = n + 1 fact = p Loop While t >= 10 ^ -8 End Function Debug.Print s Private Sub Form_Click() End Sub 2．评分标准：本题10分 事件过程格式 (1分) 静态变量正确声明（1分） If KeyAscii = 13 Then (1分)

If Text1.Text = \和对应的Else (1分)

所有的Label1.Caption = … 共 (2分):错一个去1分,两个及以上去2分 n=n+1 语句(1分)

if n = 3 then ….else语句 (2分) Text1.Enabled = False语句 (1分) 参考程序：

Private Sub Text1_KeyPress(KeyAscii As Integer) Static n As Integer If KeyAscii = 13 Then

If Text1.Text = \

Label1.Caption = \欢迎使用本系统\ Else n = n + 1 If n = 3 Then

Label1.Caption = \对不起，您无权使用\ Text1.Enabled = False Else

Label1.Caption = \对不起，口令错!\ Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End If End If End If End Sub