2022年VB期末复习资料 .pdf

“Visual Basic编程与应用”期末复习资料第一章 Visual Basic 6.0程序设计概述重点掌握的内容：对象与事件驱动对象： 世界上存在的任何具体的事物都可以称之为对象。对象是具体存在的，每个对象都是唯一的，有着自己独特的个性。类：是具有相同性质的对象的集合。对象和类的区别在于前者是具体的，而后者则是抽象的。属性、方法和事件： VB采用一种所谓的事件驱动的编程机制，由用户来掌握程序的运行流向。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。对象的属性的设置可以通过两种方法来实现：（1）通过属性窗口直接设置；（2）在程序代码中通过赋值实现，其格式为：对象. 属性=属性值事件过程 : 事件即对象相应的动作， 是 Visual Basic 预先定义好的对象能识别的动作，如 Click 、DbClick 、LostFocus 等等。事件过程是指附在该对象上的程序代码，是事件的处理程序， 即用来完成事件发生后所要做的动作创建 Visual Basic 应用程序有三个主要步骤：1创建应用程序界面。2设置属性。3编写代码。窗体的属性和方法窗体属性：重点掌握： Name ，Caption ，BorderStyle ，MinButton ，MaxButton 等属性。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 38 页 - - - - - - - - - Print方法: 在 Visual Basic 中，Print方法是用来输出信息的专用过程，Print方法应重点掌握如下：（1）语法结构 对象.Print 表达式列表 （2）表达式列表中的分隔符：若用分号（；）：输出的各表达式的值中间没有空格，数值型前留有一个符号位。例如 Print “1”；“ 2”；“ 3”输出格式为 123 若用逗号（， ） ： 输出的各表达式的值将被分配在各个区段内，例如 Print “1”，“ 2”，“ 3”输出格式为 1 2 3 Spc(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对象可以响应的用户操作。（）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 38 页 - - - - - - - - - 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 38 页 - - - - - - - - - 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 Locked 5 TabIndex 0 6 vbModal 或1 7 Activate Deactivate 8 PictureBox （或图片框） Frame（或框架）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 38 页 - - - - - - - - - 三、选择题1对于窗体，下面属性在程序运行时对于其在屏幕上的位置起作用。（A）MaxButton （B）BorderStyle （C）Name （D ）Left 2要使 Print方法在 Form_Load事件中起作用，要对窗体的属性进行设置。（A）BackColor （B）ForeColor （C）AutoRedraw （D ）Caption 3若要使标签控件显示时不覆盖其背景内容，要对属性进行设置。（A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle 4若要使命令按钮不可操作，要对属性设置。（A）Enabled （B）Visible （C）BackColor （D）Caption 5文本框没有属性。（A）Enabled （B）Visible （C）BackColor （D）Caption 6不论何对象，都具有属性。（A）Text （B）Name （C）ForeColor （D）Caption 7要使某控件在运行时不可显示，应对属性进行设置。（A）Enabled （B）Visible 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 38 页 - - - - - - - - - （C）BackColor （D）Caption 8要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列属性设置就有效。（A）MaxButton （B）Borderstyle （C）Width （D ）MinButton 9当运行程序时，系统自动执行启动窗体的事件过程。（A）Load （B）Click （C）UnLoad （D ）MinButton 10改变控件在窗体中的上下位置应修改该控件的属性。（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）。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 38 页 - - - - - - - - - 代码如下：Dim size As Integer, ft As Double, bd As Boolean, dl As Boolean Private Sub Command1_Click() Label1.FontSize = Label1.FontSize * 3 End Sub Private Sub Command2_Click() Label1.FontBold = True End Sub Private Sub Command3_Click() Label1.FontUnderline = True End Sub Private Sub Command4_Click() Label1.FontSize = size Label1.FontBold = bd Label1.FontUnderline = bl Label1.Left = ft End Sub Private Sub Command5_Click() Label1.Left = Label1.Left - ft / 10 End Sub Private Sub Form_Load() size = Label1.FontSize bd = Label1.FontBold bl = Label1.FontUnderline 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 38 页 - - - - - - - - - ft = Label1.Left End 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）显式声明名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 38 页 - - - - - - - - - 变量用 Dim 变量名 As 类型名声明后再使用的方式就是显式声明。 Option Explicit 的作用就是强制显式声明模块中的所有变量。3、常量：常量的概念、分类、声明。常量分为系统内在常量和自定义常量（符号常量）。符号常量用 Const 语句声明。例如 Const PI As Double=3.1415926 4、运算符与表达式：运算符是用来对运算对象进行各种运算的操作符号，而表达式是由多个运算对象和运算符组合在一起的合法算式。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) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 38 页 - - - - - - - - - （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 C0 C. (A+B=C or A-B 0 D. A+BC And A-B0 4、下面哪个是算术运算符：A. Imp B. Mod C. Not D. Like 5、下面的运算符中，优先级最高的是：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 Explicit Private Sub Command1_Click() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 38 页 - - - - - - - - - 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 / 2 End Sub Private Sub Form_Load() Label1.Caption = 当前时间为 & Time Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 End Sub 2编一模拟简易计算器的程序，运行界面如下图所示。Option Explicit Private Sub Form_Load() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 38 页 - - - - - - - - - Label1.Caption = End Sub Private Sub Command1_Click() 加法Label1.Caption = Text3.Text = Val(Text1) + Val(Text2) End Sub Private Sub Command2_Click() 减法Label1.Caption = Text3 = Str$(Val(Text1) - Val(Text2) End Sub Private Sub Command3_Click() 乘法Label1.Caption = Text3 = Str$(Val(Text1) * Val(Text2) End Sub Private Sub Command4_Click() 除法Label1.Caption = Text3 = Str$(Val(Text1) / Val(Text2) End Sub Private Sub Command5_Click() 清除Text1.Text = Text2.Text = Text3.Text = Label1.Caption = End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 38 页 - - - - - - - - - 第三章 程序设计的 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 语句或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。（）名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 38 页 - - - - - - - - - 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 = x 3、下段程序执行的输出结果是。S=0:T=0:U=0 For I=1 To 3 For J=1 To I For K=J To 3 S=S+1 Next K T=T+1 Next J 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 38 页 - - - - - - - - - U=U+1 Next I Print S;T;U （A）3 6 14 （B）1 4 6 3 （C） 14 3 6 （D ）16 4 3 参考答案：1A 2 D 3 B 三、程序阅读写出下列各段程序执行后的输出结果。1程序 1 Private 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 For Next I Print k End Sub 程序运行后，当单击窗体之后，窗体上输出的是_。2程序 2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 38 页 - - - - - - - - - Private 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 38 页 - - - - - - - - - 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 5 Fg,c4d5 BBB CCCCC DDDDDDD EEEEEEEEE 四、程序填空题1下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框中输入表达式，边输入，边统计，以输入回车作为表达式输入结束，然后显示结果。Dim count1% Private Sub Text1_KeyPress(KeyAscii As Intcger) If =( Then Count1 =Count1+1 Elself Then End If If KeyAscii=13_Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 38 页 - - - - - - - - - If Then Print 左右括号配对 Elseif Then Print 左括号多于右括号 ; count1; 个 Else Print 右括号多于左括号 ; -count1; 个 End If End If End Sub 2 输入任意长度的字符串， 要求将字母顺序倒置， 例如， 将输入的“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 Sub 3下程序用辗转相除法求两自然数m 、n 的最大公约数和最小公倍数。Private Sub Form_Click() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 38 页 - - - - - - - - - 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 Sub 4某次大奖赛，有 10 个评委打分，下面的程序是对一名参赛者，输入10个评委的打分分数， 去掉一个最高分、 一个最低分后， 求出平均分为该参赛者的得分。 Private Sub Command1_Click() Dim mark!,aver!,max1!,min1! Aver=0 For I=1 To 10 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 38 页 - - - - - - - - - Mark=Val(InputBox(输入第 & I & 位评委的打分) If I=1 Then Max1=mark : Else If markmax1 Then End If End If Next I Aver = Print aver End Sub 参考答案：1Chr(KeyAscii) Chr(KeyAscii)=) Count1=Count1-1 Count1=0 Count10 2 Len(a) d=c+d a=d 3 mn=m*n mn r= m mod n 4 min1=mark 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 38 页 - - - - - - - - - min1=mark max1=mark aver=aver+mark (aver-min1-max1)/8 五、编程题1、编程序计算： 1！+2！+3！+.+10！Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer Dim sum1 As Long, sum2 As Long sum1 = 1 For i = 1 To 10 sum1 = sum1 * i sum2 = sum2 + sum1 Next i Print 结果= & sum2 End Sub 2、输入一公元年号，判断是否是闰年。闰年的条件是：年号能被4 整除但不能被 100 整除，或者能被 400 整除。Option Explicit Private Sub Form_Click() Dim N As Integer N = InputBox(请输入年份 , 提示框 ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 23 页，共 38 页 - - - - - - - - - If (N Mod 400 = 0) Or (N Mod 4 = 0 And N Mod 100 0) Then Print N & 年是闰年 Else Print N & 年不是闰年 End If End Sub 3、设计一个应用程序，要求利用InputBox （函数）接收一周7 天的温度，程序进行处理后，利用MsgBox函数输出一周的平均温度。（设用7 个标签显示用户输入的 7 个温度）Private Sub Command1_Click() Dim i As Integer Dim t As Single, s As Single s = 0 For i = 0 To 6 t = Val(InputBox(请输入 & 周 & (i + 1) & 温度： , 输入) Label1(i).Caption = Label1(i).Caption & t & 度 s = s + t Next i s = s / 7 Print 七天的平均温度是： & s & 度 End Sub 4、规范整理英语文章，即对输入的任意大小写英语文章进行整理。要求：句子开头应为大写字母（句子以符号“？”、“ . ”和“！”作为结束符的），其它都是小写字母。Option Explicit 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 38 页 - - - - - - - - - Dim Pre As Long 存放当前处理字符的前一个字符Private Sub Form_Load() Pre = 46 初始状态为“ . ”End Sub Private 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 If If KeyAscii 32 Then Pre = KeyAscii 当前处理字符不是空格End Sub 第四章数组重点掌握的内容：一、数组的定义：数组必须先定义后使用例如： Dim A(1 to 10) As Integer Dim 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() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 25 页，共 38 页 - - - - - - - - - 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 i print a(i) （A） 49 （B） 0 （C ） 不确定（D ） 程序出错以下程序输出的结果是。Option Base 1 Private Sub Command1_Click() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 26 页，共 38 页 - - - - - - - - - Dim a%(3,3), i%, j% For i=1 to 3 for j=1 to 3 If j1 and i1 then a(i,j)=a(a(i-1,j-1),a(i,j-1)+1 Else a(i,j)=i*j End if Print a(I,j);” ”; Next j Print Next I End Sub （A） 1 2 3 （B）1 2 3 2 3 1 1 2 3 3 2 3 1 2 3 （C ） 1 2 3 （D）1 1 1 2 4 6 2 2 2 3 6 9 3 3 3 3程序运行后，单击窗体，输入的数据为8 ，则输出结果为 ? Private Sub Form_Click() Dim iA, i%, n%,t% 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - -