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

1、练习卷五一、 语言基础题（40分）判断题（本题10分，每小题1分）1.可以在窗体的通用部分声明静态变量。2.事件过程也可以用Sub过程调用语句进行调用。3.表达式#5/22/99 6:22:30 PM# - #4/22/99#的值是数值型的。4.表达式 -52 Rnd*10 的值为False.5.对象的Top和Left属性值都必须大于或等于零。6.控件数组的每个元素都有相同的Name属性值和不同的Index属性值。7.执行Hscroll1.Value=Hscroll1.Value+1赋值语句，就会产生Hscroll1滚动条的Change事件。8.每个Vb对象都有Name属性。9.组合框Comb

2、oBox和列表框ListBox都有Selected属性。10.CommonDialog 对象的ShowSave方法能保存用户指定的文件。单选题（本题10分，每小题1分）1.菜单条的顶层菜单控件 。 A 不允许设置快捷键B 允许设置快捷键C 不存在ShortOut属性D 有子菜单时允许有快捷键2.当某文本框对象具有焦点时，击键盘上的一个键会触发该文本框对象的KeyPress事件，。A 该事件发生在文本框对象的KeyDown事件前。B 该事件发生在文本框对象的KeyDown事件后。C 随后便发生文本框对象的Lick事件。D 随后便发生文本框对象的 GotFocus事件。3.程序运行时，单击水平滚动

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.为了

4、使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=File

5、1.Filename代码D 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程中加入File1.Path=Dir1.Path代码7.在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form_Load事件过程中加入语句。A Text1.Index=0B Text1.TabIndex=0C Text1.Appearance=0D Text1.Tag=08.窗体Form、框架Frame、图片框Picture、图像框Image中是容器控件。A Image、Form、FrameB Frame、Pictu

6、re、ImageC Picture、Image、FormD Form、Frame、Picture9.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

7、字符填空题（本题20分，每小题2分）1.表达式-22+435的值是。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函数的数据类型是。二、 程序阅读题

8、（本题20分，每小题5分）1. 写出单击窗体的运行结果Private Sub Form_Click()For I=1 To 5Print Tab(11-I);For J=1 To I*2-1Print “*”;NextPrint Next IEnd Sub2. 写出单击窗体的运行结果Option Base 1Private Sub Form_Click()Dim a(5, 5) As Integer Dim i As Integer, j As IntegerFor i = 1 To 5 For j = 1 To 5 If j = i Then a(i, j) = 1 End IfPrint

9、a(i, j); ;Next jPrint Next iEnd Sub3. 程序运行时，连续二次单击窗体后，写出屏幕上显示的结果：Dim x As IntegerPrivate Sub Form_Load()x = 2End SubPrivate Sub Form_Click()Static a As IntegerDim b As Integer,y As Integerb = x 2abc x, ba =a+ x y=y+bPrint a, b, x,yEnd SubSub abc(ByRef y As Integer, ByVal z As Integer)y = y + zz = y

10、- zEnd Sub4. 写出单击窗体的运行结果Private Sub Form_Click()Dim a(4, 4) As IntegerDim c As Integer, r As IntegerDim i As Integer, j As Integer, k As Integerc = 4: r = 1: i = 1: j = 1For k = 1 To 16a(i, j) = kIf i c And j = r Theni = i + 1ElseIf i = c And j r And j = c Theni = i - 1ElseIf i = r And j r + 1 Thenj

11、 = j - 1End IfIf i = r And j = r + 1 Thenc = c - 1r = r + 1End IfNextFor i = 1 To 4For j = 1 To 4Print Tab(j * 4); a(i, j);If j = 4 Then PrintNextNextEnd Sub三、 程序填空题（本题20分，每空2分）1. 程序启动后，界面如右图所示：输入两点坐标，单击命令按钮，显示座标系、座标原点和两点的连线.Private Sub Form_Load()Command1.Caption = 显示连线Picture1.Scale (-100, 100)-(1

12、00, -100)Frame1.(1) = 输入两点坐标Label1.Caption = x1Label2.Caption = y1Label3.Caption = x2Label4.Caption = y2Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.TabIndex = 0End SubPrivate Sub Command1_Click()Picture1.Currentx=-30Picture1.Currenty=0Picture1.Print (2)Picture1.Line (3)Picture1.Line (4

13、)Picture1.Line (5)End Sub2. 冒泡排序BubbleSort过程是冒泡排序过程,使a数组中的数按降序排列。Swap过程交换两个变量数值。GenerateData过程产生10个1，20之间互不相同的随机整数存入a数组。程序如下：Private Const n = 10Private a(1 To n) As IntegerPublic Sub BubbleSort()Dim i As Integer, j As IntegerGenerateData i = 1 Do For j = i + 1 To n If a(j) a(i) Then (1) End If Next

14、 j i = i + 1 Loop While (2) Form1.Print 排序结果 For i = 1 To n Form1.Print a(i); Next iEnd SubPublic 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

15、If Next j Loop Form1.Print a(i) Next iEnd SubPublic Sub Swap(Byref a As Integer, Byref b As Integer) Dim temp As Integer temp = a a =(5) b = tempEnd Sub四、 程序设计题（本题20分，每小题10分）1. 通讯录程序设计：程序启动后，界面如右图所示：(1) 当用户在文本框内输入完一个同学的记录后，单击“添加”命令按钮，则记录字段加入各数组和组合框的List集内。(2) 当在下拉式组合框中选取一个表项后，则与该表项相应的记录便自动显示在窗体右边的文本

16、框内。(3) 当在下拉式组合框中选取一个表项后，单击“删除”命令按钮，与表项相应的记录便被删除。注：记录个数不超过100个。2. 编写程序已知 (1+x)a1x+x2+x3+ (|x| 1) 编程求展开式的前n项之和。练习卷五标准答案及评分标准一、语言基础题：(40分)判断题评分标准：本题10分，每小题1分12345678910单选题评分标准：本题10分，每小题1分1A2B3A4D5C6A7B8D9C10B填空题评分标准：本题20分，每小题2分14209344Additem5True6Maxlength7Picture1.Picture=Loadpicture(“”)8Output9110Long二、阅读程序,写出程序执行的结果(20分)12 34三、程序填空题(20分) 评分标准：本题20分，每空2分。1.(1) Caption(2) “(0,0)”(3