Visual Basic复习资料

Visual Basic 复习第一部分 选择题选择题关键：掌握知识点、考点；注意关注点。第一章 Visual Basic 概述一、知识点及考点分析1、对象、属性、方法、事件的概念；2、VB 各个窗口的功能；3、创建应用程序的一般步骤；4、VB 各种文件的扩展名及其功能；（.frm 、.vbp、.bas 等）第二章 创建用户界面一、知识点及考点分析1、窗体的常用属性、方法、事件；（Name 、Caption、AutoRedraw、Hide、Show 、Print、 Cls、Load 、UnLoad、Click 、Activate 等）2、VB 对象的公共属性；（Name、Top、Left、Width、Height、Enabled、Visible 等）3、文本框控件；（PasswordChar、Text、MultiLine、SetFocus、LostFocus、Change、KeyPress 等）3、标签控件（Caption ；AutoSize 等） ；4、命令按钮；（Default、Cancel、Style、Click 等）5、单选按钮；（Value、Style、Click 等）true false6、复选框；（Value、Style、Click 等）0 1 2 7、列表框；（List、ListCount、ListIndex、Text、AddItem 、RemoveItem 、Clear 、Click 、DblClick 等）8、组合框；（List、ListCount、ListIndex、Text、Style、AddItem、 RemoveItem、Clear 、Click 、Change 等）9、图片框；（AutoSize、Picture、AutoRedraw、Print、 Cls、LoadPicture 等）Pic1.LoadPicture(“d:myfilea.bmp”)10、图像控件（Picture 、Stretch、LoadPicture 等） ；11、计时器（Interval、Timer ） ；12、滚动条；（Value、Max、Min、LargeChange、SmallChange、Change、Scroll 等）13、菜单（下拉式、弹出式、PopupMenu）二、关注点1、对象名称与事件过程名要对应；2、容器对象；Form PictureBoxc Frame3、有些属性值只能在设计时设置，还有些属性只能在运行时设置；4、属性窗口中并没有列出对象的全部属性；ListCount5、结果输出在不同对象上的方法不同，窗体和图片框中用 Print 方法；文本框中用 text 属性连接；列表框中 AddIrem 添加方法。对象 窗体（Form1 ） 图片框（ P1） 文本框（Text1） 列表框（List1）输出 Print n P1.Print n Text1=Text1 NextPrintNextFor i = 1 To 4For j = 1 To 5Picture1.Print X(i, j);NextPicture1.PrintNextFor i = 1 To 4For j = 1 To 5Text1.Text = Text1.Text Next iPrintNext jEnd Sub5、执行下面的程序，单击命令按钮 Command1，则窗体上显示的第一行是 C ，第二行是 CW ，第三行是 8 。 （200202）Private Sub Command1_Click()Dim s As String, t As StringDim k As Integer, m As Integers = “BASICY“k = 1: m = kFor k = 1 To Len(s) Step m + 1t = t KEnd SubPrivate Function Fun(X As Integer, Y As Integer) As IntegerStatic K As IntegerK = K + X + YX = X + YY = Y + KFun = X + YPrint Fun; X; YEnd Function7、执行下面程序，当单击 Command1 时，窗体上显示的内容的第一行是 11 ，第二行是 61 ，最后一行是 136 。 （200601）Option ExplicitDim N As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 3 To 1 Step -2N = Fun(i, N)Print NNext iEnd SubPrivate Function Fun(A As Integer, B As Integer) As IntegerStatic X As IntegerDim Sum As Integer, i As IntegerX = X + NFor i = 1 To AB = B + X + iN = N - i 2Sum = Sum + BNext iA = A + 1Fun = Sum + AEnd Function考点 3：递归1、执行下面程序，单击窗体后，窗体上显示的内容的第一行是 2 ，第三行是 4 ，第五行是 5！=120 。Private Function Fact(ByVal N As Integer) As LongIf N = 0 Or N = 1 ThenFact = 1ElseFact = N * Fact(N - 1)Print “N=”;NA K K X Y fun12 2 24 4 6 106 10 6 616 12 28 5628 56 66i N i A B X N Sum fun3 0 3 0 0 01 1 1 12 3 2 33 5 4 7 4 4 114 11 2 11 2 11 11 111 23 23 232 36 35 583 3 613 611 61 1 61 721 134 134 2 2 1362 136 0End IfEnd FunctionPrivate Sub Form_Click()Dim F As LongF=Fact(5)Print “5!=”;FEnd Sub3、执行下面程序，当单击 Command1 时，窗体上显示的内容的第一行是 X=4 ，第二行是 26 ，第三行是 15 15 。 （200402）Private Sub Command1_Click()Dim X As Integer, Y As Integer, S As IntegerX = 12: Y = 18If X Y ThenS = Recur(X, Y, 1)ElseS = Recur(Y, X, 1)End IfPrint SPrint X, YEnd SubPrivate Function Recur(A As Integer, B As Integer, K As Integer)Static X As IntegerX = X + KIf A T ThenTem = Left(CStr(F), 1)F = Right(CStr(F), 1) NextPrintNextFor i = 1 To 4For j = 1 To 5Picture1.Print X(i, j);NextPicture1.PrintNextFor i = 1 To 4For j = 1 To