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

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

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

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

1.程序启动后，界面如右图所示：

输入两点坐标，单击命令按钮，显示

座标系、座标原点和两点的连线.

Private Sub Form_Load()

Command1.Caption = "显示连线"

Picture1.Scale (-100, 100)-(100, -100)

Frame1.＿＿(1)＿＿= "输入两点坐标"

Label1.Caption = "x1"

Label2.Caption = "y1"

Label3.Caption = "x2"

Label4.Caption = "y2"

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

Form1.Print a(i);

Next i

End Sub

Public Sub GenerateData()

Dim i As Integer

Dim j As Integer

Dim b As Boolean

For i = 1 To n

b = False

Do While ＿＿(3)＿＿

a(i) = Int(20 * Rnd + 1)

b = True

For j = 1 To ＿＿(4)＿＿

If a(i) = a(j) Then

b = False

Exit For

End If

Next j

Loop

Form1.Print a(i)

Next i

End Sub

Public Sub Swap(Byref a As Integer, Byref b As Integer)

Dim temp As Integer

temp = a

a =＿＿(5)＿＿

b = temp

End Sub

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

1. 通讯录程序设计：程序启动后，界面如右图所示：

(1)当用户在文本框内输入完一个同学的记录后，

单击“添加”命令按钮，则记录字段加入各

数组和组合框的List 集内。

(2)当在下拉式组合框中选取一个表项后，则与该

表项相应的记录便自动显示在窗体右边的文本

框内。

(3)当在下拉式组合框中选取一个表项后，单击

“删除”命令按钮，与表项相应的记录便被

删除。

注：记录个数不超过100个。

2. 编写程序

已知 (1+x)a ＝1＋!1a x+!2)1(-a a x 2+!

3)2)(1(--a a a x 3+ … (|x|< 1) 编程求展开式的前n 项之和。

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

一、语言基础题：(40分)

判断题评分标准：本题10分，每小题1分

填空题评分标准：本题20分，每小题2

分

1．4

2．0~9

3．4

4．Additem

5．True

6．Maxlength

7．Picture1.Picture=Loadpicture(“”)

8．Output

9．1

10．Long

二、阅读程序,写出程序执行的结果(20分)

三、程序填空题(20分)

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

1.

(1) Caption

(2) “(0,0)”

(3) (-100,0)-(100,0)

(4) (0, -100)-(0, 100)

(5) (val(Text1.Text),val(Text2.Text))-(val(Text3.Text),val(Text4.Text))

2.

(1) Swap a(j), a(i)

(2) I<=n-1

(3) Not b 或 b=False

(4) I-1

(5) b

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

1．评分标准：本题10分

第一小题（3分）：事件名及变量声明（1分）；添加记录（1分）；AddItem方法（1分）第一小题（4分）：判断是否为空（1分）；循环语句（2分）；其它（1分）

第三小题（3分）

参考程序：

Option Base 1

Dim sName(100) As String, sPhone(100) As String, sOffice(100) As String, sAddress(100) As String Dim i As Integer

Private Sub CmdAdd_Click()

i = i + 1

sName(i) = TxtName.Text

sPhone(i) = TxtPhone.Text

sOffice(i) = TxtOffice.Text

sAddress(i) = TxtAddress.Text

Combo1.AddItem sName(i), i - 1

If Combo1.ListIndex = -1 Then Combo1.ListIndex = 0

TxtName.Text = ""

TxtPhone.Text = ""

TxtOffice.Text = ""

TxtAddress.Text = ""

TxtName.SetFocus

End Sub

Private Sub CmdDel_Click()

Dim p As Integer

If Combo1.ListIndex = -1 Then Exit Sub

For p = Combo1.ListIndex + 1 To i - 1

sName(p) = sName(p + 1)

sPhone(p) = sPhone(p + 1)

sOffice(p) = sOffice(p + 1)

sAddress(p) = sAddress(p + 1)

Next p

Combo1.RemoveItem (Combo1.ListIndex)

sName(p) = ""

sPhone(p) = ""

sOffice(p) = ""

sAddress(p) = ""

TxtName.Text = ""

TxtPhone.Text = ""

TxtOffice.Text = ""

TxtAddress.Text = ""

End Sub

Private Sub Combo1_Click()

Dim j As Integer

j = Combo1.ListIndex + 1

TxtName.Text = sName(j)

TxtPhone.Text = sPhone(j)

TxtOffice.Text = sOffice(j)

TxtAddress.Text = sAddress(j)

End Sub

2．评分标准：本题10分

常量正确声明（1分）：

变量正确声明（1分）：

键盘输入n （2分）：输入语句1分，循环判断1分

输入框（1分）

循环结构（5分）：

其它（1分）

参考程序：

Const a = 1 / 3 'a常量可以由用户自定义

Private Sub Form_Click()

Dim x As Double, F As Double, sum As Double

Dim i As Integer, n As Integer

F = 1: sum = 1

Do

x = Val(InputBox("请输入一个x,其中x∈(-1,1)")) Loop While Abs(x) >= 1

n = Val(InputBox("请输入求和项数n,其将影响计算的精度")) For i = 1 To n

F = F * (a - i + 1) * x / i

sum = sum + F

Next i

Print sum

End Sub