VB考试试习题及答案

1、VB考试试题及答案37卷1一、    填空题1、VB程序设计的主要特点是     可视化设计     和    事件编程      。2、在VB中，最主要的两种对象是   窗体（form）  和 控件  。3、工程是构成应用程序文件的    集合   。4、方

2、法是VB提供的一种  特殊子程序   ，用来完成一定的操作。5、浮点类型数据包括单精度型和_双精度_数据。6、事件是窗体或控件对象识别的_动作_。7、可用窗体的_print_  方法在窗体中显示文字。8、 复选框控件Value属性指示复选框处于_选中_或禁止状态(暗淡的)中的某一种。9、在VB中，修改窗体的   高度（height）和   宽度（width）  属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的 

3、60; 中央  出现一个尺寸为缺省值的控件。11、在MsgBox函数中，如果缺省title参数，则使用   工程1  作为消息框的标题。12、设x34.58，语句Print Format(x,“000.0”)的输出结果是  34.6 。13、在VB 中，数值型变量的初值为  0 ，Varant型变量的初值为  空  ，布尔型变量的初值为  FALSE  。14、设置窗

4、体的   picture  属性，可在窗体上显示图片。15、程序运行工程中，清除MP图片框中的图片应使用语句  cls 。二、选择题1、菜单控件只包括一个事件，即  C   ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A、GotFocus         B、Load       

5、; C、Click        D、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是  A   。A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select * Form student 中的 *表示   

6、;    B      。A、所有记录     B、所有字段     C、所有表   D、都不对4、以下选项中，不属于标签的属性是  C   。A、Enabled         B、Caption      

7、C、Default     D、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是  A   。   A、Caption        B、Name        C、Text        D、Label6、设置一个单选按钮(OptionButton)

8、所代表选项的选中状态，应当在属性窗口中改变的属性是  D   。    A、Caption        B、Name       C、Text        D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？  D   。  

9、 A、在标题项中输入&，然后打勾            B、在索引项中打勾               C、在有效项中打勾                 

10、60;     D、在复选项中打勾8、当执行以下过程时，在窗体上将显示  A   。Private Sub Command1_Click( )Print "VB"Print "Hello! "Print "VB"End SubA、 VBHello!VB                B、&

11、#160;VB                                                  

12、60;Hello!VB             C、 VB                          D、 VB        He

13、llo!  VB                      Hello!                         

14、;               VB9、语句Print "The answer is:"20/4-2的结果为  B   。A、The answer is 20/4-2          B、The answer is 3C、The answer is "20/4-2"&

15、#160;       D、非法语句  10、下列哪个控件是容器控件  B   。   A、Image      B、Picture      C、ComboBox       D、FileListBox   11、若要将窗体从内存中卸载出去，其实现的方法是&

16、#160; D   。A.Show    B.Hide      C.Load      D.UnLoad12、以下选项中，不是 Visual Basic控件的是  A   。 A.窗体   B.定时器    C.单选框    D.命令按钮13、双击窗体中的对

17、象后，Visual Basic将显示的窗口是  A   。  A.代码窗口  B工具箱  C项目（工程）窗口 D属性窗口14、可决定窗体的左上角是否有控制菜单的属性是  A   。A.ControlBox              B.MinButton  C.MaxButton

18、           D.BorderStyle15、设有如下语句：   StrlInputBox（"输人"，""，"练习"）从键盘上输人字符 “示例”后，Strl的值是  D   。   A“输入”      B“ ”      

19、;C“练习”      D“示例”         16、窗体Form1的Name属性是Frm1,它的单击事件过程名是    C   。   A. Form1_Click    B.Form_Click    C. Frm1_Click   D. Me_Click

20、60; 17、窗体的hide属性的含义是      A   。    A.隐藏          B.展现          C.装入          

21、60;D.卸载18、若要设置定时器控件的定时时间，需设置的属性是  C   。AEnabled BValue CInterval DText19、能够改变复选框中背景颜色的属性是  C   。    AValue          BFontColor    CBackColor    D

22、Font20、窗体能响应的事件是    B  。    AActiveForm       BLoad      CDrive         DChange三、判断题(判断下列正确与否，正确的打，错误的打。)1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X2、图象框中的Stretch属性为true时，其作

23、用是图形自动调整大小以适应图象控件。X3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。X4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。X6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。7、已知PMsgBox(“Howareyou"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。8、工程文件的扩展名是 .vbg 。9、VB允许设计和使用用户自己设计的控件。10、OptionButt

24、on控件没有DblCliek事件。X11、同一条记录中的各数据具有相同的类型。12、使用Data控件可以直接显示数据库中的数据。X13、ImageList 是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。X16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。X17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。18、使用数组定义语句：Dim D$

25、（10），则数组D中各元素的值为空。X19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。X20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。   四、读程序题，写出程序运行结果    1、 Private Sub Form_Click()Static SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub        

26、运行程序，第一次单击窗体：     55                        第二次单击窗体：   110         2、 Private Sub Form_Click()Print "

27、;*" Tab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3  Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub             程序运行结果：   *   2    5   

28、0;                       15    30   75                    &#

29、160;      16    32   80                      五、编程题 （一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、

30、向右移动100twip（20分之一像素）。请填空：        Private Sub  Form_load( )                Picture1.picture   =loadPicture(“c:picball.ico”)       

31、      Timer1    .Interval=200       End  Sub        Private  Sub  Timer1_Timer( )           Static &

32、#160;x , y  As  Integer           x=x+100           y=y+100             Picture1.Move     x , y

33、            End  Sub    （二）有一个单击按钮过程，其作用是产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：        Private Sub Command1_Click()         Dim 

34、0;x  As  Integer,  N%         Dim  Counter  As  Integer               randomize      Timer  

35、60;       For  N=1  To 50            X=Rnd()*    rnd()*41+60             If     x 

36、60;Mod  6     =2  Then              Print  x              Counter=    Counter+1   

37、60;              End if               Next  N         Print  Counter       End&#

38、160; Sub卷2第一部分：客观题一、 单项选择题1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ）A、 Dim B、 Public C、Private D、 Static2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 、Refresh 、Setfocus 、Gotfocus 、Value4、下列不可作为VB变量名的是（）A、ABT1 B、Alpha C、ABC D、4*Delta5、表达式 5 Mod 3+35*2的值是 （）A、 0

39、 B、 6 C、4 D、 26、下列语句中，正确的赋值语句是（ ）A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 07、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < nA、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） 、Click 、MouseDown 、MouseUp 、DblClick9、下列为整型变量的是（ ）A、 x! B、 x# C、x$ D、 x%10、要从For循环中直接退出循

40、环，可使用的语句( )。A、Exit Do B、Exit Loop C、Exit For D、Stop11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（）A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =112、在通用声明中给出Option Base 1语句，则数组a包含（ ）个数组元素。 Dim a(3, -2 To 1, 5) As IntegerA、60 B、75 C、120 D、1313、设窗体上有一个名称为Text

41、1的文本框，要求只能显示信息，不能输入，应选择答案（）A、Text1.MaxLength=0 B、Text1.Width=0C、Text1.Visible=False D、Text1.Enabled=False14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（ ）A、Picture属性中的图形 B、DownPicture属性中的图形C、DisablePicture 属性中的图形 D、不显示图形15、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub

42、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$="abbacddcba"For i=6 To 2

43、Step -2 X=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) + 49 B、Int(Rnd * 51 +50) C、Int(Rnd * 50) + 5 D、Int(Rnd * 50 + 50)18、执行x = InputBox("请输入半径",0,"求面积") ，在输入框中输入3后回

44、车,则下列叙述正确的是（ ）A、x的值是数值3 B、 x的值是字符"3"C、0是默认值 D、 对话框标题是"求面积"19、设置图像框的（ ）可使框内的图片按图像框大小自动调整。A、 AutoSize属性为True B、 Stretch属性为TrueC、 AutoSize属性为False D、 Stretch属性为False20、有如下事件过程Private Sub Command1_Click()x = 1For i = 1 To 3If i <= 1 Then a = x * xIf i <= 2 Then a = x * x + 1If

45、i >= 3 Then a = x * x + 2Print a; Next iEnd Sub运行时，单击命令按钮，则结果是（ ）：A、 2 5 11 B、1 5 1 C、 2 2 3 D、1 1 121、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click() Static X As IntegerStatic Y As IntegerClsY = 1: Y = Y + 5: X = 5 + XPrint X, YEnd Sub程序运行时，单击命令按钮Command1三次后，窗体上显示的结果为（）A、15 16 B、15

46、 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、Instr24、下列哪组语句可以将变量a，b的值互换（ ）A、 a=b: b=a B、 a=a+b: b=a-b: a=a-bC、 a=c: c=b: b=a D、 a

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

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

49、xt1.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，如果是错误的涂B。答在试卷上不得分1、VB程序运行后，在内存中只能驻留一个窗体。2、在VB中，控件的属性只能在设计时修改，运行时无法改变。3、执行Unload Form1语句后，窗体Fo

50、rm1消失，但仍在内存中。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”的显示结果是一样的。9、控件数组使用Index属性来标识控件元素，其范围必须从0开始。10、文件号的最大取值为512。第二部分：主观题三、 填空题请在答题卷对应位置填写答案，答在

51、试卷上不得分。1、数学关系式a2+b2 表示成正确的VB表达式为_【1】_ 。2、计算表达式的值Int(86.567 * 100 + 0.5) / 100_【2】_ 。3、赋值语句g = 123 + Mid("123456", 3, 2)执行后，变量g中的值是_【3】_ 。4、VB6.0在编写代码时可以添加说明性文字。注释方法有2种，一种是使用注释标记符撇号（）；另一种是使用以关键字_【4】_开头的注释语言。5、设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf(a<b)

52、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，执行语句Print a>b>c后，窗体上显示的是_【10】_ 。四、 读程序写结果请将答案填写在答题卷对应位置处，答在试卷上不得分。1、下面程序执行后a的值是

53、_【1】_。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 1 Do While b <> 5 a = b - a b = b + 1 Loop Print aEnd Sub2、下列程序运行后，单击窗体时显示的结果是_【2】_。Private Sub Form_Click() Dim x As Integer x = 1 mysub x Print xEnd SubPrivate Sub mysub(x As Integer) x = 3 * x - 1 If x < 5 Then

54、x = x + 9End Sub3、单击窗体，程序运行后结果是_【3】_。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、程序运行时，单击Command1按钮，显示结果是_【4】_。Private Sub Command1_Click() Dim a As Variant, s A

55、s Integer Dim i As Integer, j As Integer a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub5、程序运行时，单击Command1按钮，显示结果是_【5】_。Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 1 To 100 i = i + 4 n = n + 1 i = i + 2 If i > 30 Then Ex

56、it For Next i Print 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”中。(顺读和倒读都一样的字符串称“回文”，如：“level”，“1221”) (6分)第一部分：客观题一

57、、 单项选择题1-5、 DDBDD 6 -10、 CBDDC 11-15、 DADBD 16-20、 CBBBC21-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、a2+b2 2、86.573、 157 4、 REM 5、 “A” 6、 属性7、 100 8、 int(rnd*90+10) 9、 true 10、 false四、读程序写结果题1、3 2、11 3、224、1234 5、5, 35五、编写程序题1、生成大小为1到100的50个随机整数，使用选择法对这些数进行由小

58、到大的排序，并将其显示出来。Private Sub Command1_Click() Dim a(49) as integer (1分) Dim i as integer, k as integer Randomize Time For i=0 to 49 a(i)=Int(Rnd*(100-1+1)+1) (1分) next i for 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 j tmp=a(i): a(i)=a(k): a(k)=tmp (1分)next ifor i=0

59、 to 49 print a(i); (1分)next iEnd Sub2、编写一函数过程计算1到n的累乘，参数n在调用时传递，函数名为mul。在主程序中调用该函数完成计算sum=1!+2!+3!+4!+5!，然后把sum结果打印出来。Private Sub Command1_Click() Dim sum as Integer, I as integer Sum=0 (1分) For i=1 to 5 Sum=Sum+mul(i) (1分) Next i Print sum (1分)End subPrivate Function mul(n as integer) as integer (1

60、分) Dim s as integer, i as integer S=1 For i=1 to n S=s*i (1分) Next i Mul=s (1分)End Sub3、找出所有四位整数的回文数，并把找出的这些回文数保存在顺序文件”c:abc.txt”中。(顺读和倒读都一样的字符串称“回文”，如：level，1221) Private Sub Command1_Click()Dim i As Integer, n As Integer, s As StringDim j As IntegerOpen “c:abc.txt” for Output As #1 (1分)For 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 IfNex