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.组合

2、框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.程序运行时，单

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

4、个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

5、=File1.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、

6、Picture、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 显示

7、选取的bc字符填空题（本题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

9、 IfPrint 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 In

10、teger)y = y + zz = y - 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 < c Thenj = j + 1ElseIf i

11、> r And j = c Theni = i - 1ElseIf i = r And j > r + 1 Thenj = 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 Su

12、b 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.Tex

13、t = ""Text4.Text = ""Text1.TabIndex = 0End SubPrivate Sub Command1_Click()Picture1.Currentx=-30Picture1.Currenty=0Picture1.Print (2)Picture1.Line (3)Picture1.Line (4)Picture1.Line (5)End Sub2. 冒泡排序BubbleSort过程是冒泡排序过程,使a数组中的数按降序排列。Swap过程交换两个变量数值。GenerateData过程产生10个1，20之间互不相同的随机整数存

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

15、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 iEnd SubPublic Sub Swap(Byref a As Integer, Byref b As Intege

16、r) Dim temp As Integer temp = a a =(5) b = tempEnd Sub四、 程序设计题（本题20分，每小题10分）1. 通讯录程序设计：程序启动后，界面如右图所示：(1) 当用户在文本框内输入完一个同学的记录后，单击“添加”命令按钮，则记录字段加入各数组和组合框的List集内。(2) 当在下拉式组合框中选取一个表项后，则与该表项相应的记录便自动显示在窗体右边的文本框内。(3) 当在下拉式组合框中选取一个表项后，单击“删除”命令按钮，与表项相应的记录便被删除。注：记录个数不超过100个。2. 编写程序已知 (1+x)a1x+x2+x3+ (|x|< 1

17、) 编程求展开式的前n项之和。练习卷五标准答案及评分标准一、语言基础题：(40分)判断题评分标准：本题10分，每小题1分1×2345×6789×10×单选题评分标准：本题10分，每小题1分1A2B3A4D5C6A7B8D9C10B填空题评分标准：本题20分，每小题2分14209344Additem5True6Maxlength7Picture1.Picture=Loadpicture(“”)8Output9110Long二、阅读程序,写出程序执行的结果(20分)12 34三、程序填空题(20分) 评分标准：本题20分，每空2分。1.(1) Caption

18、(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分）第三

19、小题（3分）参考程序：Option Base 1Dim sName(100) As String, sPhone(100) As String, sOffice(100) As String, sAddress(100) As StringDim i As IntegerPrivate Sub CmdAdd_Click() i = i + 1 sName(i) = TxtName.Text sPhone(i) = TxtPhone.Text sOffice(i) = TxtOffice.Text sAddress(i) = TxtAddress.Text Combo1.AddItem sNam

20、e(i), i - 1 If Combo1.ListIndex = -1 Then Combo1.ListIndex = 0 TxtName.Text = "" TxtPhone.Text = "" TxtOffice.Text = "" TxtAddress.Text = "" TxtName.SetFocusEnd SubPrivate Sub CmdDel_Click() Dim p As Integer If Combo1.ListIndex = -1 Then Exit Sub For p = Combo

21、1.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 =