大学vb应用编程题答(程序设计教程)
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的函数，返回值为整数，应该使用语句________。
VB程序设计习题及答案第2章VisualBasic语言基础知识
第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程序设计教程课后参考答案概要
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. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。
VB程序设计 习题及答案第4章 选择结构程序设计
第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程序设计试题及答案（一）-vb程序设计答案
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 。
VB答案(选择+填空+程序设计)
一、单选共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程序设计试题及参考答案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程序设计教程课后答案
1、 简述 VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程 序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。 2、 当正常安装 VB6.0后，误把 Windows 子目录删除。当重新安装 Windows 后，是否需要再次安装 VB6.0？ 答：要重新安装的。因为安装 VB6.0时，有些 VB 程序被系统自动安装在 Windows 目录下，所以一旦删 除 Windows 子目录，就必须重新安装 VB6.0。 3、 Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在 VB6.0的启动界面上，能显示对应的版本。 4、 叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件） ；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、 Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、 当建立好一个简单的应用程序后， 假定该工程仅有一个窗体模块。 试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件， 应先保存什么文件？再保存什么文件？若不这样做， 系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm） ，再保存工程文件（.vbp） 。若先保存工程文件，系统 也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、 保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是 VB98 8、 安装 Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两张光盘上，即 MSDN Library，其中还包含了 VC、VFP 等其他语言的帮 助系统。 9、 如何使用 Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的内容，然后按 F1功能键，这时系统打开 MSDN Library 查阅器，直接 显示与选定内容有关的帮助信息。 10、 什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、 属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执 行的操作。 12、 当标签边框的大小由 Caption 属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的 Autosize 属性值设置为 true。 13、 在 VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是 不能显示该图形，而显示的是 Caption 属性设置的文字，应怎样修改？ 答： 命令按钮的显示形式通过将 Style 属性值设置为 Graphical 来实现。 通过 Picture 属性来装入图形。 不
VB程序设计教程 习题解答
《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程序设计试题及答案(一)
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 。
vb程序设计书习题和参考答案
vb程序设计书习题和参考答案练习题习题一一、判断题1．Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2．面向对象的程序设计是一种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建工程时系统会自动将窗体标题设置为Form1。
5．控件的属性值不能够在程序运行时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可用性的属性是Enabled属性。
7．保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存窗体或模块文件。
8．单击“启动”菜单项将窗体装入内存时，一定触发窗体的Load事件。
9．“事件过程”是用来完成事件发生后所要执行的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选用Load事件。
二、选择题1．工程文件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、方法C、事件D、函数3．在设计模式双击窗体将显示的窗口是A、工程窗口B、工具箱C、代码窗口D、属性窗口4．VB中运行程序的快捷键是A、F2B、F5C、Alt+F3D、F85．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的文件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic 9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，至少会产生何种文件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建一个工程，单击窗体时，在窗体上显示“欢迎使用Visual Basic程序”。
(完整word版)VB程序设计试题题库及答案.doc
VB程序设计笔试题题库一、选择题1 下列常量中，是 Integer类型常量的是（C ）。
A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . （ A ）A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。
A、IDE是设计、调试、运行 VB程序的工具。
B、用户不能随意关闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。
D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后， A= （ A ）。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。
A、将 True 转换为 1 ，将 False 转换为 0B、将 True 转换为 1 ，将 False 转换为 -1C、将 True 转换为 0 ，将 False 转换为 -1D、将 True 转换为 -1 ，将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ，则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值（ B ）。
A、不能计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。
VB程序设计练习题及参考答案
VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1．当进入vb集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。
2.在BMP图形文件之后加载命令按钮的图片属性时，所需的图形不会显示在选项按钮上，因为该属性未设置为1（图形）。
3．在文本框中，通过属性能获得当前插入点所在的位置。
4.要编辑文本框中的现有内容，请按键盘上的键，但该键不起作用，因为该属性已设置为true。
6．在vb中，1234、123456＆、1.2346e+5、1.2346d+5四个常数分别表示、、、。
7.整数变量x存储两位数。
要交换两个数字的位置，例如，13变为31，表达式为。
8．表示x是5的倍数或是9的倍数的逻辑表达式为。
9.如果a=3.5、B=5.0、C=2.5和d=true，则表达式a>=0anda+C>B+3ornotd的值为。
10．int(-3.5)、int(3.5)值分别是、。
11．表达式ucase(mid(\的值是。
12.要将以下语句循环20次，循环变量的初始值应为：fork=to-5step-213．下面程序段显示个“*”。
fori=1到5 Forj=1打印\nextjnexti14．复选框属性设置为2－grayed时，变成灰色，禁止用户选择。
15．属性设置为1，单选按钮和复选框的标题显示在左边。
16．属性设置为1，单选按钮和复选框以图形方式显示。
17.程序运行时，如果框架属性设置为false，框架标题为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。
18．列表框中项目的序号是从开始的。
19.指示列表框中最后一项的序列号。
20.方法可以清除列表框中的所有内容。
21．组合框是组合了文本框和列表框的特性而形成的一种控件。
风格的组合框不允许用户输入列表框中没有的项。
22.VB程序存储在模块中，模块分为______________三种类型。
123.如果希望每15秒生成一次计时器事件，interval属性应设置为。
VB程序设计编程考试题及答案
VB程序设计编程考试题及答案1。
输入3个数，输出最大的数2。
有一元二次方程:aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根3。
输入一个百分制的成绩，若大于等于60，则用消息框弹出,显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！4。
输入学生的百分制成绩,转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好,70~79转换为中等，60~69转换为及格,0～60转换为不及格。
5。
随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
6。
输入两个整数，求它们的最大公约数。
7.分别统计1—100中,满足3的倍数、7的倍数的数各有多少。
8。
输入一串字符，统计其中字母A（不区分大小写)出现的次数。
9.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
10。
小猴有桃若干，第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个，问小猴原有桃多少？11.百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元,母鸡每只3元，编程求解购鸡方案。
12。
编程求斐波那契数列前11项。
(斐波那契数列:F(0）=f（1)=1, F（n)=F（n—1）+F(n —2) n〉=2 ）13。
已知有序数组a（)，编程插入x（x的值为14）。
数组a中的元素分别为{12，6,4，89，75,63，100,20,31}。
14。
找出被3、5、7除,余数均为1的最小的5个正整数。
15利用随机函数产生50～100范围内的20个随机数，显示其中的最大值、最小值和平均值. 16。
编一函数，统计字符串中汉字的个数。
1.输入3个数,输出最大的数Private Sub command1_click（）Dim maxFor i = 1 To 3n = Val（InputBox（"输入第" ＆i ＆"个数")）If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是”; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b,c，判断此方程是否有实根Private Sub Command1_Click(）Dim a，b, c，nb = Text2c = Text3n = b * b — 4 * a ＊cIf n >= 0 ThenLabel4 = ”方程有根”ElseLabel4 = ”方程无根”End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过!”，若小于60,则弹出消息框,显示“抱歉！成绩没有通过！Private Sub Form_Load(）Text1 = ""End SubPrivate Sub Command1_Click（）Dim nn = Text1If n 〉60 ThenVal （MsgBox（"恭喜！成绩通过!"）)ElseVal （MsgBox（”抱歉!成绩没有通过！"））End IfEnd Sub4.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀,80～89转换为良好,70~79转换为中等，60～69转换为及格，0～60转换为不及格。
VB程序设计练习题及参考答案
Visual Basic程序设计练习题1．Visual Basic是一种面向对象的可视化程序设计语言，采取了A的编程机制。
A．事件驱动B．按过程顺序执行C．从主程序开始执行D．按模块顺序执行2．在Visual Basic中最基本的对象是C，它是应用程序的基石，是其他控件的容器。
A．文本框B．命令按钮C．窗体D．标签3．多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把B 指定为启动窗体。
A．不包含任何控件的窗体B．设计时的第一个窗体C．包含控件最多的D．命名为Frm1的窗体4．若有程序代码如下：text1.text="Visual Basic"则：text1，text和"Visual Basic" 分别代表C。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值5．Visual Basic是一种面向对象的程序设计语言，A不是面向对象系统所包含的三要素。
A．变量B．事件C．属性D．方法6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是C。
A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口7．保存新建的工程时，默认存放的位置是B。
A．My Documents B．VB98 C．\ D．Windows 8．若要使标签控件显示时不覆盖其背景内容，要对D属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle 9．若要使命令按钮不可操作，要对A属性设置。
A．Enabled B．Visible C．BackColor D．Caption 10．文本框没有D属性。
A．Enabled B．Visible C．BackColor D．Caption 11．不论何控件，共同具有的是B属性。
A．Text B．Name C．ForeColor D．Caption 12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下D语句是正确的。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、Mod、 * 这 4 个算述运算符中，优先级别最低的是( C )〔 A〕 \〔B〕/〔C〕Mod〔D〕*4.要使 Print 方法在 Form_Load事件中起作用，要对窗体的 ( C ) 属性进行设置〔 A〕 BackColor〔B〕ForeColor〔 C〕 AutoRedraw〔D〕Caption5.不管何控件，共同具有的属性是 ( B )〔 A〕 Text〔B〕Name〔 C〕 ForeColor〔D〕Caption6.要使 Form1窗体的标题栏显示“欢送使用 VB〞，以下语句正确的选项是 ( D )A〕 Form1.Caption= “欢送使用 VB〞〔B〕Form1.Caption= ˊ欢送使用 VBˊ〔 C〕 Form1.Caption= 欢送使用 VB〔D〕Form1.Caption=〞欢送使用VB〞7.VB 提供了结构化程序设计的 3 种根本结构，这 3 种根本结构是 ( D )〔 A〕递归结构，选择结构，循环结构〔B〕选择结构，过程结构，顺序结构（C〕过程结构，输入、输出结构，转向结构〔D〕选择结构，循环结构，顺序结构8. 给变量赋值 a=123+MID(“123456〞 ,3,2) ，a 变量中的值是 ( D )〔 A〕“ 12334〞〔B〕123〔C〕12334〔D〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 If sex= “男〞 And age＜40 And (duty= “教授〞 Or duty= “副教授〞 ) Then n=n+1〔 C〕 If sex= “男〞 And age＜40 And Right(duty,2)=“教授〞Then n=n+1〔 D〕 If sex=“男〞 And age＜ 40 And duty= “教授〞 And duty= “副教授〞 Thenn=n+110. 假设要去除列表框的所有内容，可用来实现的方法是( C )〔 A〕 RemoveItem〔B〕Cls〔 C〕 Clear〔D〕以上均不可以11.要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是 ( B ) 〔 A〕 Timer1.Visible=False〔B〕Timer1.Enabled=False〔 A〕 Timer1.Interval=1000〔D〕Timer1.Index=0引用列表框 (List1) 最后一个数据项应使用的语 ( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)(D)List1.List(ListCount-1)13.如下数组声明语句，正确的选项是 ( B )〔 A〕 Dim a[3,4]As Integer 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔D〕Function f1(ByVal n%)15.假定有如下的命令按钮 ( 名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(" 输入： " ， " 输入整数 ")MsgBox"输入的数据是：〞，，〞输入数据："+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数10，那么以下表达中错误的是(A)〔 A〕x 的值是数值 10〔B〕输入对话框的标题是“输入整数〞（C〕信息框的标题是“输入数据： 10〞〔 D〕信息框中显示的是“输入的数据是：〞二、填空题〔每题 2 分，共 20 分〕1、当进入 VB集成环境后，发现没有显示“工具箱〞窗口，应选择视图菜单的工具箱选项，使“工具箱〞窗口显示。
VB程序设计练习册参考答案
参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时，各窗体在屏幕上的显示位置6 内部（标准）7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或？“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、（1）建立应用程序用户界面。
选择”新建”工程，进入窗体设汁器，在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。
（2）设置对象属性，见表。
（可自由设置）3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示：Ucase、Lcase的使用2.提示：属性设置中，“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示：（1）流程图。
VB程序设计考试题库（2）
VB程序设计考试题库（2）VB程序设计考试（2）一、单选题（每题1分，共50题）1.关于Visual Basic应用程序，正确的叙述是（未填）。
错误正确答案：AA.Visual Basic程序运行时，总是等待事件被触发B.Visual Basic程序设计的核心是编写事件过程的程序代码C.Visual Basic程序是以线性方式顺序执行的D.Visual Basic的事件可以由用户随意定义，而事件过程是系统预先设置好的2.可视化编程的基本过程主要有3步，这3个步骤是（未填）。
错误正确答案：CA.创建工程、设计界面、编写代码B.创建工程、编写程序、保存程序C.设计界面、设置属性、编写代码D.设计界面、编写代码、调试程序3.窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为（未填）。
Private Sub Command1_Click()Dim A As Integer，B As IntegerText1.SelStart=2Text1.SelLength=2A=Val(Text1.SelText)B=Len(Text1.Text)Print A*BEnd Sub错误正确答案：CA.68C.170D.11704.VB中可用（未填）语句产生一消息框。
错误正确答案：DA.InputBoxB.ShiftC.BothD.MsgBox5.在窗体Form1的标题栏中显示“VisualBasic窗体"的命令是（未填）。
错误正确答案：C/doc/5173e546f68a6529647d27284b73f24 2336c3184.html ="VisualBasic窗体"B.Form1.Title="VisualBasic窗体"C.Form1.Caption="VisualBasic窗体"D.Form1.T ext="VisualBasic窗体6.以下（未填）是Visual Basic中合法的函数使用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Vb简单应用题练习题第一题：打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名为lblClock 的标签控件和一个名称为timeClock的计时器控件；请将标签控件lblClock的Caption属性设为空串，BorderStyle属性设为1，再设置timeClock的适当属性，并编写适当的事件过程，使得在运行时，每隔一秒种在标签中显示的数字从1开始自动加1。
如图所示是程序开始运行时的界面。
请将程序中注释语句修改为正确代码，并删除注释符号；不能修改已有的程序内容，特别是不能改变程序中已有的变量名称。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate nCount As LongPrivate Sub Form_Load()nCount = 1End SubPrivate Sub timeClock_Timer()lblClock = nCountnCount = nCount + 1End Sub第二题：打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名称为txtInput的文本框；两个标题分别为“对齐方式”、“字体”，名称分别为fraAlign、fraFont的框架控件；在fraAlign框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为optLeft、optCenter、optRight；在fraFont框架中画两个单选按钮，标题分别为“宋体”、“黑体”，名称分别为optSt、optHt。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作效果，如图所示。
注意：1.不能修改其他代码行，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
3.程序中不得使用变量，每个事件过程中只能写一条语句。
Option ExplicitPrivate Sub optCenter_Click()txtInput.Alignment = 2End SubPrivate Sub optRight_Click()txtInput.Alignment = 1End SubPrivate Sub optLeft_Click()txtInput.Alignment = 0End SubPrivate Sub optHt_Click()txtInput.FontName = "黑体"End SubPrivate Sub optSt_Click()txtInput.FontName = "宋体"End Sub第三题：打开指定文件夹下的工程文件vbsj3.vbp，本程序的功能是输入用户名和密码。
要求程序运行时，在输入用户名的文本框txtUserName中输入的英文字符个数不超过10个且按回车键时，焦点自动定位到输入密码的文本框txtPassWord中；否则将文本框txtUserName的内容清空，焦点还是在文本框txtUserName中。
同时，若选中“显示密码”复选框，在文本框txtPassWord中输入密码时，文本框txtShowPwd中显示的是密码字符本身；若没有选中“显示密码”复选框，则文本框txtShowPwd显示的是“#”，如图所示。
在考生文件夹中给出的窗体文件vbsj3.frm中已经添加了全部的控件，但程序不完整。
请去掉程序中的注释，将其中的?改为正确的内容。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate Sub Form_Load()Form1.ShowtxtUserName.SetFocusEnd SubPrivate Sub txtPassWord_Change()If chkShowPwd.Value = 1 ThentxtShowPwd.PasswordChar = ""ElsetxtShowPwd.PasswordChar = "#"End IftxtShowPwd.Text = txtPassWord.TextEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Len(Trim(txtUserName.Text)) > 0 ThentxtPassWord.SetFocusElseMsgBox "用户名不能为空！", vbCritical, "警告"txtUserName.SetFocusEnd IfEnd IfEnd Sub第四题：打开指定文件夹下的工程文件vbsj3.vbp，已经添加全部控件，其中“+”、“-”、“×”、“÷”对应的单选按钮为一个控件数组。
程序的功能是根据水平滚动条hsbNum1和hsbNum2的当前值作为运算数，当单击命令按钮cmdCalc时可分别进行加、减、乘、除运算，并将运算的结果显示在标签lblOpResult中，程序运行时的界面如图所示。
请在设计模式下分别设置水平滚动条hsbNum1和hsbNum2的Max、Min属性的值分别100、1；设置“+”对应的单选按钮控件当前为选中状态。
该程序不完整，请去掉程序中的注释符，并把?改正为正确内容，使其能够正确运行。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate Sub cmdCalc_Click()Dim i As Integer, Result As IntegerDim opt As StringFor i = 0 To 3If optOperator(i).Value = True Thenopt = optOperator(i).CaptionEnd IfNextSelect Case optCase "+"Result = hsbNum1 + hsbNum2Case "-"Result = hsbNum1 - hsbNum2Case "×"Result = hsbNum1 * hsbNum2Case "÷"Result = hsbNum1 / hsbNum2End SelectlblOpResult.Caption = Str(hsbNum1.Value) & opt & Str(hsbNum2.Value) & "=" & Str(Result) End Sub第五题：打开指定文件夹下的工程文件为vbsj3.vbp，相应的窗体文件文件为vbsj3.frm，包含了所有的控件和部分程序，程序的功能是：当选择“考试科目”、“考试形式”后，单击“确定”按钮，在文本框txtContents中显示选中的“考试科目”和“考试形式”的内容；若没有选择相应的项目，将以消息框进行提示。
要求：(1) 利用属性窗口向列表框lstSubjects添加“二级VB”、“二级VFP”、“二级网页设计”、“二级C”四个项目作为考试科目；同时将窗体只保留“关闭”按钮。
程序运行时的界面如图所示。
(2) 将程序代码中注释符号去掉，其中的?修改为正确的程序代码，保证程序能正常运行。
注意：1. 1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2. 在结束运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时通过单击窗体右上角的关闭按钮。
3.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate Sub cmdOK_Click()If lstSubjects.ListIndex >= 0 ThenIf optBs.Value = True ThentxtContents.Text = lstSubjects.List(lstSubjects.ListIndex) & optBs.Caption ElseIf optSj.Value = True ThentxtContents.Text = lstSubjects.List(lstSubjects.ListIndex) & optSj.Caption ElseMsgBox "请鼠标单击选择其中的一种考试形式!", vbOKOnly, "提示"End IfElseMsgBox "请单击鼠标选择考试科目的其中一项!", vbOKOnly, "提示"End IfEnd Sub第六题：打开指定文件夹下的工程文件为vbsj3.vbp，在窗体中已添加全部控件。
程序的功能是当单击“添加”按钮时，将窗体上左侧列表框（名称为lstPending）同时选中的多个不连续的列表项移动到右侧列表框（名称为lstSelected）中；当单击“删除”按钮时，将右侧列表框lstSelected 选中的一个列表项移动到左侧列表框lstPending中。
程序运行时的界面如图所示。
要求：(1) 通过属性窗口，设置列表框控件lstPending可以同时选择不连续的多个列表项；(2) 窗体文件中的程序代码不完整，请将其中的注释符去掉，并将?修改为正确的代码，保证程序能够正常运行。
注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。
2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。
Option ExplicitPrivate Sub cmdAdd_Click()Dim k As Integerk = 0While (k < lstPending.ListCount)If lstPending.Selected(k) = True ThenlstSelected.AddItem lstPending.List(k)lstPending.RemoveItem kEnd Ifk = k + 1WendEnd SubPrivate Sub cmdRemove_Click()lstPending.AddItem lstSelected.TextlstSelected.RemoveItem lstSelected.ListIndexEnd Sub第七题：打开指定文件夹下的工程文件是vbsj3.vbp，窗体上已经添加部分控件和程序代码，程序运行时的界面如图所示。