VB期末考试试卷及答案6页

1、 VB期末考试试卷及答案一选择题1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ）A属性、控件和方法 B属性、事件和方法C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 B 编写代码 C 设置

2、属性 D 添加Active X控件 5. 下面控件中，没有caption属性的是（ B ） A 框架 B 组合框 C 命令按钮 D 复选按钮 6. 在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（ B ） A MultiLine B PasswordChar C Text D selText 7. 若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide C Load D UnLoad 8. 下列关于过程叙述不正确的是（ D ） A 过程的传值调用是将实参的具体值传值传递给形参 B 过程的传址调用是将实参在内存的地址 传递给形参 C 过程的传值调用参数是

3、单向传递的，过程的传址调用参数是双向传递的 D 无论过程传值调用还是传地址调用，参数传递都是双向的 9. 某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（ C ） A 在Form1的Load事件过程中加入语句Load Form2 B 在Form2的Load事件过程中加入语句Form2.Show C 在“过程属性”对话框中把“启动对象”设置为Form2 D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2 10. 以下关于文件的叙述中，正确的是（ B ） A 以O

4、utput方式打开一个不存在的文件时，系统将显示出错信息 B 以Append方式打开的文件，既可以进行读操作，也可以进行写操作 C 在随机文件在，每个记录的长度是固定的 D 无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相同的 11. 设a=6，b=8，c=10 则函数IIf(ab,Iif(bc,c,b),a+b)的返回值是（ A ） A 10 B 6 C 8 D 12 12. 下面程序的执行结果为（ B ） I=”1” : j=”2” I=val(i)+val(j) J=val(“12”) If ij Then print i-j Else printj-i A 9 B -9

5、C 12 D 0 13. 下面程序的执行结果为（ A ） Dim S(10) AS Integer For i=0 to 10 S(I)=2*i Next i Print S(S(3) A 12 B 6 C 0 D 4二程序填空题：1. 在窗体上画一个命令按钮（Command1）和一个标签（Label1），为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，请在指定位置填上正确代码将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a(3,2) AS Integer S =0 For i= 1 to 3 For

6、j= 1 to 2 a(I,j) = i+j s= 【1】 Next j Next i 【2】 End Sub 2. 下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中 5的倍数所占比例，请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() Randomise Dim a(10) As Integer For j =1 to 10 a(i)= 【3】 If 【4】 Then k= k+1 Print a(j) Next j Print Print k /10 End Sub 3. 以下程序运行后，在Text1中输入任意字符串

7、，单击命令按钮，将Text1中的字符串转换为大写，再将字符串逆置（如ABCD-DCBA），在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() St = Ucase(Text1.text) For i= 【5】 To 1 Step -1 S2= s2+Mid(s1, 【6】 , 1) Text2.text= s2 End Sub 4. Next i设有如下的循环，要求程序运行时执行3次循环，请在指定位置填上正确代码将程序补充完整。 Dim x As Integer X = 1 Do x = x+2 Print x

8、Loop Until 【7】 5. 在窗体上画一个组合框（Combo1）、一个列表框（List1）和一个命令按钮（Command1）。下面程序的功能是在组合框中选择一个大学名称，单击命令按钮，则所选大学 名称将添加在列表框中，当组合框中没有要选的大学名称时，输入一个名称，则此大学名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代码将程序补充完整。 Private Sub Form_Load() Combo1.AddItem”交通大学” Combo1.AddItem”理工大学” Combo1.AddItem”财经大学” Combo1.AddItem”外贸大学” End Sub P

9、rivate Sub Command1_Click() 【8】 Flag=Flase For i=0 to 【9】 If Combo1.List(i)=Combo1.Text Then flag=True : Eixt For End If Next i If Not flag Then 【10】 End Sub 6. 下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() Dim ia(),i%,max%,imax%.t% Ia=Array(3,8,5,6,7,4,9) For i =0 To

10、5 : imax = i For j = i+1 To 6 If 【11】 Then imax =j Next j T=ia(i) : 【12】 : ia(imax)=t Next i For i=0 To 6 : Print ia(i) : Next i End Sub7. 窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() T

11、ext1=” Open”c:test.txt” For Input As #1 Do While Not 【13】 Line Input#1,S Text1.text=Text1.text+ 【14】 +chr(13)+chr(10) Loop 【15】 End Sub 答案： 1.S+a(I,j) 2.Label1 0 = S 3.Int(Rnd*99) 4.a(i) mod 5=0 5.Len(S1) 6.i 7.x=7 8.List1.AddItem Combo1.text 9.3/ListCount 10.Combo1.AddItem Combo1.text 11.a(j)imax 1

12、2.ia(i)=ia(imax) 13.Eof 14. S 15.Close #1三阅读程序，在答题纸指定位置写出程序运行结果。1. 以下程序运行后，单击命令按钮，写出程序的运行结果。 Private Sub Command1_Click() Dim n%,b,t t =1 : b =1 : n =2 Do While n 1 Then Exit Do b = b*n : t = t+b : n = n+1 Loop Print “t=”& t End Sub2. 在窗体中添加一个命令按钮Command1，并编写如下程序： Private Sub Command1_Click() X =Inp

13、utBox(x) If x29 Then y= x2+1 If (x2)-7=9 Then y=x Print “y=”&y End Sub 程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。3. 窗体上画一个命令按钮，并编写以下事件过程和子过程： Private Sub Command1_Click() Dim x As Integer, y As Integer x =12 : y = 20 Call Value(x,y) Print “x=”&x, “y=”&y End Sub Private Sub Value(ByVal m As Integer, n As

14、Integer) m=m*2：=n-5 End Sub 程序运行后，单击命令按钮，写出程序的输出结果。4. 窗体上画一个命令按钮和一个图像框，并编写以下事件过程： Private Sub Command1_Click() Dim a(3,3) For m =1To3 For n= 1 To 3 If n = m Or n = 4 m Then a(m,n)=m+n Else a(m,n)=0 End If Picture1.Print a(m,n) Next n Picture1.Print Next m End Sub 程序运行后，单击命令按钮，图像框中显示的内容是什么?5. 在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() List1.RemoveItem1 List1.RemoveItem2 End Sub Private Sub Form_Load() List1.AddItem”兰州” List1.AddItem”甘肃”List1.AddItem”交通” List1.AddItem”大学” End Sub 程序运行后，单击命令按钮，写出在列