《VB期末考试考卷及答案》由会员分享，可在线阅读，更多相关《VB期末考试考卷及答案（16页珍藏版）》请在金锄头文库上搜索。
1、VB期末考试试卷及答案选择题1. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是（ B ）A 属性、控件和方法B属性、事件和方法C窗体、控件和过程D控件、过程和模块2. 所有控件都有一个共同的属性，这个属性是（ C ）A text B fontC nameD caption3. 下列叙述中错误的是（ A ）A工程文件扩展名是 .vbgC窗体模块的扩展名是 .frm4. 当要编写一个新的 Visual BasicA新建一个工程BC设置属性5. 下面控件中，没有A框架B标准模块文件的扩展名是 .basD类模块的扩展名是 .cls程序时，所做的第一件事是（ A ）编写代码
2、添加 Active X 控件Dcaption 属性的是（ B ）B 组合框C 命令按钮 D 复选按钮6. 在文件框中输入字符时，若只显示某个字符，如（* ），应设置属性是（ B ）A MultiLine B PasswordCharC TextD selText7. 若要将窗体从内存中卸载出去，其实现的方法是（D ）A ShowB HideC LoadD UnLoad8. 下列关于过程叙述不正确的是（ D ）A过程的传值调用是将实参的具体值传值传递给形参B过程的传址调用是将实参在内存的地址 传递给形参C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D无论过程传值调用还是传地址调
3、用，参数传递都是双向的9. 某人创建1个工程，其中的窗体名为Forml,之后又添加了 1个名为Form2的窗体，并希望程序执行时先显示 Form2窗体，那么，他需要做的工作是（C）A在Forml的Load事件过程中加入语句 Load Form2B在Form2的Load事件过程中加入语句 Form2.ShowC在“过程属性”对话框中把“启动对象”设置为 Form2D在Form2的Tabl ndex属性设置为1,把Forml的Tab In dex属性设置为210. 以下关于文件的叙述中，正确的是（ B ）A以 Output 方式打开一个不存在的文件时,系统将显示出错信息B以Append方式打开的文
4、件，既可以进行读操作，也可以进行写操作C在随机文件在,每个记录的长度是固定的D无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相同的11. 设 a=6，b=8，c=10 则函数 llf（ab,lif（bc,c,b）,a+b） 的返回值是（A）A 10D 1212. 下面程序的执行结果为（ B ）: j=”2”l=val(i)+val(j)J=val(“12”)lf ij Then print i-j Else printj-iB -9C 1213. 下面程序的执行结果为( A )Dim S(10) AS IntegerFor i=0 to 10S(I)=2*iNext iPrint
5、 S(S(3)A 12B 6C 0D 4程序填空题：1. 在窗体上画一个命令按钮(Command1和一个标签(Labell ),为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，请在指定位 置填上正确代码将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a(3,2) AS IntegerS =0For i= 1 to 3For j= 1 to 2a(I,j) = i+js=【 1】Next jNext i【2】End Sub2. 下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中5的
6、倍数所占比例，请在指定位置填上正确代码将程序补充完整。Private Sub Command1_Click()RandomiseDim a(10) As IntegerFor j =1 to 10a(i)=【 3】If【 4】 Then k= k+1Print a(j)Next jPrintPrint k /10End Sub3. 以下程序运行后，在 Text1 中输入任意字符串，单击命令按钮，将 Text1 中的字符串转换为大写，再将字符串逆置(如ABCD-DCB)在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。Private Sub Command1_Click(
7、)St = Ucase(Text1.text)For i=【5】 To 1 Step -1S2= s2+Mid(s1,【6】 , 1)Text2.text= s2End Sub4. Next i 设有如下的循环，要求程序运行时执行 3 次循环，请在指定位置填上正确代码将程序补充完整。Dim x As IntegerX = 1Dox = x+2Print xLoop Until【 7】5. 在窗体上画一个组合框（Combo） 个列表框（Listl ）和一个命令按钮（Command1= 下面程序的功能是在组合框中选择一个大学名称， 单击命令按钮， 则所选大学 名 称将添加在列表框中，当组合框中没有
8、要选的大学名称时，输入一个名称，则此 大学名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代 码将程序补充完整。Private Sub Form_Load（）Combo1.AddItem”交通大学”Combo1.AddItem”理工大学”Combo1.AddItem”财经大学”Combo1.AddItem”外贸大学”End SubPrivate Sub Command1_Click（）Flag=Flase【8】For i=0 to9】If Combo1.List(i)=Combo1.Text Thenflag=True : Eixt ForEnd IfNext iIf Not
9、flag Then【 10】End Sub6. 下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上 正确代码将程序补充完整。Private Sub Command1_Click()Dim ia(),i%,max%,imax%.t%Ia=Array(3,8,5,6,7,4,9)For i =0 To 5 : imax = iFor j = i+1 To 6If【 11】 Then imax =jNext jT=ia(i) :【 12】 : ia(imax)=tNext iFor i=0 To 6 : Print ia(i) : Next iEnd Sub7. 窗体上有名称为C
10、omma nd的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件 c:test.txt ，并将文件中 的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置 填上正确代码将程序补充完整。Private Sub Command1_Click()Text1=Openc:test.txt ” For Input As #1Do While Not【13】Line Input#1,SText1.text=Text1.text+14 】 +chr(13)+chr(10)Loop【15】End Sub答案： 1.S+a(I,j) 2.Lab
11、el1mod 5=00 = S 3.Int(Rnd*99)4.a(i)5.Len(S1)6.i7.x=78.List1.AddItemCombo1.textCombo1.text9.3/ListCount 10.Combo1.AddItem11.a(j)imax12.ia(i)=ia(imax) 13.Eof 14. S 15.Close #1三阅读程序，在答题纸指定位置写出程序运行结果。1. 以下程序运行后，单击命令按钮，写出程序的运行结果。Private Sub Command1_Click()Dim n%,b,tt =1 : b =1 : n =2Do While n 1 Then Ex
12、it Dob = b*n : t = t+b : n = n+1LoopPrint “t= ” & tEnd Sub2. 在窗体中添加一个命令按钮Command1并编写如下程序：Private Sub Command1_Click()X =InputBox(x)If xA29 The n y= xA2+1If (xA2)-7=9 Then y=xPrint“y=”&yEnd Sub程序运行后，在 InputBox 中输入 4，单击命令按钮，写出程序的运行结果3. 窗体上画一个命令按钮，并编写以下事件过程和子过程：Private Sub Command1_Click()Dim x As Inte
13、ger, y As Integerx =12 : y = 20Call Value(x,y)Print“x=”&x, “y=”&yEnd SubPrivate Sub Value(ByVal m As Integer, n As Integer)m=m*2n =n-5End Sub程序运行后，单击命令按钮，写出程序的输出结果。4. 窗体上画一个命令按钮和一个图像框，并编写以下事件过程：Private Sub Command1_Click()Dim a(3,3)For m =1To3For n= 1 To 3If n = m Or n = 4- m Thena(m,n)=m+nElsea(m,n
14、)=0End IfPicture1.Print a(m,n)Next nPicture1.PrintNext m程序运行后，单击命令按钮，图像框中显示的内容是什么 ?5. 在窗体上画一个列表框和一个命令按钮 Command，1 然后编写如下程序：Private Sub Command1_Click()List1.RemoveItem1List1.RemoveItem2End SubPrivate Sub Form_Load()List1.AddItem”兰州”List1.AddItem”甘肃”List1.AddItem”交通”List1.AddItem”大学”End Sub程序运行后，单击命令按钮，写出在列表框中显示的结果答案： 1. 32. 43. 12；154. 2 0 4；0 4 0 ；45 兰州；大学四编写程序：输出（1,100 ）之间同时被5和7整除的数的个数及其它们的和答案： Private Sub Form1_Click()Dim s%,c%For i=1 to 100ThenIf i Mod 5=0 And i Mod 7=0s =
