vb期末考试练习卷3及答案

练习卷三

一、 语言基础题（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 [C] Top [D] Left 2．假定flge是逻辑型变量,下面赋值语句中正确的是( ) [A] flge = ' True ' [B] flge = \[C] flge = # True # [D] flge = 3 < 4

3．一个对象可以执行的动作和可被对象识别的动作分别称为: [A] 事件、方法 [B] 方法、事件 [C] 属性、方法 [D] 过程、事件 4．Sub 过程与Function 过程最根本的区别是:

[A] 前者可以使用Call 或直接使用过程名调用, 后者不可以. [B] 后者可以有参数, 前者不可以. [C] 两种过程参数的传递方式不同. [D] 前者无返回值,但后者有.

5．列表框控件的下列几个属性中, 哪一个不是数组: [A] List [B] ListIndex [C] Selected [D] ItemData 6．下面哪种类型的对象不能作为控件的容器: [A] Form [B] PictureBox [C] Shape [D] Frame 7．下面哪类控件不支持Change 事件: [A] TextBox [B] Label [C] PictureBox [D] ListBox 8．下列函数中, 返回值是字符串的是: [A] Chr [B] InStr [C] Val [D] Asc 9．移动滚动条中的滚动框, 将触发该滚动条的什么事件: [A] Scale [B] KeyDown [C] Change [D] Scroll 10． 下面哪种对象没有 Caption 属性: [A] Form [B] TextBox [C] CommondButton [D] Frame

填空题（本题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

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

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

Print Str$(A) & \ A = A + B B = B + A Loop End Sub

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

Print \ Loop End Sub

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

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

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

x = x * 2 + 1 Print x End Sub

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

1．用随机数产生十个[ 10---50 ]的随机整数(包括10 和 50 ),并按由小到大顺序并五个一行打印出来 Option Base 1

Dim a(10) As Integer Private Sub Form_Click() Dim i, j As Integer Dim t As Integer Randomize For i = 1 To 10

a(i) = ----(1)--- Next i

Print \排序前数据:\ For i = 1 To ----(2)--- Print a(i);

If ----(3)--- Then Print Next i Print

For i = 1 To 9 imin = i

For j =----(4)---To 10 If a(imin) > a(j) Then imin = j Next j t = a(i)

a(i) = a(imin)

a(imin) = ----(5)--- Next i

Print \排序后数据:\ For i = 1 To 10 Print a(i);

If i Mod 5 = 0 Then Print Next i 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 Loop

Do While Not EOF(1)

Input #1, stu_name, score

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

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

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

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

x

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

2．利用文本框检查用户口令，使用静态变量来限制输入三次，在文本框中输入口令按回车后，如果口令错，则提示\对不起，口令错！\，如输入三次仍错，则提示\对不起，您无权使用\。如三次内口令正确, 则提示\欢迎使用本系统!\。

Text1 Label1

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

五、 语言基础题

判断题评分标准：本题10分，每小题1分 1．× 2．√ 3．× 4．√ 5．√ 6．× 7．× 8．√ 9．√ 10．√ 单选题评分标准：本题10分，每小题1分 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”得一分

6． -5 7． 21

8． Option Explicit 9． a > c OR b > c 10． 显式声明变量和隐式声明变量 六、 程序阅读题

评分标准：每小题5分。完全与标准答案吻合可以得5分，若数据正确或格式正确则酌情给分。 1． 17 2． 1*1 = 1 2*3 = 6 3． F(1 )= 11 F(0 ) = 7 4． 23 47

七、 程序填空题

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

（1） Int (Rnd*41)+10 或 Int (Rnd*(50-40+1))+10 （2） 10

（3） i mod 5=0 （4） i+1 （5） t 2．

（1） Input （2） Eof(1) （3） Close 1

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vb期末考试练习卷3及答案在线全文阅读。