VB考试精彩试题及

1、实用文档卷1一、填空题1、VB程序设计的主要特点是 可视化设计 和 事件编程。2、在VB中，最主要的两种对象是窗体（form） 和 控件 。3、工程是构成应用程序文件的集合 。4、方法是VB提供的一种 特殊子程序 ，用来完成一定的操作。5、浮点类型数据包括单精度型和 双精度数据。6、事件是窗体或控件对象识别的动作 。7、可用窗体的_print 方法在窗体中显示文字。8、复选框控件Value属性指示复选框处于选中 或禁止状态（暗淡的）中的某一种。9、在VB中，修改窗体的高度（height ）和 宽度（width ） 属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的 中央出现一个

2、尺寸为缺省值的控件。11、在MsgBox函数中，如果缺省title 参数，则使用 工程1 作为 消息框的标题。12、设 x = 34.58 ,语句 Print Format（x, “000.0”）的输出结果是34.6 。13、在VB中，数值型变量的初值为 0, Varant型变量的初值为 空 ：布尔型变量的初值为FALSE 。14、设置窗体的 picture 属性，可在窗体上显示图片。15、程序运行工程中，清除 MP图片框中的图片应使用语句cls 。二、选择题1、菜单控件只包括一个事件，即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A G

3、otFocusB、LoadC、ClickD> KeyDown2、滚动条控件（如图所示）的Max属性所设置的是A 。A滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量G单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D滚动条控件无该属性3、SQL 语句 Select * Form student 中的 *表示 B 。A、所有记录B、所有字段C、所有表 D都不对4、以下选项中，不属于标签的属性是 C 0A、EnabledR CaptionC、DefaultD Font5、要求改命令按钮显示的文本，应当在属性窗口中

4、改变的属性是AA CaptionB、NameC、TextD Label6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗 口中改变的属性是D 0A、CaptionB NameGTextD Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？D cA、在标题项中输入&,然后打勾R在索引项中打勾G在有效项中打勾D在复选项中打勾8、当执行以下过程时，在窗体上将显示A 。Private Sub Command1_Click()Print "VB"Print "Hello!"Print "VB&qu

5、ot;B、VBVBEnd SubA VBHello!VBHello!VBC、VBHello!Hello!VB9、语句 Print "The answer is:"20/4-2 的结果为 B 。A The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D> 非法语句10、下列哪个控件是容器控件 B。A ImageB、PictureGComboBoxD> FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是 D 。A.ShowB.HideC.LoadD.UnLo

6、ad12、以下选项中，不是 Visual Basic 控件的是 A。A.窗体B.定时器C.单选框D.命令按钮13、双击窗体中的对象后，Visual Basic 将显示的窗口是 A 。a.代码窗口b.工具箱c.项目（工程）而DHs性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A。A.ControlBoxB.MinButtonC.MaxButtonD.BorderStyle15、设有如下语句：Strl =InputBox （"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。A.“输入"B.

7、” "C.“练习”D.“示例”16、窗体Form1的Name®性是Frm1,它的单击事件过程名是 C 。A. Form1_ClickB.Form_ClickC. Frm1_Click D.Me_Click17、窗体的hide属性的含义是 A 。A.隐藏B.展现C.装入D.卸载18、若要设置定时器控件的定时时间，需设置的属性是C 。A. Enabled B. Value C. IntervalD. Text19、能够改变复选框中背景颜色的属性是C 。A. ValueB. FontColorC. BackColorD. Font20、窗体能响应的事件是B 0A. ActiveF

8、ormB. LoadC. DriveD. Change、判断题（判断下列正确与否，正确的打，错误的打X。）1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图 象控件。X3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。；4、通过改变属性窗口中的 NameH性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：（1）创建应用程序界面（2）设置控件 编写代码。X6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常 量。7、已知 P= MsgBox( "Howar

9、eyou?", VbYesNo+VbQuestion “Hello! ”)，变 量P是Integer数据类型。8、工程文件的扩展名是.vbg o9、VB允许设计和使用用户自己设计的控件。10、OptionButton 控件没有 DblCliek 事件。X11、同一条记录中的各数据具有相同的类型。12、使用Data控件可以直接显示数据库中的数据。X13、ImageList 是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除(真正删除)

10、。X16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex 值为10。X17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。18、使用数组定义语句：Dim D$ (10),则数组D中各元素的值为空。X19、如果在一行中输入多条语句，各语句之间用使用；分隔。X20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该 行代码有语法错误。四、读程序题，写出程序运行结果1、 Private Sub Form_Click()Static SUM As IntegerI = 1Do While I<=10SUM = SUM +

11、 II = I + 1LoopPrint SUMEnd Sub运行程序，第一次单击窗体： 55第二次单击窗体： 1102、 Private Sub Form_Click()Print "*" Tab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub程序运行结果：*25（一）窗体中有图片框（Picture1）和计时器（Timer1）两个控件，运行程序时, 将图片加载到图片框中，然后图片框以每2秒钟

12、一次的速度向窗体的右下脚移动，每次向左、向右移动100twip （20分之一像素）。请填空：Private Sub Form_load()Picture1.picture=loadPictur e( "c:picball.ico " )Timer1.Interval=200End SubPrivate Sub Timer1_Timer（）Static x , y As Integer x=x+100 y=y+100Picturel.Movex , yEnd Sub（二）有一个单击按钮过程，其作用是产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填

13、空：Private Sub Command1_Click()Dim x As Integer, N%Dim Counter As Integer randomizeTimerFor N=1 To 50X=Rnd()*rnd()*41+60Ifx Mod 6=2 ThenPrintxCounter=Counter+1_End ifNext NPrintCounterEnd Sub第一部分：客观题1、2、单项选择题在窗体模块的通用段中声明变量时，不能使用的关键字是（StaticA Dim B 、Public C 、Private D3、4、5、6、7、A工程资源管理器窗口C 属性窗口D若要使某可见

14、控件获得焦点，可使用A、Refresh B、Setfocus下列不可作为 VB变量名的是（、工具箱窗口、代码窗口）方法来实现。C、 GotfocusD、ValueA ABT1B 、Alpha C表达式 5 Mod 3+35*2 的值是卜列语句中，正确的赋值语句是（A i + j = 10 B ,执行下列程序段后， n = 4: x = 1: i = 1、2i = j 的值是（DoLoop While i < nA、 2 B)ABC)108、当用户在窗体上单击鼠标时，不会触发的事件A、 Click8、 MouseDown4*Delta14C、MouseUp)D、DblClick9、下列为整

15、型变量的是（）A、 x! B 、 x# C、x$x%10、要从For循环中直接退出循环，可使用的语句A Exit Do B、Exit Loop、Exit For11、下列逻辑表达式中，能正确表示条件“x,y都是奇数”的是（、Stop)A x Mod 2 =1 Or y Mod 2 =1C x Mod 2 =0 And y Mod 2=0、x Mod 2 =0 Or y Mod 2=0、x Mod 2 =1 And y Mod 2 =1在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（12、在通用声明中给出 Option Base 1 语句，则数组 a包含()个数组元素。Dim a(3, -

16、2 To 1,5) As IntegerA 60 B 、75 C 、120 D 、1313、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案( )A Text1.MaxLength=0B、Text1.Width=0C Text1.Visible=False D、Text1.Enabled=False14、命令按钮 CommandButton 的 Picture,DownPicture 和 DisablePicture属性都已装入图形，按下命令按钮，其上显示的图形是()A Picture 属性中的图形 B 、DownPicture 属性中的图形C DisablePi

17、cture属性中的图形D 、不显示图形15、在窗体上画一个名称为Command的命令按钮，并编写如下程序：Private 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、执行以下程序段，输出结果为()

18、Private Sub Command1_Click()a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z= UCase(x & y & z)Next iPrint zEnd SubA ABA B 、ABBABA C、 BBABBA D 、AABAAB17、以下()语句可表示50,100之间的随机数。A Int(Rnd * 51) + 49B、Int(Rnd * 51 +50)C Int(Rnd * 50) + 5D、Int(Rnd * 50 + 50)18、执行x

19、= InputBox("请输入半径",0,"求面积"),在输入框中输入3后回车，则下列叙述正确的是()A x的值是数值3 B 、x的值是字符"3"C 0是默认值D对话框标题是"求面积"19、设置图像框的（）可使框内的图片按图像框大小自动调整。Stretch属性为 TrueStretch属性为 FalseA AutoSize 属性为 TrueBC AutoSize 属性为 FalseD20、有如下事件过程Private Sub Command1_Click()x = 1Fori = 1 To 3If i <=

20、1 Then a = x * xIf i <= 2 Then a = x * x + 1If i >= 3 Then a = x * x + 2Print a;Next iEnd Sub运行时，单击命令按钮，则结果是(A、 2 5 11 B 、 1 5 1 C21、在窗体上画一个名称为Command的命令按钮，然后编写如下程序:Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerCisY = 1: Y = Y + 5: X = 5 + XPrint X, YEnd Sub程序运行忖，单击命令按钮 Com

21、mandE次后，窗体上显示的结果为（）A、15 16 B 、15 6 C 、15 15 D 、5 622、设a=3,b=5 ,则以下表达式值为TRUE勺是（）A、a>=b And b>10 B 、a>b Or b>0C a<0 and b >0 D、-3+5>a and b>023、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第个字符串中起始位置的函数是（）A、 Left B 、Mid C 、String D 、Instr 24、下列哪组语句可以将变量 a, b的值互换（）A、 a=b: b=aB、a=a+b:

22、b=a-b: a=a-bC a=c: c=b: b=aD、a=（a+b）/2: b=（a-b）/225、可以同时删除字符串前导和尾部空格的函数是（）A、LtrimB、Rtrim C Trim D、Mid26、表达式293的值是（）A、1 B 、7 C 、8 D 、927、下列程序运行后，单击command1时显示的结果是（）Private Sub Command1_Click（） x = 1 mysub x + 2 Print xEnd SubPublic Sub mysub(x As Integer)x = 3 * x - 1If x < 4 Then x = x + 10Print

23、x;End SubA、 8 1 B 、 8 8 C 、19 1 D 、19 1928、以下有关 Visual Basic语言描述中错误的是()。A、不区分大小写B 、语句是一行一句，以回车键结束c用:"分隔一行中的多个语句D 一条语句放在多行中，则在前一行结束处使用续行符空格+下划线(“ _")连接下一行29、在窗体上添加两个文本框(其NameW性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x < 50x = (x + 2) *

24、 (x + 3) n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为()A 1 和 0B 2 和 72C 3 和 50D、 4 和 16830、设有如下声明：Dim X As Integer如果Sgn(X)的值为-1 ,则X的值是()A、整数 B 、大于0的整数 C 、等于0的整数 D 、小于0的数二、判断题下列各题如果是正确的，请在机读卡对应位置上涂A,如果是错误的涂Bo答在试卷上不得分1、VB程序运行后，在内存中只能驻留一个窗体。2、在VB中，控件的属性只能在设计时修改，

25、运行时无法改变。3、执行Unload Form1语句后，窗体 Form1消失，但仍在内存中。4、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程。5、Function过程与Sub过程最主要的区别是：SUB±程不能返回值，而 FUNCTION过程能返回值。6、用Print方法可以在图像框中输出数据。7、Dim a,b,c As Integer 能将a,b,c都声明成整型变量。8、语句 print "*" ;tab(10);" a"与语句 print "*" ;spc(10); " a”的显示结果是一

26、样的。9、控件数组使用Index属性来标识控件元素，其范围必须从0开始。10、文件号的最大取值为512。第二部分：主观题三、填空题请在答题卷对应位置填写答案，答在试卷上不得分。1、数学关系式a?+b2表示成正确的VB表达式为 【1】 。2、计算表达式的值 Int(86.567 * 100 + 0.5) / 100=12】 。3、赋值语句g = 123 + Mid("123456", 3, 2)执行后，变量g中的值是 _ 。4、VB6.0在编写代码时可以添加说明性文字。注释方法有2种，一种是使用注释标记符撇号()；另一种是使用以关键字 4 开头的注释语言。5、设 a=&quo

27、t;a" , b="b" , c="c" , d="d",执行语句 x=IIf(a<b)Or(c>d), "A","B") 后，x 的值为【5】。6、在VB中，描述对象特征的数据称为对象的 【6】 。7、有下面的表达式 x1=val( “1e2abcd”)，运行后，x1的值为：【7】 。8、产生一个两位数的随机数的表达式为：【8】 。9、只有控件对象的 Enabled和Visible 属性值均为【9】时，该控件对象才能 接受焦点。10、设a=10, b=5, c=1 ,执行

28、语句 Print a>b>c 后，窗体上显示的是 10 。四、读程序写结果请将答案填写在答题卷对应位置处，答在试卷上不得分 1、下面程序执行后 a的值是 11】。Private Sub Command1_Click()Dim a As Integer, b As Integer a = 1: b = 1Do While b <> 5a = b - ab = b + 1LoopPrint aEnd Sub2、下列程序运行后，单击窗体时显示的结果是 21 Private Sub Form_Click()Dim x As Integer x = 1 mysub xPrint

29、x End SubPrivate Sub mysub(x As Integer) x = 3 * x - 1If x < 5 Then x = x + 9 End Sub3、单击窗体，程序运行后结果是 31 。Private Sub form_Click()Dim i As Integer, j As Integer i = 22: j = 44 Call mysub(i, j) Print jEnd SubPublic Sub mysub(ByVal x As Integer, y As Integer) x = y + x y = x Mod yEnd Sub4、程序运行时，单击 C

30、ommand按钮，显示结果是【4】 。Private Sub Command1_Click()Dim a As Variant, s As IntegerDim i As Integer, j As Integer a = Array(1,2, 3, 4) j = 1For i = 3 To 0 Step -1 s = s + a(i) * j j =j*10Next iPrint s End Sub5、程序运行时，单击 Command按钮，显示结果是【5】 。Private Sub Command1_Click()Dim i As Integer, n As IntegerFor i = 1

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

32、abc.txt ”中。（顺读和倒读都一样的字符串称“回文”,如：“level ”，“1221”)(6 分)第一部分：客观题DADBD 16-20 、 CBBBC一、单项选择题1-5、DDBDD 6 -10、CBDDC 11-1521-25、 BBDBC 26-30、DACBD二、判断题1、 B 2、 B 3、 B 4、 A 5、 A 6、B 7、 B 8、 B 9 、 B 10 、B第二部分：主观题三、填空题1、aA2+bA22、86.573、1574、REM5、“A”6、属性7、1008、int(rnd*90+10)9、true10、false四、读程序写结果题1、32、113、224、 1

33、2345、5, 35五、编写程序题并将1、生成大小为1到100的50个随机整数，使用选择法对这些数进行由小到大的排序, 其显示出来。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 jtmp=a(i):

34、a(i)=a(k): a(k尸tmp (1分)next i for i=0 to 49 print a(i); (1分)next i End Sub2、编写一函数过程计算1到n的累乘，参数n在调用时传递，函数名为mul。在主程序中调用该函数完成计算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

35、 mul(n as integer) as integer (1分)Dim s as integer, i as integerS=1For i=1 to nS=s*i (1分)Next iMul=s (1分)End Sub3、找出所有四位整数的回文数，并把找出的这些回文数保存在顺序文件"c:abc.txt ”中。(顺读和倒读都一样的字符串称“回文”，如：level , 1221)Private Sub Command1_Click()Dim i As Integer, n As Integer, s As String分）Dim j As IntegerOpen "c:a

36、bc.txt " for Output As #1(1For i = 1000 To 9999(1分)s = 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、每完成一题，在

37、该文件夹中保存以题目序号命名的frm和vbp文件。例如第二题的结果保存为2.frm 和2.vbp。第一题：20分1、设计一个如下界面的成绩计算程序。其中总评成绩中平时占20%,期中和期末各占30%口 50%程序结果保存为l.frm和l.vbp。参考代码：Private sub Command1_Click()Label1.caption=0.2*val(text1)+0.3*val(text2)+0.5*val(text3) End SubPrivate sub Command2_Click()Text1= : Text2= : Text3=Text1.setfocusEnd Sub第二题：2

38、0分一个四位数，各位之和等于其前两位，各位之积各于其后二位，试求之。界面自定。程序结果保存为 2.frm和2.vbp。参考答案：该题的Z果为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分Shell3、设计一个如下界面的菜单程序，要求效果：单击菜单项可调出相应功能。提示: 函数的格式为shell路径，1。程序结果保存为 3.frm和3.vbp。程序结果保存为 3.frm和3.vbp。参考程序：Private Sub Mnote_Click()Shell "notepad