大学vb应用编程题答(程序设计教程)

vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。

答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。

第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。

【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。

2. 数值型：数值型数据分为整型数和浮点数两类。

3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。

变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。

变量的值在程序中可以改变。

2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。

VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。

第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。

【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。

【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。

(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。

【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。

【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。

VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。

(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。

(A) Forml.Cap on=“欢迎使用VB”(B) Forml.Cap on='欢迎使用欢迎使用VB'(C) Forml.Cap on=欢迎使用VB(D) Forml.Cap on="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。

(A) EnabIed (B)Visible(C) Backcolor (D)Cap on4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。

(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。

(A) X_yz (B) 123ab。

(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A 。

(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。

(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。

(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D 。

一、单选共300题（共计300分）滚动条的( )属性用于指定用户单击滚动条的滚动箭头时,Value属性值的改变量. A:ValueB:LargeChangeC:ChangeD:SmallChange答案：D运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文本框的()事件.A:CLICKB:DBLCLICKC:GOTFOCUSD:CHANGE答案：D要获得用户在组合框输入的内容,应利用的组合框的属性是( ).A:ListB:ListIndexC:SelectedD:Text答案：D输入对话框InputBox的返回值的类型是 .A:长整数B:字符串C:浮点数D:整数案：B要使得标签能自动扩充以满足字体大小则可对其()属性进行设置. A:alignmentB:usemnemonicC:autosizeD:tag答案：C假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE'B:BOOLVAR=.TRUE.C:BOOLVAR=#TRUE#D:BOOLVAR=3<4答案：D运算符"\"两边的操作数若类型不同,则先再运算.A:四舍五入为Byte类型B:取整为Byte类型C:四舍五入为整型D:取整为Integer类型答案：CVisual Basic程序设计时常用的Print、CLS属于( )A:属性B:对象C:方法D:事件答案：C当文本框的属性设置为True时,在运行时文本框不能编辑. A:VisibleB:EnabledC:LockedD:MultiLine答案：C要使标签所在处透明显示背景,应把其Backstyle属性设置为(). A:0B:1C:2D:3答案：AVisual Basic中,实现参数的传值方式的关键字是A:DimB:ByRefC:ReDim语句Print "5*5" 的显示结果是 .A:25B:"5*5"C:出现错误提示D:5*5答案：D若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的属性窗口中设置( ) A:Text属性值为*B:Caption属性值为*C:password属性值为空D:Passwordchar属性值为*答案：D在下列关于通用对话框的叙述中,错误的是( ).A:当Action属性值为3时,显示字体对话框B:CommonDialogl.ShowFont显示字体对话框C:在"打开"或"另存为"对话框中,FileName属性返回所选的文件名及其路径D:在"打开"或"另存为"对话框中,用户选择的文件名可以经FileTitle属性返回答案：AList1.Clear中的Clear是( ).A:属性D:对象答案：C以下不具有Picture属性对象是().A:窗体B:图片框C:图像框D:文本框答案：D设有如下数组定义语句: Dim s(3) as integer 则下列给数组元素赋值的错误语句是().A:S(2)=5*5-3*3B:s(3)=100C:S(3)=val(inputbox( "输入整数"))D:s(3)=array(0,1,2,3)答案：D简单组合框的style值为().A:0B:1C:2D:3答案：B以下()程序段可以实施X、Y变量值的变换.A:Y=X:X=YB:Z=X:Y=Z:X=YC:Z=X:X=Y:Y=ZD:Z=X:W=Y:Y=Z:X=Y答案：C表达式(7\3+1)*(18\5-1)的值是().A:8.76B:7.8C:6D:6.67答案：C下列对象中没有焦点属性的是().A:命令按钮控件B:窗口控件C:文本框控件D:单选框控件答案：B下列关于Select Case的叙述中,错误的是 .A:Case "abc","ABC" 表示判断Is是否和"abc"、"ABC"两个字符串中的一个相同B:Case "X" 表示判断Is是否为大写字母XC:Case -7,0,100 表示判断Is是否等于字符串"-7,0,100"D:Case 10 To 100 表示判断Is是否介于10与100之间答案：C设a=6,则执行x=IIf(a>5,-1,0)后,x的值为().A:5B:6C:0D:-1答案：D有一如下过程:Sub fact(n As Integer, result As Long)result = 1For i = 1 To nresult = result * iNext iEnd Sub在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click()Dim res As Longfact 5, resPrint resEnd Sub程序运行后,单击命令按钮,则输出的结果是A:120B:15C:121D:100答案：AVisualBasic的编程机制是().A:可视化B:面向对象C:面向图形D:事件驱动答案：D在窗体上添加一个命令按钮,并写如下代码Private Sub Command1_Click()stra = "AbcD":strb = "hIJK"strc = LCase(stra)strd = UCase(strb)Print strc; strdEnd Sub运行后,单击命令按钮,显示的结果是 .A:abcdHIJKB:aBCdHijKC:ABCDHIJKD:AbcDhIJK答案：A声明符号常量应该用关键字().A:StaticB:ConstC:PrivateD:V26/ariant答案：B在VB中过()属性来设置字体颜色.A:FontColorB:ForeColorC:BackColorD:ShowColor答案：B要清除窗体A上已经在图片框P1中打印的字符串而不清除图片框中的图像,应使用语句( ). A:P1.Print""B:P1.picture=LoadPicture("")C:A.P1.ClsD:P1.piture""答案：CSub过程与Function过程最根本的区别是_______.A:Sub过程可以直接使用过程名调用,而Function过程不可以B:Function过程可以有参数,而Sub过程不可以C:两种过程参数传递方式不同D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值答案：D为达到把a、b中的值交换后输出的目的,编程如下:Private Sub Command1_Click()a% = 10: b% = 20Call swap(a, b)Print a, bEnd SubPrivate Sub swap(ByVal a As Integer, ByVal b As Integer)c = a: a = b: b = cEnd Sub在运行时发现输出结果错了,需要修改.下面列出的错误原因和修改方案中正确的是_________. A:输出语句错误,应改为:"Print "a", "b""B:调用swap过程的语句错误,应改为"Call swap a,b"C:过程的形式参数有错,应改为:"swap(ByRef a As Integer,ByRef b As Integer)"D:swap中3条赋值语句的顺序是错误的,应改为"a=b:b=c:c=a"答案：C在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click()Dim ss = Array(9, 8, 7, 6, 5, 4, 3, 2, 1, 0)For i = 4 To 1 Step -2Print s(10 - i * 2);Next i程序运行后,单击命令按钮,则输出的结果是().A:8 4B:4 8C:8 6 4 2D:7 3答案：A删除字符串前导和尾随空格的函数是().A:Ltrim()B:Rtrim( )C:Trim()D:Lcase答案：C要把一个命令按钮设置成无效,应设置其哪一属性值(). A:VisibleB:EnabledC:DefaultD:Cancel答案：B下面语句中用来定义窗体或标准模块数组的是().A:DimB:ReDimC:Static答案：A下列关于Select Case之测试表达式的叙述中,错误的是 . A:可以是浮点类型B:只能是变量名C:可以是字符型D:可以是整型答案：B下列选项中,与List1.Text等价的表达式是( ).A:List1.List(List1.ListIndex-1)B:List1.List(List1.ListIndex+1)C:List1.List(List1.ListCount-1)D:List1.List(List1.ListIndex)答案：D语句listl.removeitem 1 将删除list.listindext等于()的项目.. A:0B:2C:3D:1答案：D执行X=7.835 :y=Int(x*100+0.5)/100 后结果是 .A:7.84B:7.8C:7.83D:7.835答案：AVisual Basic的过程有三种,它们是A:属性过程、通用过程和函数过程B:事件过程、通用过程和函数过程C:事件过程、函数过程和子程序过程D:通用过程、子程序过程和函数过程答案：C组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:StyleB:BoderStyleC:FillStyleD:DrawStyle答案：A使用Function语句定义一个函数过程,其返回值的类型为_______. A:只能是符号常量B:是除数组之外的简单数据类型C:可在调用时由运行过程决定D:由函数定义时As子句声明答案：D列表框控件中的列表内容是通过()属性设置的.A:NameB:CaptionC:ListD:Text答案：C工具栏中的"启动"按钮的作用是().A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口答案：A在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(). A:"Label"、"Label"B:"Label1"、"Visual Basic"C:"Label1"、"Label1"D:"Caption"、"Label"答案：C要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A:linkopenB:KeyPressC:loadD:click答案：C图像框(Image)的何项属性设置为true时,可使图形自动调整大小,填满整个图像框().A:WidthB:PictureC:NameD:Stretch答案：D每建立一个窗体,工程管理器窗口中就会增加一个().A:工程文件B:窗体文件C:程序模块文件D:类模块文件答案：B表达式X+1>X是().A:算术表达式B:非法表达式C:字符表达式D:关系表达式要在垂直位置上移动控件,应利用控件的()属性.A:LeftB:WidthC:TopD:Height答案：C任何控件都具有的属性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C下列选项中,不属于列表框方法的是( ).A:AddItemB:DelItemC:ClearD:RemoveItem答案：B若i的初值为8,则下列循环语句的循环次数为次. Do While i<=17i=i+2A:4次B:3次C:6次D:5次答案：D下列不能用commondialog 控件调用的对话框是(). A:open/saveB:helpC:fontD:search答案：D一个菜单项是不是一个分隔条,由()属性决定.A:Name(名称)B:CaptionC:EnabledD:Visible答案：B选中复选框控件时,value属性的值,可以是().A:TrueB:falseC:0D:1Interger类型的变量可存的的最大整数是().A:250B:256C:32768D:32767答案：D获取字符串a 最右边5个字符的函数是 . A:RightStr(a,5)B:RightTrin(a,5)C:Last(a,5)D:Right(a,5)答案：DVB认为下面()组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1答案：A下列控件中,没有Caption属性的是( ).A:框架B:复选框D:单选按钮答案：C要在图片框P1中打印字符串"HowAreYou",应使用语句(). A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C如果要给字体加删除线,可以选择下列那种属性().A:FontNameB:FontSizeC:FontStrikethruD:FontUnderLine答案：C下面哪些控件不会影响到界面设计效果().A:LabelB:TextC:CommonDialogD:Frame答案：C要改变控件的宽度,应修改该控件的()属性.A:TopB:WidthC:LeftD:Height答案：B变量未赋值时,数值型变量的值为().A:0B:空C:1D:无任何值答案：A设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(). A:Combo1.RemoveItem TextB:Combo1.RemoveItem 2C:Combo1.RemoveItem 3D:Combo1.RemoveItem Combo1.Listcount答案：B用ReDim语句定义的数组是().A:多维数组B:永久数组C:临时数组D:静态数组答案：C只能用来显示字符信息的控件是( ).A:文本框B:标签C:图片框D:图像框答案：B以下4个选项中,属性窗口未包含的是 .A:属性列表B:工具箱C:对象列表D:信息栏答案：B窗体的Caption属性的作用是().A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体答案：B启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1B:窗体1C:工程D:窗体答案：A若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性. A:BACKCOLORB:BORDERSTYLEC:FORECOLORD:BACKSTYLE答案：D以下不允许用户在程序运行时输入文字的控件是().A:标签框B:文本框C:下拉式组合框D:简单组合框答案：A引用列表框的最后一项应使用().A:List1.List(List1.ListCount-1)B:List1.List(List1.ListCount)C:List1.List(ListCount)D:List1.List(ListCount-1)答案：AInt( Rnd * 100 ) 表示的是范围内的整数.A:[1,100]B:[1,99]C:[0,99]D:[0,100]答案：C表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(). A:4^5B:3*4C:x+1D:SIN答案：C确定一个控件在窗体上的位置的属性是( ).A:Width和HeightB:Width或HeightC:Top和LeftD:Top或Left答案：C双击窗体的任何地方,可以打开的窗口是().A:代码窗口B:属性窗口C:工程管理窗口D:以上3个选项都不对答案：A下面()控件不具有Caption属性.A:标签框B:单选钮C:命令按钮D:文本框答案：D如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失.A:VisibleB:EnabledC:DisabledPictureD:Default答案：A如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(). A:=B:*C:&D:-答案：D下列()是窗体的扩展名.A:frmB:basC:clsD:dll答案：A定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分B:秒C:毫秒D:微秒答案：C在设计应用程序时,通过____窗口可以查看到应用程序工程中的所有组成部分. A:代码窗口B:窗体设计窗口C:属性窗口D:工程资源管理器窗口答案：DCls方法可以清除窗体或图片框中的()内容.A:在设计阶段使用Picture设置的背景位图B:在设计阶段放置的控件C:在运行阶段产生的图形和文字D:以上全部内容答案：C为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为().A:5B:500C:300D:5000答案：DMSGBOX函数中有4个参数,其中必须写明的参数是().A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的答案：C与传统的程序设计语言相比,Visual Basic 最突出的特点是 . A:子过程和函数功能的设计B:事件驱动运行机制C:调试技术D:结构化程序设计答案：B单击滚动条的滚动箭头时,产生的事件是().A:ClickB:ScrollC:ChangeD:Move命令钮标题热字的下划线,可通过( )符号来设置.A:\<B:&C:_D:\>答案：B下列语句中,属于合法的Visual basic 语句是().A:Option Base 4B:Option Base 2C:Option Base 1D:Option Base 3答案：C在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). A:ListB:IndexC:ListIndexD:TabIndex答案：C用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:Checked答案：C下列()是日期型常量.A:"2/1/02"B:37258C:#2/1/02#D:|2/1/02|答案：CClear方法适用于() 控件.A:图片框B:窗体C:复选框D:组合框答案：D欲使某命令按钮失效,应修改命令按钮的()属性.A:VisibleB:CaptionC:EnableD:Enabled答案：D将通用对话框类型设置为"另存为"对话框,应修改( )属性.C:ActionD:Font答案：C若要把"XXX"添加到列表框List1中的第三项,则可执行语句( ). A:List1.AddItem "XXX", 3B:List1.AddItem 3,"XXX"C:List1.AddItem "XXX", 2D:List1.AddItem 2,"XXX"答案：C下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(). A:Open "c:\file1.dat"For Output as #1B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1D:Open "c:\file1.dat" For Write as #1答案：A下面()对象在运行时一定不可见.A:LineB:TimerC:TextD:Option答案：B()对象不能作为控件的容器.A:FormB:PictureBoxC:ShapeD:Frame答案：C为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是( ).A:ValueB:DefaultC:CancelD:Enabled答案：C下列选项中不属于事件的是 .A:ShowB:KeyUpC:LoadD:Dblclick答案：A能够改变窗体边框线类型的属性是().A:FontStyleB:BorderStyleC:BackStyleD:Border答案：B标签框文本的对齐方式由( )属性来决定.A:AlignB:AlignmentC:AutosizeD:BackStyle答案：B在参数传递过程中,使用关键字_______来修饰参数,可以使之按值传递. A:ByValB:ByRefC:ValueD:reference答案：A要想返回文本框中输入的内容则可利用其()属性进行编程.A:captionB:textC:nameD:righttoleft答案：B当一个工程含有多个窗体时,其中的启动窗体是( ).A:在"工程属性"对话框中指定的窗体B:第一个添加的窗体C:启动 Visual Basic 时建立的窗体D:最后一个添加的窗体答案：A如下语句不能定义一个10×10的数组的是().A:Option Base 1:Dim s(10, 10)B:Dim s(2 To 11, -4 To 5)C:Dim s(10, 10) As IntegerD:Dim s(9, 9)答案：C若要设置文本框最大可接收的字符数,可通过( )属性来实现. A:MultiLineB:LengthC:MaxD:MaxLength答案：D数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是().A:60B:36C:30D:72答案：D以下有关对象属性的说法正确的是( ).A:对象所有的属性都罗列在属性窗口列表中B:不同对象不可能有同名属性C:不同对象的同名属性的取值一定相同D:对象的某些属性既可以在属性窗口中设置,也可以通过程序代码设置或改变答案：Dvb 中的坐标系最小刻度为().A:缇B:象素C:厘米D:一个标准字符宽度答案：A如果要在命令按钮上显示图形文件,应设置命令按钮的().A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性答案：B组合框控件是将()组合成一个控件.A:列表框控件和文本框控件B:标签控件和列表框控件C:标签控件和文本框控件D:复选框控件和选项按钮控件答案：A计时器的interval属性为0时,表示().A:计时器失效B:相隔0秒C:相隔0 毫秒D:计时器的enable属性为false答案：A清除列表框的所有选项应选择下列哪种方法().A:ClearB:ClsC:ClearItemD:RemoveItem答案：A以下叙述错误的是( ).A:下拉式菜单和弹出式菜单都用菜单编辑器建立B:如果把一个菜单项的Enabled属性设置为False,则菜单项不可见. C:内缩符号由4个点组成,它表明菜单项所在的层次.D:除分隔线外,所有菜单项都能接收Click事件.答案：B在Visual Basic代码中,将多个语句合并在一行上的并行符是() A:撇号(')B:冒号(:)C:感叹号(!)D:问号(?)答案：B工程文件的扩展名为 .A:.basB:.vbpC:.frxD:.frm答案：B将Visual Basic编制的程序保存在磁盘上,至少会产生何种文件 .A:.doc与.txtB:.vbp与.frmC:.com与.exeD:.bat与.frm答案：B为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:ValueB:DefaultC:CancelD:Enabled答案：B决定控件上文字的字体、字形、大小及效果的属性是().A:TEXTB:CAPTIONC:NAMED:FONT答案：D一、判断共204题在Visual Basic 中Dim a ,b,c as integer和Dim a as integer, b as integer,c as integer相同.答案：N有的对象属性既可在属性窗口中设定又可在程序代码中设定.答案：Y所有的控件在程序运行以后都是可见的.答案：NSingle 和Double型用于保存浮点数,在VB中定义单精度浮点8位,双浮点16位.答案：N时钟控件的属性Interval值为0时,表示屏蔽计时器.答案：Y有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y在过程中用Dim和Static定义的变量都是局部变量答案：Y对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件).答案：Y事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是事件过程由控件属性决定,而Sub过程是由户自定义.答案：Y图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响应用户操作.答案：N声明形参处缺省传递方式声明,则为按值传递(ByVal).答案：NVariant是一种数据类型,因此只能存放象其它数据类型一样,无特殊值.答案：NVB若同一个工程有许多窗体,可以指定任一窗体为启始窗体.答案：Y定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.答案：Y过程中的静态变量是局部变量,当过程再次被执行时,它的值是上一次过程调用后的值.答案：Y在VB中,函数 Fix(-3.6) 的返回值是–4.答案：N可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y如果一个菜单项的Visible属性为False,则它的子菜单也不会显示.答案：YVB规定窗体文件的扩展名是 .vbp.答案：N当需要在同一窗体中建立几组相互独立的单选钮时,就要用框架将每一组单选钮框起来.答案：Y在打开一个Visual Basic工程进行修改后,要另存为一个版本,只需单击"工程另存为…"就行,因为系统将同时保存其他文件.答案：Y利用Private Const 声明的符号常量,在代码中不可以再赋值.答案：Y如果在过程调用时使用按地址传递参数(byref),则在被调过程中不可以改变实参的值.答案：N用通用对话框控件显示"字体"对话框前,必须先设置Flags属性,否则将发生"不存在字体"的错误.答案：Y用Cls方法能清除窗体或图片框图中用Picture属性设置的图形.答案：NDo/Loop While结构中的循环体,至少被执行一次.答案：Y要使定时器控件起作用,其属性Interval不可以设置为0.答案：Y对于文件系统控件,当驱动器控件Drive1中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应改变,可以在Drive1中的Change事件中使用如下命令:Dir1.Path=Drive1.Drive.答案：Y事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.答案：NFor/Next语句中,循环控制变量只能是整型变量.答案：N关系表达式是用来比较两个数据的大小关系的,结果为逻辑值.答案：Y面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法.答案：YVisual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其它位置,则需使用自定义坐标系统.答案：Y在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.答案：Y设置框架时,可先在窗体上画好框架,再往框架内添置控件;也可以先设计控件,再建立框架,然后将已有控件拖动到框架中.答案：N在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.答案：N由Visual Basic语言编写的应用程序有解释和编译两种执行方式.答案：Y在MsgBox 函数中 prompt 参数是必须的.答案：Y文件按照数据编码方式可以分为ASCII码文件和二进制文件.答案：Y在表达式中,运算符两端的数据类型要求一致.答案：Y计时器(Timer)控件的Interval属性的单位是毫秒,即若将此属性值设为10,则每0.01秒产生一次Timer事件.答案：Y数组控件形成之后,对于每一个控件的名称是相同的.答案：Y若要新建一个磁盘上的顺序文件,可用output,append方式打开文件.答案：Y清除combo1对象的内容是combo1.clear.答案：YDo/Loop Until结构的循环,是"先判断、后执行(循环体)"的循环结构.答案：N在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive 的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变.答案：Y命令 Picture1.Circle(500,800),800 能够在图片框Picture 1 中画出的图形是圆心在 (500,800)的一个圆.答案：Y用DIM定义数值变量时,该数值变量自动赋初值为0.答案：Y在面向对象的程序设计中,对象是指可以访问的实体.答案：Y通常访问数组内容需要使用循环结构.答案：Y在VB 6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB"格式"菜单中的命令.答案：Y用关键字Public声明的过程可以被其他模块调用.答案：YVB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.答案：N用dim语句声明的局部变量能保存上一次过程调用后的值.答案：N"菜单编辑器"中至少要填"名称"和"标题"这两个框,才能真确完成菜单栏的设计.答案：Y在命令按钮的Click事件过程中,exit与end等效.答案：N在逻辑运算符Not、Or、And中,运算优先级由高到低依次为Not、And、Or.答案：YVisual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言.答案：Y设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C 的值是 False.答案：Y"事件过程"是用来完成事件发生后所要执行的程序代码.答案：Y某一过程中的静态变量在过程结束后,静态变量及其值可以在其它过程中使用.答案：N如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.答案：YActiveX控件是扩展名为*.ocx的独立文件,使用时需用"工程"/"部件"载入或移去.答案：Y要设置一个图片按钮,除了设置按钮的Picture属性外,还应该将按钮的Style属性设置为1.答案：Y使用单选钮控件数组时,它们响应同一个Click事件,由Index参数值来区分不同的按钮.答案：Y组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择. 答案：Y图象框中的Stretch 属性为 true 时,其作用是图形自动调整大小以适应图象控件.答案：Y函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及图标样式.答案：N在单行If语句中,关键字End If是必不可少的.答案：N创建数组控件的方法之一是选定控件后通过复制、粘贴的方式.答案：YFunction函数有参数传递,并且一定有返回值.答案：Y计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量.答案：Y单击"启动"菜单项将窗体装入内存时,一定触发窗体的load事件.答案：YFor/Next循环正常(未执行Exit For)结束后,控制变量的当前值等于终值.答案：N多文档界面是指在一个父窗口下面可以同时打开多个子窗口.子窗口归属于父窗口,当父窗口关闭时,所有子窗口全部关闭.答案：YListl.clear是清除Listl的全部列表项,所以Clear是对象的方法.答案：Y在标准模块的声明部分中用Public声明的变量的有效范围是其所在的工程.答案：Y函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值.答案：Y将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法.答案：YVisual_basic是合法的变量名.答案：Y填空共141题文本框中所显示的内容是它的【1】属性的值.答案 Text如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public mystring as string*15如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-2新建工程时系统会自动将窗体标题设置为【1】.答案：Form1如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】. 答案：退出(&X)拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案：Change语句Print Not 10>15 And 8<5+2的输出结果为【1】.答案：FALSE对象具有属性和【1】.答案：方法当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：False要使同一类型控件组成一个控件数组,必须要求【1】.答案：Name 相同=或=名称相同滚动条控件有水平滚动条和【1】滚动条.答案：垂直Val("123.55ab456")的值是多少【1】.答案：123.55VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案：垂直滚动条=或=滚动条把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：True运行时,若需要命令按钮为灰色,即不被击活,在设计时可以通过【1】属性来实现.答案：enabled列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案：项目列表=或==列表Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture1求x与y之积除以z的余数的VB表达式为【1】.答案 x*y Mod z已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】. 答案：DE文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件=或=随机显示弹出式菜单的方法是【1】.答案：PopupMenu要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案：DefaultVB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案：连接设置计时器控件只能触发【1】事件.答案：timerVisualBasic6.0用于开发【1】环境下的应用程序.答案：WINDOWS一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案：窗体VB6.0的连接运算符包括【1】运算符和【2】运算符两种.答案：& 或+答案2 & 或 +。

VB程序设计试题及参考答案VB程序设计及参考答案⼀、单选题（共20分，每⼩题1分）1、要改变控件的宽度，应修改该控件的（）属性。

（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。

（A）Visible （B）Value （C）Caption（D）Enabled3、（）对象具有clear⽅法。

（A）图⽚框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建⽴⼀个新（）。

（A）窗体（B）⽂件（C）⼯程（D）程序5、下列（）对象不具有Clear⽅法。

（A）列表框（B）组合框（C）剪贴框（D）图⽚框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图⽚框的⼤⼩以适合图⽚的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除⽂本框中的内容则可利⽤（）进⾏。

（A）Caption （B）Text （C）Clear （D）Cls9、在⽂本框控件中将Text的内容全部显⽰为所定义的字符的属性是（）。

（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是⼀种⾯向对象的程序设计语⾔，所采⽤的编程机制是（）。

（A）从主程序开始执⾏（B）按过程顺序执⾏（C）事件驱动（D）按模块顺序执⾏11、下列四项中合法的变量名是（）。

（A）a-bc （B）a_bc （C）4abc （D）integer12、⽆论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。

《VB程序设计教程》（第4版）习题解答单元一巩固与提高答案一、选择题1. Visual Basic 6.0分为3种版本，不属于这3种版本的是A）学习版B）专业版C）企业版D）业余版【答】D。

2. 下列方法中不能退出Visual Basic的是A）按Alt+Q组合键B）按下Alt+F组合键，然后按Esc键C）按F10键，然后按F键，再按X键D）打开“文件”菜单→“退出”命令【答】B。

3. Visual Basic集成的主窗口中不包括A）属性窗口B）标题栏C）菜单栏D）工具栏【答】A。

4. 下列操作可以打开立即窗口的是A）Ctrl+D B）Ctrl+F C）Ctrl+G D）Ctrl+E【答】C。

二、填空题1. 与传统的程序设计语言相比，Visual Basic最突出的特点是____。

【答】事件驱动编程机制。

2. 如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。

【答】功能键F10或Alt键。

3. 建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。

【答】“工程”菜单。

三、思考题1. 简述Visual Basic的特点。

【答】与一般的程序设计语言相比，VB具有以下特点：(1) 可视化的设计平台；(2) 面向对象的设计方法；(3) 事件驱动的编程机制；(4) 结构化的设计语言；(5) 充分利用Windows资源；(6) 开放的数据库功能与网络支持。

2. 简述Visual Basic集成开发环境的组成。

【答】VB 6.0集成开发环境除了具有标准Windows环境的标题栏、菜单栏、工具栏外，还有工具箱、属性窗口、工程管理器窗口、窗体设计器、立即窗口、窗体布局窗口等有用的开发工具。

(1) 标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化∕还原、关闭按钮。

菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了VB编程的常用命令。

VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。

(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。

(A) Forml.Caption=“欢迎使用VB”(B) Forml.Caption='欢迎使用VB'(C) Forml.Caption=欢迎使用VB(D) Forml.Caption="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。

(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。

(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。

(A) X_yz (B) 123ab。

(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A 。

(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。

(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。

(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。