2013年VB复习提纲.doc

2013年VB复习提纲1、 题型设置判断题、选择题、程序阅读题、简答题、程序设计题2、 复习范围一、判断题1. 属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。2. 控件的属性值不可以在程序运行时动态地修改。3. 许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。4. 所谓保存工程，是指保存正在编辑的工程的窗体。5. 面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。6. 为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为False。7. 保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。8. 事件是由Visual Basic预先定义的对象能够识别的动作。9. 方法是Visual Basic对象可以进行的相应的用户操作。10. 窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。11. 由Visual Basic语言编写的应用程序有解释和编译两种执行方式。12. 在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为”就行，因为系统将同时保存其他文件。13. InputBox函数的返回值的类型为整型。14. 在逻辑运算符Not、Or、And中，运算优先级有高到低为Not、Or和And。15. MsgBox函数的返回值的类型为长整型。16. 整型变量有Byte、Integer和Long三种。17. 语句debug.Print Tab（10）;”#”的作用是在窗体的第11列位置输出字符”。18. IF语句中的条件表达式中只能使用关系或逻辑表达式。19. 在情况语句中，各分支（即Case 表达式）的先后顺序无关。20. 选择结构的嵌套可以出现交叉。21. 有IF则必有与之对应的End IF。22. 有Select Case则必有与之对应有的End Select23. 要实现同样的循环控制，在Do While-Loop和Do-Loop While循环结构中给定的循环条件是一样的。24. Do-Loop While语句实现循环时，不管条件真假，首先无条件地执行一次循环。25. Do-Loop Until语句实现循环时，只要条件是假，循环将一直进行下去。26. 一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit语句。27. For循环语句正常结束（即不是通过Exit For语句或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。28. 如果有多重Do循环嵌套，位于最里层循环体语句中的Exit Do语句可以退出所有的循环。29. For-Next循环结构的默认步长为1。30. Do-Loop语句是循环结构的一种特殊形式，如果循环体中没有Exit Do语句，程序运行就一定会进入死循环。31. 数组中所有元素的数据类型不一定相同。32. 可以在程序中使用ReDim语句来改变动态数组的大小、维数和类型。33. 数组的下界一定是0。34. 定义数组时，其下界只能为正整数。35. 可以在通用的声明部分使用Option Base -1语句把数组下标下界的默认值设为-1。36. 在VB中，用Dim定义数组时，数组元素将自动赋初值为0。37. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。38. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。39. 可以在窗体的通用部分声明静态变量。40. 事件过程只能由系统调用，在程序中不能直接调用。41. 当形参定义是传地址方式，调用是如果使用常量或表达式，则数据是按值传递。42. 事件过程通常由事件驱动执行的，而SUB过程是通过过程调用执行的。43. 子程序调用时，如果参数按址传递并且实在参数是变量，则子程序在执行时对形参的修改不会影响到对应传递的实参变量的内容。44. 用来显示文本框内容的属性是Caption属性。45. 滚动条的Scroll事件在滑块位置改变时即被触发。46. 滚动条控件可作为用户输入数据的一种方法。47. 若在列表框中第三项之后插入一项目“ABC”，则所用语句为List1.AddItemABC，3。48. 一个窗体中只能含一组单选按钮。49. 用Cls方法可以清除组合框中的所有表项。50. 列表框控件，只能设置为单选。51. 对象的属性都可以在属性窗口中设置。52. 命令按钮不但能响应单击事件，而且还能响应双击事件。53. 单选框控件和复选框控件都具有Value属性，它们的作用完全一样。54. 移动框架时，框架内的控件也跟着移动，并且框架内的各控件的Top和Left属性值也将分别随之改变。55. 当文本框的Multiline属性为True时，ScrollBars属性才有效。56. 与控件有关的赋值语句一定要放在该控件的事件中。57. 当列表框中表项太多，超出了设计时的长度时，VB会自动给列表框加上垂直滚动条。58. 若文本框的MaxLength属性值为0，则该文本框内不可输入任何字符。59. 若复选框控件的Value属性值为True，则框内显示“”，若Value属性值为False，则显示空白。60. 当触发滚动条的Scroll事件后，一定会同时触发滚动条的Change事件。61. 如果命令按钮的Defalut属性为True，那么任何时候按Enter键都相当于单击该命令按钮。62. 所有控件都有Name和Caption属性。63. VBA不同窗体的共享同一个代码窗口。64. VBA中输出函数为inputbox函数。65. VBA中inputbox为函数输入函数。66. 在excel中编写程序时，宏的安全性需设置为低。67. VBA是VB的子集，二者有着相似的语言结构和开发环境。68. 属性窗口的主要功能是显示所选择对象的所有属性信息。69. 对象的属性信息只能在属性窗口中修改70. 隐藏窗体的方法为Hide。二、选择题1. 要使某个控件不可操作，要对 属性进行设置。AEnabled BVisible CCaption DName2. 下列不属于对象的基本特征的是 。A属性 B方法 C事件 D函数3. 当运行程序时，系统自动执行启动窗体的 事件过程。AClick BLoad CDblClick DUnload4. Visual Basic中“程序运行”允许使用的快捷键是 。AF2 BF5 CAlt+F3 DF85. 改变控件在窗体中的左右位置应修改该控件的 属性。ATop BLeft CWidth DRight6. 工程文件的扩展名为 。A.vbp B.bas C.frx D.frm7. 在Visual Basic中，称对象的数据为 。A属性 B方法 C事件 D封装8. 下列选项中不属于属性的是 。AName BCaption CShow DText9. VBA中不可以通过 输入数据。AMsgBox BInputBox C文本框 D列表框10. 某Excel表格中有四个单选按钮，要想把其两两分为两组，需设置它们的 属性。AVisible BGroupName CEnabled DForeColor11. 下列选项中不属于属性的是 。AName BCaption CShow DText12. 下列选项中不可以作为控件容器的是 。A框架 B窗体 C文本框 D图片框13. 下列关于属性设置的叙述错误的是 。 A一个控件具有什么属性是VB预先设计好的，用户不能改变它 B一个控件具有什么属性值是VB预先设计好的，用户不能改变它 C一个控件的大多数属性既可以在属性窗口中设置，也可以用程序代码设置 D一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值14. Visual Basic的逻辑类型数据占（ ）字节内存。A.2 B.4 C.8 D.1615. 下列哪一个字符串可以作为Visual Basic中的变量名（ ）。A.End B.15efg C.b_12 D.X9j16. 下列哪一个是变量（ ）。A.Vbred B.”name123” C.True D.n17. 整数Int(Rnd()*11)+10的值的范围是（ ）。A.10,20 B.0,20 C.10,10 D.10,1118. 语句Y=X+1代表（ ）。A.变量Y等于X+1的值B.变量Y等于变量X的值，然后再加上1的一个表达式C.将变量Y存入变量X中，再加上1的表达式D.将变量Y存入变量X+1中19. 对于Inputbox函数，下列说法不正确的是（ ）。A每执行一次Inputbox函数，只能输入一个值。BInputbox函数输入的是数值型。CInputbox函数的提示信息参数不能缺省。D函数值必须赋与一个变量20. 要把InputBox的返回值转换为数值应该使用的函数是（ ）。AInt BAsc CLen DVal21. 下列对话框函数调用错误的是 （）。Ax$=Inputbox(请输入数据) BInputbox(请输入数据) Cx=Msgbox(是否继续查询) DMsgbox(是否继续查询)22. Inputbox函数的参数中，必选参数的作用是（ ）。A输出信息 B定义提示信息C定义隐含信息 D定义输入的位置23. 假设变量B是一个布尔型变量，则下面正确的赋值语句是（ ）。AB=T BB=”True”CB=#True# DB=3Z And X+ZY And Y+ZXB. X+YZ Or X+ZY Or Y+ZXC. Not(X+YZ Or X+ZY Or Y+Z=Z Or X+Z=Y Or Y+Z=X29. 下面程序段运行后，显示的结果是 。 Dim X As Integer If X Then Debug.print X Else Debug.print X+1A1 B. 0 C. -1 D .显示出错信息30. 下面程序段求两个数中的大数， 不正确。A . Max=X B .If XY Then Max = X Else Max=YIf Y=max Then Max =Y CMax=X D. If Y=X Then Max=YIf Y=X Then Max =Y Max = X31. 下列程序段的执行结果是 。X=5Y=-20If Not X0 Then X=Y-3 Else Y=X+3Debug.print X-Y;Y-XA-33B5-8 C3-3 D25-2532. 已知变量A、B、C中C最小，则判断A、B、C可否构成三角形的逻辑表达式为：A A=B And B=C And C0 B A+CB And B+CA And C0C（A+B=C Or A-B 0 D A+BC And A-B033. 下列程序段的执行结果是 。A=75If A60 Then I=I+1Elseif A70 Then I=I+2Elseif A80 Then I=I+3Elseif A90 Then I=I+4End IfDebug.print “I=”;IAI=1 BI=3 CI=6 DI=1034. 下列程序段的执行结果为是 。A=1:B=0Select Case ACase 1Select Case B Case 0 Debug.print “*0*” Case 1 Debug.print “*1*” End Select Case 2Debug.print “*2*”End Select A *0*B *1* C *2*D 035. 循环结构 For i！=1 to 10 step 1.5 共执行几次 。A6B7C9D10 36. 下列循环正常结束的是 。Ai=0 Bi=0 Do Do While i0 i=i-1 i=i-1 Loop While i0 Loop Ci=10 Di=6 Do Do i=i+1 i=i-2 Loop Until i0 Loop Until i=137. 下列哪组语句可以将变量A、B值互换。 。AA=B : B=A BA=A+B : B=A B: A=A BCA=C : C=B : B=A DA=（A+B）/2 : B=（A B）/238. 下段程序执行的输出结果是 。S=0:T=0:U=0For i=1 To 3 For j=1 To i For K=j To 3 S=S+1 Next K T=T+1 Next j U=U+1Next iDebug.print S;T;UA3 6 14B14 6 3C14 3 6D16 4 339. 下程序段循环结构执行后，输出i的值是：A25 B10C11 D因为y的初值不知道，所以不确定For i=1 to 10 step 2 y=y+iNext iDebug.print i;40. 下列程序段的循环结构执行过程中共循环了 次。For i% = 1 To 10 Step 2 y = y + iNext iA3B4C5D641. 以下程序循环的执行次数是 。 a=0 Do while a= 65 And KeyAscii = 122 ThenKeyAscii = 65End IfEnd SubAA BTestingCAAAAAAA D程序出错64. 文本框Text1和Text2用于接受输入的两个数，求这两个数的乘积，错误的是 。Ay=Text1.Text * Text2.TextBy=Val(Text1.Text) * Val (Text2.Text)Cy=Str(Text1.Text) * Str(Text2.Text)D文本框的Text属性是字符型，所以以上语句都错误。65. 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。 AValue BDefault CCancel DEnabled66. 程序运行时，拖动滚动条上的滚动块，则触发的事件是 。 AMove BChange CScroll DGetFocus三、程序阅读1. 写出以下程序在单击窗体后的输出结果。Private Sub Userform_click()mun=4While mun=3mun=mun+1Debug.print munWendDebug.print munEnd Sub42. 下面程序执行的结果是_。Private Sub commandbutton1_Click()A = 3: B = 2: C = 1A = BB = CC = ADebug.print A=; A; B=; B; C=; CEnd SubA=2 B=1 C=23. 程序运行时单击 Command1后，输入12345678，写出窗体上的输出结果。Private Sub Command1_Click() Dim x As Long, y As String x = InputBox(输入一个数) Do While x 0 y = y & x Mod 10 y = x Mod 10 & y x = x 100 Debug.print y LoopEnd Sub246886424. 写出单击窗体后程序执行的结果。Private Sub Form_Click()Dim a(1 To 10)Dim P(1 To 3)k = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iDebug.print kEnd Sub335. 有以下程序：Function chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a = a + b Next n chg = aEnd FunctionPrivate Sub Form_Click() Dim a As Integer, b As Integer , z As Integer a = 1: b = 1 For n = 1 To 3 z = chg(a, b) debug.Print n=; n, z=; z Next nEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。n =2 z =7 n=3 z=76. 写出单击窗体后程序执行的结果。Private Sub Form_Click() Dim A(4, 4) As Integer, K As Integer, J As Integer, T As Integer For K = 1 To 4 For J = 1 To 4 A(K, J) = J Debug.Print A(K, J); Next J Debug.print Next K debug.Print For K = 2 To 4 For J = 1 To K T = A(K, J): A(K, J) = A(J, K): A(J, K) = T Next J Next K For J = 1 To 4 debug.Print A(J, 1); A(J, 2); A(J, 3); A(J, 4) Next JEnd Sub1 2 3 4 1 1 1 11 2 3 4 2 2 2 21 2 3 4 3 3 3 31 2 3 4 4 4 4 47. 下面程序运行后输出结果是。Private Sub UserForm_Click()X$ = A: Y$ = B: Z$ = CX$ = Y$ & X$ : Y$ = Y$ & Z$: Z$ = X$ & Z$ & Y$ Debug.print X$ + Y$ + Z$End SubBABCBACBC8. Private Sub UserForm_Click() Dim i As Integer, j As Integer Dim star As String star = # For i = 1 To 6 For j = i To 6 UserForm1.Debug.print star; Next j UserForm1.Debug.print Next iEnd Sub写出程序运行后，单击窗体后，UserForm1上的输出结果一排竖直的“#”9. Public Sub Swap1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubPublic Sub Swap2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd SubPrivate Sub UserForm_Click() Dim a As Integer, b As Integer a = 10 b = 20 Swap1 a, b UserForm1.Debug.print A1=; a, B1=; b a = 10 b = 20 Swap2 a, b UserForm1.Debug.print A2=; a, B2=; bEnd Sub写出程序运行后，单击窗体，UserForm1上的输出结果。A1=10 B1=20 A2=20 B2=10; A1=10 B1=20 A2=20 B2=1010. 有以下程序Rem 在窗体的通用声明区声明两个模块级变量a和y。Dim a As Integer, y As IntegerPrivate Sub CommandButton1_Click() Call aa(5) y = y + a Debug.print y=; y, a=; aEnd SubSub aa(i As Integer) x = 1 Do Until x i a = a + x x = x + 3 LoopEnd Suby= 15 a= 10写出程序运行时连续三次单击CommandButton1后，窗体上显示的结果。11. 下面程序执行的结果是：Private Sub Form_Click() A$ = 456: B$ = 789 C = Val(A$) + Val(B$) Debug.print C 100End Sub1212. 写出程序执行的结果。Private Sub Form_Click()Dim A(4, 4) As IntegerDim C As Integer, R As IntegerDim I As Integer, J As Integer, K As IntegerC = 4: R = 1: I = 1: J = 1For K = 1 To 16A(I, J) = KIf I C And J = R ThenI = I + 1Elseif I = C And J R And J = C ThenI = I - 1Elseif I = R And J R + 1 ThenJ = J - 1End IfIf I = R And J = R + 1 ThenC = C - 1R = R + 1End IfNextFor I = 1 To 4For J = 1 To 4Debug.print Tab(J * 4); A(I, J);If J = 4 Then Debug.printNext JNext IEnd Sub1 12 11 10 2 13 16 9 3 14 15 8 4 5 6 713. 控件Hscroll1的属性设置如下：ScrollBar1.Min = 1ScrollBar1.Max = 9ScrollBar1.Value = 1ScrollBar1.SmallChange = 2ScrollBar1.LargeChange = 4 下列程序运行时，4次单击滚动条右端箭头按钮，写出各次单击时，Text1上的显示结果。Dim y As SinglePrivate Function f1(x2 As Integer) As SingleStatic x1 As Integerf1 = 0 For i% = x1 To x2 f1 = f1 + i%Next i% x1 = i%End FunctionPrivate Sub ScrollBar1_Change() y = y + f1(ScrollBar1.Value) Textbox1.Text = yEnd Sub6 15 28 4514. 写出程序运行后，单击窗体UserForm1上显示的内容。Private Sub UserF