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

练习卷五

一、 语言基础题（40分）

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

1. 可以在窗体的通用部分声明静态变量。

2. 事件过程也可以用Sub过程调用语句进行调用。

3. 表达式#5/22/99 6:22:30 PM# - #4/22/99#的值是数值型的。 4. 表达式 -5^2 > Rnd*10 的值为False.

5. 对象的Top和Left属性值都必须大于或等于零。

6. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。

7. 执行Hscroll1.Value=Hscroll1.Value+1赋值语句，就会产生Hscroll1滚动条的Change事件。 8. 每个Vb对象都有Name属性。

9. 组合框ComboBox和列表框ListBox都有Selected属性。 10. CommonDialog 对象的ShowSave方法能保存用户指定的文件。 单选题（本题10分，每小题1分） 1. 菜单条的顶层菜单控件＿＿ 。

[A] 不允许设置快捷键 [B] 允许设置快捷键

[C] 不存在ShortOut属性 [D] 有子菜单时允许有快捷键

2. 当某文本框对象具有焦点时，击键盘上的一个键会触发该文本框对象的KeyPress事件，＿＿。 [A] 该事件发生在文本框对象的KeyDown事件前。

[B] 该事件发生在文本框对象的KeyDown事件后。 [C] 随后便发生文本框对象的Lick事件。

[D] 随后便发生文本框对象的 GotFocus事件。

3. 程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值＿＿。 [A] 增加一个SmallChange量 [B] 减少一个SmallChange量

[C] 增加一个LargeChange量 [D] 减少一个LargeChange量

4. 执行Form1.Scale (10,-20)-(-30,20)语句后，Form1窗体座标系X和Y轴的正方向是＿＿。 [A] 向左和向下 [B] 向右和向上

[C] 向左和向上 [D] 向右和向下

5. 执行List1.List(List1.ListCount)= “80” 语句后，＿＿。 [A]会产生出错信息

[B] List1列表框最后一个表项被改为 “80” [C] List1列表框会增加一个 “80” 表项 [D] 指定List1列表框的表项个数为80个

6. 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在＿＿。

[A] Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive和在Dir1的Change事件过程中加入File1.Path=Dir1.Path代码

[B] Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path ,在Dir1的Change事件中加入Dir1.Path = File1.Path代码

[C] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程中加入File1.Path=File1.Filename代码

[D] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程中加入File1.Path=Dir1.Path代码

7. 在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form_Load事件过程中加入＿＿语句。 [A] Text1.Index=0 [B] Text1.TabIndex=0

[C] Text1.Appearance=0 [D] Text1.Tag=0

1

8. 窗体Form、框架Frame、图片框Picture、图像框Image中＿＿是容器控件。 [A] Image、Form、Frame [B] Frame、Picture、Image

[C] Picture、Image、Form [D] Form、Frame、Picture 9. Dim B1,B2 As Boolean语句显式声明变量＿＿。

[A] B1和B2都为布尔型变量 [B] B1是整型，B2是布尔型变量

[C] B1是变体型，B2是布尔型变量 [D] B1和B2都为是变体型变量 10. 如果文本框Text1的GotFocus事件过程有Text1.Text=“abcd”: Text1.SelStart=1 : Text1.SelLength=2代码，程序运行时，当文本框获得焦点后，文本框内会＿＿。 [A] 显示abcd且ab字符被选取 [B] 显示abcd且bc字符被选取

[C] 显示选取的ab字符 [D] 显示选取的bc字符 填空题（本题20分，每小题2分）

1. 表达式-2^2+43\\5的值是＿＿＿＿。

2. 函数Int(Rnd*10)产生的随机数范围是＿＿＿＿。

3. 循环语句For I=20 To 10 Step –3.3 ? Next的循环次数是＿＿＿＿。 4. 用＿＿＿＿方法可以在列表框中插入列表项。

5. Do Until 条件? Loop 循环结构中，当条件为＿＿＿＿时结束循环。 6. Text文本框能接受的最长字符数由文本框的＿＿＿＿属性确定。 7. 执行＿＿＿＿语句，会清除Picture1l图片框内的图片。

8. 如果要新建一个顺序文件，用Open语句时，操作方式关键词是＿＿＿＿。 9. 要设置命令按钮的背景色，首先必须使它的Style属性值设置为＿＿＿＿。 10. Msgbox函数的数据类型是＿＿＿＿。

二、 程序阅读题（本题20分，每小题5分）

1. 写出单击窗体的运行结果 Private Sub Form_Click()

For I=1 To 5 Print Tab(11-I); For J=1 To I*2-1 Print “*”; Next Print Next I End Sub

2. 写出单击窗体的运行结果 Option Base 1

Private Sub Form_Click() Dim a(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 If j <= i Then a(i, j) = 1 End If

Print a(i, j); \Next j Print Next i End Sub

2

3. 程序运行时，连续二次单击窗体后，写出屏幕上显示的结果： Dim x As Integer

Private Sub Form_Load() x = 2 End Sub

Private Sub Form_Click() Static a As Integer

Dim b As Integer,y As Integer b = x ^ 2 abc x, b a =a+ x y=y+b

Print a, b, x,y End Sub

Sub abc(ByRef y As Integer, ByVal z As Integer) y = y + z z = y - z End Sub

4. 写出单击窗体的运行结果 Private Sub Form_Click() Dim a(4, 4) As Integer

Dim c As Integer, r As Integer

Dim i As Integer, j As Integer, k As Integer c = 4: r = 1: i = 1: j = 1 For k = 1 To 16 a(i, j) = k

If i < c And j = r Then i = i + 1

ElseIf i = c And j < c Then j = j + 1

ElseIf i > r And j = c Then i = i - 1

ElseIf i = r And j > r + 1 Then j = j - 1 End If

If i = r And j = r + 1 Then c = c - 1 r = r + 1 End If Next

For i = 1 To 4 For j = 1 To 4

Print Tab(j * 4); a(i, j); If j = 4 Then Print Next Next End Sub

3

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

1. 程序启动后，界面如右图所示： 输入两点坐标，单击命令按钮，显示 座标系、座标原点和两点的连线. Private Sub Form_Load()

Command1.Caption = \显示连线\Picture1.Scale (-100, 100)-(100, -100) Frame1.＿＿(1)＿＿ = \输入两点坐标\Label1.Caption = \Label2.Caption = \Label3.Caption = \Label4.Caption = \Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \Text1.TabIndex = 0 End Sub

Private Sub Command1_Click()

Picture1.Currentx=-30 Picture1.Currenty=0

Picture1.Print ＿＿(2)＿＿ Picture1.Line ＿＿(3)＿＿ Picture1.Line ＿＿(4)＿＿ Picture1.Line ＿＿(5)＿＿ End Sub

2. 冒泡排序

BubbleSort过程是冒泡排序过程,使a数组中的数按降序排列。 Swap过程交换两个变量数值。

GenerateData过程产生10个[1，20]之间互不相同的随机整数存入a数组。 程序如下：

Private Const n = 10

Private a(1 To n) As Integer Public Sub BubbleSort()

Dim i As Integer, j As Integer GenerateData i = 1 Do

For j = i + 1 To n

If a(j) > a(i) Then ＿＿(1)＿＿ End If Next j i = i + 1

Loop While ＿＿(2)＿＿ Form1.Print \排序结果\ For i = 1 To n

4