VB期末复习资料

精品文档“Visual Basic编程与应用”期末复习资料第一章Visual Basic 6.0程序设计概述重点掌握的内容：对象与事件驱动对象：世界上存在的任何具体的事物都可以称之为对象。对象是具体存在的，每个对象都是唯一的，有着自己独特的个性。类：是具有相同性质的对象的集合。对象和类的区别在于前者是具体的，而后者则是抽象的。属性、方法和事件：VB采用一种所谓的事件驱动的编程机制，由用户来掌握程序的运行流向。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。对象的属性的设置可以通过两种方法来实现：（1）通过属性窗口直接设置；（2）在程序代码中通过赋值实现，其格式为：对象.属性=属性值事件过程:事件即对象相应的动作，是Visual Basic预先定义好的对象能识别的动作，如Click、DbClick、LostFocus等等。事件过程是指附在该对象上的程序代码，是事件的处理程序，即用来完成事件发生后所要做的动作创建 Visual Basic 应用程序有三个主要步骤：1创建应用程序界面。2设置属性。3编写代码。窗体的属性和方法窗体属性：重点掌握：Name，Caption，BorderStyle，MinButton，MaxButton等属性。Print方法: 在Visual Basic 中，Print方法是用来输出信息的专用过程，Print方法应重点掌握如下：（1） 语法结构对象.Print 表达式列表（2） 表达式列表中的分隔符：若用分号（；）：输出的各表达式的值中间没有空格，数值型前留有一个符号位。例如 Print “1”；“2”；“3”输出格式为 123若用逗号（，）：输出的各表达式的值将被分配在各个区段内，例如 Print “1”，“2”，“3”输出格式为 1 2 3Spc(n)函数，用于产生空格，这里n为要插入的空格数，例如Print “1”；Spc(3)；“2”输出格式为 1 2 Tab(n)函数，用于将插入点定位在绝对列号上，这里n为列号。例如Print “1”；Tab(20)；“2”输出格式为 1 2 自测与练习题一、判断题1、为了使一个控件在运行时不可见，应对该控件的Visable属性值设置为False。（ ）2、当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件。（ ）3、面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。（ ）4、将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。（ ）5、方法是VB对象可以响应的用户操作。（ ）6、对象是基本的运行时实体，它既包括了数据（属性），也包括作用于对象的操作（方法）和对象的响应动作（ ）。7、属性是用来描述和反映对象特征的参数，对象的所有属性都可以在属性窗口中设置。（ ）8、VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用。（ ）9、每个对象都有一系列预先定义好的事件，但要使对象能响应具体的事件，则应编写该对象相应的事件过程。（ ）10、属性是VB对象性质的描述，对象的数据就保存在属性中。11、同一个窗体文件只能用于一个工程中。（ ）12、当打开一个VB工程后要另存为一个版本，单击“工程另存为”就行，因为其同时会保存窗体文件。（ ）13、标签的Capton 属性用于设置标签框中显示的文本内容，该内容可以编辑。（ ）14、标签的Alignment属性值为1，表示标签中的文本右对齐。（ ）15、文本框既用于输出，又可在其中输入、编辑文本。（ ）16、要想在文本框中输入或显示多行文本，必须将该文本框的MultiLine属性设置为False。 （ ）17、要想一个文本框中文本长度或宽度超过文本框的长度或宽度时既有水平滚动条又有垂直滚动条，应将该文本框的ScrollBars属性设置为3。 （ ）18、要想让一个命令按钮无效，应将该命令按钮的Visable属性设置为False。 （ ）19、某控件的Visable属性设置为True，表示该控件在程序运行时是可见的。 （ ）参考答案：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 二、填空题1为了在窗体上输出具有相同的字体格式，应对 的 属性进行设置。2在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 。3在文本框中，通过 属性能获得当前插入点所在的位置。4要对文本框中已有的内容进行编辑，按下键盘上的键，就是不起作用，原因是设置了 属性为True。5在窗体上已建立多个控件如Text1、Labell、Command1，若要使程序一运行焦点就定位在Command1控件上，应对Command1控件设置 属性的值为 。6在用Show方法后显示自定义对话框时，如果Show方法后带 参数就将窗体作为模式对话框显示。7每当一个窗体成为活动窗口时触发 事件，当另一个窗体或应用程序被激活时在原活动窗体上产生事件 。8VB中可作为其它控件的容器的除窗体外还有 和 控件。参考答案：1 窗体 font 2 不能在代码中设置 3 selstart 4 Locked5 TabIndex 0 6 vbModal或 1 7 Activate Deactivate 8 PictureBox（或图片框） Frame（或框架）三、选择题1对于窗体，下面 属性在程序运行时对于其在屏幕上的位置起作用。（A）MaxButton （B）BorderStyle （C）Name （D）Left2要使Print方法在Form_Load事件中起作用，要对窗体的 属性进行设置。（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption3若要使标签控件显示时不覆盖其背景内容，要对 属性进行设置。（A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle 4若要使命令按钮不可操作，要对 属性设置。（A）Enabled （B）Visible （C）BackColor （D）Caption5文本框没有 属性。（A）Enabled （B）Visible （C）BackColor （D）Caption6不论何对象，都具有 属性。（A）Text （B）Name （C）ForeColor （D）Caption7要使某控件在运行时不可显示，应对 属性进行设置。（A）Enabled （B）Visible （C）BackColor （D）Caption8要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列 属性设置就有效。（A）MaxButton （B）Borderstyle （C）Width （D）MinButton9当运行程序时，系统自动执行启动窗体的 事件过程。（A）Load （B）Click （C）UnLoad （D）MinButton10改变控件在窗体中的上下位置应修改该控件的 属性。（A）Top （B）Left （C） Width （D）Right参考答案：1、D 2、C 3、D 4、A 5、D 6、B 7、B 8、B 9、A 10、A 四、编程题：在窗体上建立5个命令按钮Command1、Command2、Command3、Command4、 Command5和1个标签Label1。将这些控件作适当布置，如下图。编程序完成如下要求：（1）程序运行后，4个命令按钮显示分别为：“放大”、“加粗”，“下画线”、“还原”“移动”，标签显示为“VB程序设计”（2）单击“放大”，标签显示的文字放大3倍，单击“加粗”，标签显示的文字则加粗，单击“下画线”则标签显示的文字加下画线、单击“还原”，则标签显示的文字格式回到起初状态。（3）每单击“移动”命令按钮一次，标签则向左移动一定距离，单击10次，则移动到最左边（Label1.Left=0）。代码如下：Dim size As Integer, ft As Double, bd As Boolean, dl As BooleanPrivate Sub Command1_Click() Label1.FontSize = Label1.FontSize * 3End SubPrivate Sub Command2_Click() Label1.FontBold = TrueEnd SubPrivate Sub Command3_Click() Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click() Label1.FontSize = size Label1.FontBold = bd Label1.FontUnderline = bl Label1.Left = ftEnd SubPrivate Sub Command5_Click() Label1.Left = Label1.Left - ft / 10End SubPrivate Sub Form_Load() size = Label1.FontSize bd = Label1.FontBold bl = Label1.FontUnderline ft = Label1.LeftEnd Sub第二章 Visual Basic 6.0语言基础重点掌握的内容：1、数据类型Visual Basic 中的数据以四种形式存储：变量、常量、数组和记录。每一种形式都适合于不同的特定任务。2、变量：变量的概念、命名、声明。命名规则：（1）变量名的第一个字母必须是字母，后接字母、数字、下划线，但不可是小数点、空格。（2）变量名的最后一个字符可以是类型说明符（！，#，$，%，&），但它们不能出现在变量名的其它位置。例如：A% 说明了变量A是整型B& 说明了变量B是长整型C! 说明了变量C是单精度型D # 说明了变量D是双精度型E 说明了变量E是货币型F$ 说明了变量F是字符串型注意：变量名不能与保留字重名。声明变量：（1） 隐式声明变量不经声明直接使用，如：A=123 其类型由赋值的类型所决定（2） 显式声明变量用 Dim 变量名 As 类型名 声明后再使用的方式就是显式声明。Option Explicit 的作用就是强制显式声明模块中的所有变量。3、常量：常量的概念、分类、声明。常量分为系统内在常量和自定义常量（符号常量）。符号常量用Const语句声明。例如 Const PI As Double=3.14159264、运算符与表达式：运算符是用来对运算对象进行各种运算的操作符号，而表达式是由多个运算对象和运算符组合在一起的合法算式。Visual Basic 中的运算符分为五类：算术运算符、连接运算符、关系运算符、逻辑运算符和特殊运算符；主要有三种表达式，即算术表达式，关系表达式和逻辑表达式。（1）数学运算：运算符有 * / （整除）Mod（求余运算）。例如：a Mod b表示a被b整除以后的余数。（2）关系运算：:关系运算也称比较运算，VB共提供六种运算符，分别是=（等于），（大于），=（大于等于），=（小于等于），（不等于），Like(模糊匹配)和Is（一致比较）。（3）逻辑运算： Not And Or （4）日期运算： 5、常见标准函数:（1）数学函数：Sqr Rnd（2）转换函数：Asc Chr Int Val Str（3）字符串函数：Space Trim Mid （4）日期和时间函数：Date Time Now Year（5）交互式函数:Msgbox函数和InputBox 函数的使用。自测与练习题一、写出下列函数的值（1）Int(-3.14159) （2）Chr$(Sqr(64)（3）Fix(-3.1415926) （4）Sgn(-72+2)（5）Mid(Hello,2) （6）Val(16 Year)（7）Str(-459.65) （8）Len(Hello)参考答案：（1）-4 （2）退格符 （3）-3 （4）-1（5）“ello” （6）16 （7）“-459.65” （8）5二、填空题1、整型变量X中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是 。2、表示x是5的倍数或是9的倍数的逻辑表达式为 。3、表达式Ucase(Mid(abcdefgh,3,4)的值是 。4、在直角坐标系中， x,y是坐标中任意点的位置，用x与y表示在第一或第三象限的表达式是 。5、表示S字符变量是字母字符(大小写字母不区分)的逻辑表达式为 。参考答案：1、 (X mod 10)*10+X10 2、 x mod 5=0 OR x mod 9=0 3、 “CDEF “4、 x0 AND y0 OR x0 AND y=”A” AND s=”a” AND s=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-B04、下面哪个是算术运算符：A. Imp B. Mod C. Not D. Like5、下面的运算符中，优先级最高的是：A. Not B. Is C. Like D. &6、下面的哪一条语句与Visual Basic 的默认设置相同：A. Option Base 1 B. Option Base 2 C. Option Cmpare Text D. Option Explicit参考答案：C B B B D D 四、编程题1在窗体上放1个标签Label1，1个命令按钮Command1，当窗体启动时使标签居于窗体的中间，并显示系统的当前时间，命令按钮显示为“放大”，当单击命令按钮时，将标签中显示显示文字放大13倍，并重新显示系统当前时间。Option ExplicitPrivate Sub Command1_Click()Label1.FontSize = Label1.FontSize * (Int(Rnd * 3 + 1) 放大字体 Label1.Caption = 当前时间为 & Time 显示时间 以下让Label1居中显示 Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2End SubPrivate Sub Form_Load() Label1.Caption = 当前时间为 & Time Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2End Sub2编一模拟简易计算器的程序，运行界面如下图所示。Option ExplicitPrivate Sub Form_Load()Label1.Caption = End SubPrivate Sub Command1_Click() 加法Label1.Caption = Text3.Text = Val(Text1) + Val(Text2)End SubPrivate Sub Command2_Click() 减法Label1.Caption = Text3 = Str$(Val(Text1) - Val(Text2)End SubPrivate Sub Command3_Click() 乘法Label1.Caption = Text3 = Str$(Val(Text1) * Val(Text2)End SubPrivate Sub Command4_Click() 除法Label1.Caption = Text3 = Str$(Val(Text1) / Val(Text2)End SubPrivate Sub Command5_Click() 清除Text1.Text = Text2.Text = Text3.Text = Label1.Caption = End Sub第三章 程序设计的3种基本结构重点掌握的内容:InputBox（函数）：使用InputBox函数可以建立输入对话框并返回字符型数据。MsgBox函数与语句：MsgBox函数产生的消息对话框可以看作是输出对话框。消息对话框能显示“错误”、“指示”、“警告”之类的简短信息以及“确定”、“取消”等按钮。详见4.2节。三种程序结构以及If条件语句、Select Case语句、ForNext语句、Do While Loop语句等。能够分析阅读程序，正确输出程序运行结果，能够编写简单的程序。自测与练习题一、判断题1、使用MsgBox函数与MsgBox过程均可接受用户输入数据。（ ）2、IF语句中的条件表达式中只能使用关系或逻辑表达式。（ ）3、在Select Case情况语句中，各分支（即Case 表达式）的先后顺序无关。（ ）4、要实现同样的循环控制，在Do While-Loop和DO-Loop While循环结构中给定的循环条件是一样的。 （ ）5、Do-Loop While语句实现循环时，不管条件真假，首先无条件地执行一次循环。（ ）6、Do-Loop Until语句实现循环时，只要条件是假，循环将一直进行下去。（ ）7、一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit语句。（ ）8、For 循环语句正常结束（即不是通过Exit For语句或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。 （ ）9、Print方法既可以在窗体中输出数据，又可以在图片框和立即窗口中输出数据。（ ）参考答案：1 2 3 4 5 6 7 8 9二、选择题1、下面程序段运行后，显示的结果是 。 Dim As Integer If x Then Print x Else Print x+1（A）1 （B）0 （C）-1 （D）显示出错信息2、下面程序段求两个数中的大数， 不正确。（A）Max = Iif(xy,x,y) （B）If xy Then Max = x Else Max=y（C）Max=x If y=x Then Max =y（D）If y=x Then Max=y Max = x3、下段程序执行的输出结果是 。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 IPrint S;T;U（A）3 6 14 （B）1 4 6 3 （C） 14 3 6 （D）16 4 3参考答案：1A 2D 3B 三、程序阅读写出下列各段程序执行后的输出结果。1程序1Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For I=0 To 10 Step 3 For j=1 To 10 If j=5 Then I=I+4 :Exit For J=j+1 K=k+1 Next j If I8 Then Exit ForNext IPrint kEnd Sub程序运行后，当单击窗体之后，窗体上输出的是_。2程序2Private Sub Form_Click() Dim b As Integer a=Val(InputBox(请输入数据 ， ，100) Select Case a Mod 5 Case Is 4 w=a+10 Case Is = A And c Asc(Z) Then k = k - 26 ElseIf c = a And c Asc(z) Then k = k - 26 End If Text2.Text = Text2.Text + Chr(k)End Sub程序运行后，在文本框Text1输入“Ab,X4y5”，文本框Text2中显示的内容是什么？参考答案：14 2 4 13 135 31 3!uoy era who 4A 5Fg,c4d5BBBCCCCCDDDDDDDEEEEEEEEE四、程序填空题1下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框中输入表达式，边输入，边统计，以输入回车作为表达式输入结束，然后显示结果。Dim count1%Private Sub Text1_KeyPress(KeyAscii As Intcger)If =( Then Count1 =Count1+1Elself Then End If If KeyAscii=13_Then If Then Print 左右括号配对Elseif Then Print 左括号多于右括号; count1; 个 Else Print 右括号多于左括号; -count1; 个 End If End IfEnd Sub2输入任意长度的字符串，要求将字母顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 Private Sub Command1_Click() Dim a$,c$,d$,n%,i% a=InputBox$(输入字符串) n= For i=1 To n C=Mid(a,i,1) Next i Print a End Sub3下程序用辗转相除法求两自然数m、n的最大公约数和最小公倍数。Private Sub Form_Click() Dim m %,n%,mn%n=Val(InputBox(“n=”) m=Val(InputBox(“m=”) If n=0 OR m=0 Then MsgBox “数据出错” : End _ If _ Then t=m: m=n: n=t End If r= m mod n Do While r0 m=n n=r_ Loop Form1.Print “最大公约数=”,n, Form1.Print “最小公倍数=”,mn/n,End Sub4某次大奖赛，有10个评委打分，下面的程序是对一名参赛者，输入10个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。 Private Sub Command1_Click() Dim mark!,aver!,max1!,min1! Aver=0 For I=1 To 10 Mark=Val(InputBox(输入第 & I & 位评委的打分) If I=1 Then Max1=mark : Else If markmax1 Then End If End If Next IAver = Print averEnd Sub参考答案：1Chr(KeyAscii) Chr(KeyAscii)=) Count1=Count1-1 Count1=0 Count102 Len(a) d=c+d a=d3 mn=m*n mn r= m mod n 4 min1=mark min1=mark max1=mark aver=aver+mark (aver-min1-max1)/8 五、编程题1、编程序计算：1！+2！+3！+.+10！Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As IntegerDim sum1 As Long, sum2 As Long sum1 = 1 For i = 1 To 10 sum1 = sum1 * i sum2 = sum2 + sum1 Next i Print 结果= & sum2End Sub2、输入一公元年号，判断是否是闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。Option ExplicitPrivate Sub Form_Click()Dim N As IntegerN = InputBox(请输入年份, 提示框)If (N Mod 400 = 0) Or (N Mod 4 = 0 And N Mod 100 0) Then Print N & 年是闰年Else Print N & 年不是闰年End IfEnd Sub3、设计一个应用程序，要求利用InputBox（函数）接收一周7天的温度，程序进行处理后，利用MsgBox函数输出一周的平均温度。（设用7个标签显示用户输入的7个温度）Private Sub Command1_Click()Dim i As IntegerDim t As Single, s As Singles = 0For i = 0 To 6t = Val(InputBox(请输入 & 周 & (i + 1) & 温度：, 输入)Label1(i).Caption = Label1(i).Caption & t & 度s = s + tNext is = s / 7Print 七天的平均温度是： & s & 度End Sub4、规范整理英语文章，即对输入的任意大小写英语文章进行整理。要求：句子开头应为大写字母（句子以符号“ ？”、“.”和“！”作为结束符的），其它都是小写字母。Option ExplicitDim Pre As Long 存放当前处理字符的前一个字符Private Sub Form_Load() Pre = 46 初始状态为“.”End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii) If (Pre = 46 Or Pre = 63 Or Pre = 33 Or Pre = 13) And ch = a And ch = z Then 前一个字符是”.”或”!” 或”?” 或回车 KeyAscii = KeyAscii - 32 End IfIf KeyAscii 32 Then Pre = KeyAscii 当前处理字符不是空格End Sub第四章 数组重点掌握的内容：一、数组的定义：数组必须先定义后使用例如：Dim A(1 to 10) As IntegerDim B(10) As double定义后数组A有10元素，分别为A(1),A(2),A(10)；数组B的元素个数由系统的下标缺省值来决定，若没有Option Base 语句或使用Option Base 0，则B的元素个数为11,即B(0),B(1),B(10)；若使用Option Base 1则B的元素个数为10,即B(1),B(10)。二、定长数组的定义：数组定义时指定了大小，占用的内存大小是固定不变的数组称为定长数组，如上例数组A、数组B。三、动态数组的定义：例如 Dim C() As Integer,声明了C是一个动态数组，在使用C数组前，必须用ReDim语句定义它的大小，例如ReDim C(5)。用ReDim语句可以使用Preserve参数保留数组中原有的数据。例如：Dim C()ReDim C(5)：C(1)=20: ReDim Preserve C(10)自测与练习题一、判断题1、在使用ReDim重定义动态数组时的下标可以用变量来表示。 （ ）2、使用ReDim语句既可以改变数组的大小，也可以改变数组类型。（ ）3、若要使定义数组下标下界缺省值时，下界值为2，则可用语句Option Base 2。（ ）4、在VB中，用DIM定义数组时，数组元素也自动赋初值为0。 （ ）5、数组在内存中占据一片连续的存储空间。 （ ）参考答案：1 2 3 4 5二、选择题以下程序输出的结果是 。Dim a, i%a=array(1,2,3,4,5,6,7)For i =Lbound(a) to Ubound(a) a(i)=a(i) *a(i)next iprint a(i)（A） 49 （B） 0 （C） 不确定 （D） 程序出错以下程序输出的结果是 。Option Base 1Private Sub Command1_Click()Dim a%(3,3), i%, j%For i=1 to 3 for j=1 to 3If j1 and i1 then a(i,j)=a(a(i-1,j-1),a(i,j-1)+1Else a(i,j)=i*jEnd ifPrint a(I,j);” ”;Next jPrintNext IEnd Sub（A） 1 2 3 （B）1 2 32 3 1 1 2 33 2 3 1 2 3（C） 1 2 3 （D）1 1 12 4 6 2 2 23 6 9 3 3 33程序运行后，单击窗体，输入的数据为8 ，则输出结果为? Private Sub Form_Click()Dim iA, i%, n%,t%n=InputBox(Enter N=?)iA=array(1,2,3,4,5,6,7,8,9,10)For i =1 To n2 t=iA(i) : iA(i)=iA(n-i+1) : iA(n-i+1)=tNext i For i=0 to Ubound(iA)Print iA(i);Next iEnd Sub （A） 1 2 3 4 5 6 7 8 9 10 （B） 10 2 3 4 5 6 7 8 9 1 （C） 1 9 8 7 6 5 4 3 2 10 （D） 10 9 8 7 6 5 4 3 2 1参考答案：1D 2A 3C 三、程序填空1下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。 Private sub form_click() Dim a,i%,n%,m% a=array(29,21,15,13,11,9,7,5,3,1) n=ubound(A) Redim m=val(inputbox(输入欲插入的数) For i = ubound(A) -1 to 0 step -1If m=a(i) then if i = 0 then a(i) =m else exit for end if Next iFor i = 0 to Print a(i) Next i End Sub2. 在窗体上有1个命令按钮和1个文件框，名称分别为cmdstart、Textl。文本框Textl中的字符个数不超过200个。程序开始运行时，单击“cmdstart”按钮后，将文本框Textl.Text中的字符按其ASCII码值由小到大自左到右重新组合，并在窗体上输出重组后的字符串。Private Sub Cmdstart_Click()Dim n As Integer, I As Integer ,j As Integer ,p As IntegerDim a (200) As String *1 ,strl As String, t As S