优质VB期末考试试题及答案1

1、第一部分：客观题单项选择题1、在窗体模块的通用段中声明变量时，不能使用的关键字是（）A、 Dim B 、 Public C、 Private D 、 Static2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）15、在窗体上画一个名称为Comma nd的命令按钮，并编写如下程序:A、工程资源管理器窗口B 、工具箱窗口、代码窗口）方法来实现。C、 属性窗口D3、若要使某可见控件获得焦点，可使用（A、Refresh B Setfocus4、下列不可作为 VB变量名的是（A、 ABT1 B 、 Alpha C5、表达式 5 Mod 3+35*2 的值是A、 0 B 、 66、下列语句中，

2、正确的赋值语句是（A、 i + j = 10 B 、 2i = j7、执行下列程序段后， x 的值是（ n = 4: x = 1: i = 1Dox = x * ii = i + 1Loop While i nA、 2 B 、 6 CC、）GotfocusD、 VaIue、 ABCD 、4*DeIta）C、4D、 2）C、 j = i +j D、 i * j = 0）。、 10D、 148 、当用户在窗体上单击鼠标时，不会触发的事件是（）A、ClickB、MouseDown C、MouseUp D、DbICIick9、下列为整型变量的是（）A、 x Mod 2 =1 Or y Mod 2 =1

3、BC、 x Mod 2 =0 And y Mod 2=0D12、在通用声明中给出 Option Base 1、 x Mod 2 =0 Or y Mod 2=0、 x Mod 2 =1 And y Mod 2 =1 语句，则数组 a 包含( )个数组元素。A、x!B、 x#C、 x$D、 x%10、要从 For 循环中直接退出循环，可使用的语句( ) 。A、 Exit DoB、 Exit LoopC、 Exit For D、 Stop11 、下列逻辑表达式中，能正确表示条件“x，y 都是奇数”的是（）Dim a(3, -2 To 1, 5) As IntegerA、 60 B 、 75 C 、

4、120 D 、 1313、 设窗体上有一个名称为Text1 的文本框，要求只能显示信息，不能输入，应选择答案()A、 Text1.MaxLength=0B、 Text1.Width=0C、 Text1.VisibIe=FaIseD、 Text1.EnabIed=FaIse14、命令按钮 CommandButton 的 Picture,DownPicture 和 DisabIePicture 属性都已装入图）、 DownPicture 属性中的图形 D 、不显示图形形, 按下命令按钮 , 其上显示的图形是（A、 Picture 属性中的图形BC、 DisabIePicture 属性中的图形Pri

5、vate Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10：y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 ( )A、 10 5 B 、 12 5 C 、 10 7 D 、 12 716、执行以下程序段，输出结果为( )Private Sub Command1_Click() a$=abbacddcbaFor i=6 To

6、 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z= UCase(x & y & z)Next iPrint zEnd SubA、 ABA17、以下（A、 Int（RndC、 Int（RndB ）语句可表示 50,100B、D、请输入半径 ,0, 求面积 ） ，在输入框中输入 3 后回车 , 则下列叙、 ABBABA* 51) + 49* 50) + 518、执行 x = InputBox（ 述正确的是（ ）A、x 的值是数值 3C、0 是默认值19、设置图像框的（A、 AutoSize 属性为 C、 AutoSize 属性为 20、有如下事件过程C、

7、BBABBA D 、 AABAAB 之间的随机数。Int(Rnd * 51Int(Rnd * 50+50) + 50)B、 x 的值是字符 3D、 对话框标题是 求面积 ）可使框内的图片按图像框大小自动调整。 True False、 Stretch 属性为 True 、 Stretch 属性为 FalsePrivate Sub Command1_Click()x = 1For i = 1 To 3If i = 1 Then a = x * xIf i = 3 Then a = x * x + 2Print a;Next iEnd Sub运行时，单击命令按钮，则结果是():A、2 5 11 B、

8、 1 5 1 C 、2 2 3 D 、 1 1 121、在窗体上画一个名称为Comma nd的命令按钮，然后编写如下程序:Private Sub Comma nd1_Click()Static X As In tegerStatic Y As In tegerCisY = 1: Y = Y + 5: X = 5 + XPrint X, YEnd Sub士骨单击命令按钮 Comma nd三次后，窗体上显示的结果为（A 15 16 B 、 15 6 C、15 15 D22、设a=3,b=5，则以下表达式值为 TRUE的是（A、a=b And b10 Bab Or b023、从键盘上输入两个字符串，

9、分别保存在变量str1、str2中。确定第二个字符串在第个字符串中起始位置的函数是(）A、LeftB、MidC 、StringD、In str24、下列哪组语句可以将变量a，b的值互换（）A、 a=b: b=aB、a=a+b:b=a-b: a=a-bC a=c: c=b: b=aD、a=(a+b)/2: b=(a-b)/2C a0D-3+5a and b025、可以同时删除字符串前导和尾部空格的函数是（）D 、MidA、LtrimB、Rtrim C Trim26、表达式293的值是（）A、1B 、7 C 、8 D 、927、下列程序运行后，单击command1时显示的结果是（）Private

10、Sub Comma nd1_Click（）x = 1 mysub x + 2Print xEnd SubPublic Sub mysub(x As In teger)x = 3 * x - 1If x 4 The n x = x + 10Print x;End SubA、8 1 B 、8 8 C 、19 1 D 、19 1928、以下有关 Visual Basic语言描述中错误的是()A、不区分大小写B、语句是一行一句，以回车键结束C用“，”分隔一行中的多个语句D 一条语句放在多行中， 则在前一行结束处使用续行符空格 +下划线（“ _”）连接下 29、 在窗体上添加两个文本框 (其Name属性

11、分别为Textl和Text2)和一个命令按钮(其Name 属性为Command1)然后编写如下事件过程：Private Sub Comma nd1_Click()x = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1LoopTextl.Text = Str( n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为()A 1 和 0B 2 和 72C 3 和 50D、4 和 16830、设有如下声明：Dim X As In teger如果Sgn(X)的值为-1，则X的值是()A、整数 B 、大于0的

12、整数 C 、等于0的整数 D 、小于0的数二、判断题下列各题如果是正确的，请在机读卡对应位置上涂A,如果是错误的涂B。答在试卷上不得分1、VB程序运行后，在内存中只能驻留一个窗体。2、在VB中，控件的属性只能在设计时修改，运行时无法改变。3、执行Unload Form1语句后，窗体 Form1消失，但仍在内存中。4、 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程。5、 Function过程与Sub过程最主要的区别是：SUB过程不能返回值，而FUNCTION过程能返回值。6、用Print方法可以在图像框中输出数据。7、 Dim a,b,c As Integer能将a,b,c

13、都声明成整型变量。8、语句 print “ * ” ;tab(10);” a” 与语句 print “ * ” ;spc(10);” a”的显示结果是一样的。9、 控件数组使用Index属性来标识控件元素，其范围必须从0开始。10、 文件号的最大取值为512。第二部分：主观题三、填空题请在答题卷对应位置填写答案，答在试卷上不得分。1、 数学关系式a+b?表示成正确的 VB表达式为【1】 。2、 计算表达式的值 Int(86.567 * 100 + 0.5)/100 =【2】_。3、赋值语句g = 123 + Mid(123456, 3, 2)执行后，变量g中的值是 【3】_。4、 VB6.0在

14、编写代码时可以添加说明性文字。注释方法有2种，一种是使用注释标记符撇号()；另一种是使用以关键字【4】_开头的注释语言。5、设 a=a, b=b , c=c , d=d，执行语句 x=llf(ad), A,B) 后,x 的值为【5】6、 在VB中，描述对象特征的数据称为对象的_【6】_。【7】_ 。该控件对象才能接【10】 。7、 有下面的表达式 x仁val( 1e2abcd”)，运行后，x1的值为： _8、 产生一个两位数的随机数的表达式为：【8】_。9、 只有控件对象的 Enabled和Visible属性值均为_【9】_时, 受焦点。10、设a=10，b=5， c=1，执行语句 Print

15、 abc后，窗体上显示的是四、读程序写结果请将答案填写在答题卷对应位置处，答在试卷上不得分。1、下面程序执行后 a的值是 【1】。Private Sub Comma nd1_Click()Dim a As In teger, b As In tegera = 1: b = 1Do While b 5a = b - ab = b + 1LoopPrint aEnd Sub2、 下列程序运行后，单击窗体时显示的结果是【2】Private Sub Form_Click()Dim x As In tegerx = 1mysub xPrint xEnd SubPrivate Sub mysub(x As

16、 In teger)x = 3 * x - 1If x 30 Then Exit ForNext iPrint n, iEnd Sub五、编写程序题请将程序代码写在答题卷对应位置处，答在试卷上不得分。1、生成大小为1到100的50个随机整数，使用选择排序法对这些数进行由小到大的排序，并将其显示出来。(8分)2、 编写一函数过程计算1到n的累乘，参数n在调用时传递，函数名为mul。在主程序中调用该函数完成计算 sum=1!+2!+3!+4!+5!，然后把sum结果打印出来。(6分)3、 找出所有四位整数的回文数，并把找出的这些回文数保存在顺序文件”c:abc.txt”中。(顺读和倒读都一样的字符

17、串称“回文”，如：“level”，“1221”)(6分)第一部分：客观题一、单项选择题1-5、 DDBDD6 -10、 CBDDC11-15、 DADBD16-20、 CBBBC21-25、 BBDBC 26-30、DACBD二、判断题1、B2、 B3、B4、A5、 A6、B7、B8、B9、B10、B第二部分：主观题三、填空题1、aA2+bA22、86.573、1574、REM5、“A”6、属性7、1008、int(rnd*90+10)9、true10、false四、读程序写结果题1、32、113、 224、12345、 5, 35五、编写程序题1、生成大小为 1到 100的 50个随机整数，

18、 使用选择法对这些数进行由小到大的排序， 并将 其显示出来。Private Sub Command1_Click()Dim a(49) as integer(1 分 )Dim i as integer, k as integerRandomize TimeFor i=0 to 49a(i)=Int(Rnd*(100-1+1)+1) (1 分 )next ifor i=0 to 48(1分)k=I(1 分)for j=i+1 to 49(1分)if a(k)a(j) then k=j(1 分 )next jnext i for i=0 to 49print a（i）;（1 分）next iEnd

19、 Sub2、编写一函数过程计算 1 到 n 的累乘，参数 n 在调用时传递，函数名为 调用该函数完成计算 sum=1!+2!+3!+4!+5! ，然后把 sum 结果打印出来。 Private Sub Command1_Click（）Dim sum as Integer, I as integerSum=0 （1 分 ）For i=1 to 5Sum=Sum+mul（i） （1 分 ）Next iPrint sum（1 分 ）End subPrivate Function mul（n as integer） as integer（1 分 ）Dim s as integer, i as inte

20、gerS=1For i=1 to nS=s*i（1 分 ）Next iMul=s（1 分 ）End Sub3、找出所有四位整数的回文数， 并把找出的这些回文数保存在顺序文件” 读和倒读都一样的字符串称“回文” ，如： level ，1221）mul 。在主程序中c:abc.txt ” 中。（顺Private Sub Command1_Click（）Dim i As Integer, n As Integer, s As StringDim j As In tegerOpen “ c:abc.txtfor Output As #1(1分)For i = 1000 To 9999(1 分)s =

21、Trim(Str(i)(1 分)If Mid(s, 1, 1) = Mid(s, 4, 1) And Mid(s, 2, 1) = Mid(s, 3, 1) Then(2 分)Print #1, s (1 分)End IfNext iClose #1End SubViSual Basic程序设计上机试题考试要求：1、考试时间为2个小时。2、不得使用U盘，不得使用VB课件：违反此要求者按作弊处理。3、考试目录为F:Source，要求将程序保存到该文件夹下。4、 每完成一题，在该文件夹中保存以题目序号命名的frm和vbp文件。例如第 二题的结果保存为2.frm和2.vbp。第一题:1、设计一个 算

22、程序。其 占20%，期 和50%。程 和 1.vbp。20分如下界面的成绩计 中总评成绩中平时 中和期末各占30%序结果保存为1.frm参考代码：Private sub Command1_Click()Label1.caption=0.2*val(text1)+0.3*val(text2)+0.5*val(text3)End SubPrivate sub Command2_Click()Text1= ”T:ext2= ” T: ext3= ”Text1.setfocusEnd Sub第二题： 20 分一个四位数，各位之和等于其前两位，各位之积各于其后二位，试求之。界面自定。程序结果保存为 2.

23、frm 和 2.vbp。参考答案：该题的结果为 1236For a=1 to 9For b=0 to 9For c=0 to 9For d=0 to 9X=1000*a+100*b+10*c+dIf a+b+c+d=10*a+b and a*b*c*d=10*c+d then print xNext d,c,b,a第三题：20分Shell 函3、设计一个如下界面的菜单程序，要求效果：单击菜单项可调出相应功能。提示: 数的格式为shell路径，1。程序结果保存为3.frm和3.vbp。程序结果保存为 3.frm和3.vbp。参考程序：Private Sub Mno te_Click()Shell

24、 no tepad.exe, 1End SubPrivate Sub MExit_Click()EndEnd Sub第四题：25分编程实现如下程序，当在列表框中单击某一学生姓名时，在文本框出现学生的籍贯。学生信息如下表：相应的序号姓名籍贯1王芸姗安徽2林丽菲辽宁3张雪涛陕西要求的程序界面:程序结果保存为4.frm和4.vbp。参考答案:Dim a, bPrivate Sub Form_Load()a = Array(”王芸姗,林丽菲,张雪涛) b = Array(安徽,辽宁,陕西)For i = LBound(a) To UBound(a)List1.Addltem a(i)Next iEnd SubPrivate Sub List1_Click()Text1 = b(List1 .L istI ndex)End Sub第五题：25分用形状控件在窗体上画一个蓝色小球，运行时可用上、下、左、右四个方向键控制其移动。 程序界面为：