VB总复习.doc

VB总复习第一章VB程序开发环境1、VB的主要特点（可视化的开发环境、事件驱动编程机制和结构化程序设计，VB是一种解释型的程序设计语言）2、VB有哪些版本（学习版、专业版和企业版）3、启动VB的四种方法及启动时对话框的使用，退出VB的操作三种4、VB操作界面的认识：主窗口的构成、标准工具栏的构成、VB设计器的主要功能及工具栏的表现形式，属性窗口、代码窗口的组成5、VB的基本操作（理论与操作）：1) 打开菜单、打开文件退出VB的快捷键，取消菜单与对话框的按键ESC2) 新建工程、窗体、模块3) 属性窗口、工程资源管理器、菜单编辑器、立即执行窗口等的打开4) 设计阶段属性的修改操作方式：直接输入、使用下拉列表框和利用对话框设置。5) 立即执行窗口、本地窗口与监视窗口的作用6) 程序的保存、装入与运行操作及目的：a) 打开程序与保存程序操作b) 逐语句、逐过程调试与进入立即执行状态的快捷键c) 启动应用程序操作与执行应用程序的两种模式（解释与生成EXE文件）第二章对象及其操作1、对象的概念及三要素：属性、事件与方法2、认识窗体与控件分类（3类），控件的默认属性与控件的画制与选定（按Shift或Ctrl进行多控件选定）、缩放（Shift+方向键)、移动（Ctrl+方向键）、复制删除等操作3、窗体的常用属性：AutoRedraw、BorderStyle、ControlBox、MaxButton、MinButton、WindowState等。第三章简单程序设计1、认识语句书写规则、掌握常用语句：每行不1023个字符，一行写多个语句要用冒号隔开，一个语句写多行使用续行符“_”连接，续行符前至少要有一个空格。赋值、注释（Rem或单撇号）、暂停、结束End2、开发应用程序的一般步骤（三步曲）3、VB四种文件类型及其对应的扩展名(.VBP、.FRM、.BAS、.CLS，其它还有.RES等）4、应用程序的结构（即常见的三种模块窗体模块、标准模块和类模块）与工作方式（即事件驱动）第四章VB程序设计基础数据的类型基本类型（共5大类14种，特别是字符串型和数值型）用户定义类型（即记录类型）的定义方法、注意点。枚举类型的定义（使用Enum定义）与注意点常量（两种类型）与变量（与数据类型相同）的分类、命名规则、定义及变量的作用域（即作用范围），作用域有应用程序级（即全局级）、模块级和过程级（即局部）常用内部函数、运算符与表达式，表达式的运算顺序关于命名规则名字只能由字母、数字和下划线组成；名字的第一个字符必须是字母；名字有效字符为255个不能使用VB保留字作名称命名规则适用于变量名、常量名、过程名等，另外VB不区分名称中的大小写，汉字也可以看作字母。关于变量的定义定义变量可以使用Dim、Public、Private或Static等进行，基本格式为：Dim 变量名 as 类型名全局变量必须在标准模块中用Public定义Dim定义变量时，如果在模块的声明部分定义，变量在本模块内都有效；在过程内定义时，变量只在本模块内有效。第五章数据的输入与输出Print与逗号分号Print方法与相关方法、函数，特别注意Format函数的格式控制P88。Input函数与MsgBox的使用，特别是这两个函数各参数的作用。字体属性与输出方式（打印机输出与窗体输出）二个容易忽视的属性窗体和图片框有两个容易被大家忽视的属性，它们能控制输出的位置：CurrentX和CurrentYPicture1.CurrentX=300Picture1.CurrentY=400Picture1.print “大家好！”程序运行结果会在离图片框Picture1左上角横向300点纵向400点的位置上打印“大家好”三个字。第六章标准控件的使用各种控件的使用：1) 文本类控件：标签与文本框2) 图形类控件：图片框、图像框、形状与直线3) 按钮类控件：命令按钮4) 选择类控件：复选框、单选按钮、列表框和组合框5) 文件系统控件：驱动器列表框、目录列表框和文件列表框(注意三种控件的同步)6) 其它控件：滚动条、计时器与框架控件的共同属性都有的属性：Name、Enabled、Left、Top可视控件都有的属性：Visible、Width、Height等Caption和Text属性：Caption是标题的意思，是那些不能被选中的文字；Text是文本的意思，是那些能由用户输入或能被鼠标选中的文字。标签、按钮、单选按钮、复选框有Caption属性；文本框、列表框、组合框有Text属性。Value属性：Value是值的意思，指有大小的数值或固定的值。单选按钮的Value值有True和False两种，复选框的Value有0、1、2三种，滚动条的Value能指定或得到滚动滑块目前的位置。关于组合框组合框是文本框与列表框的组合，根据组合的不同状态有三种组合框，并通过Style属性控制：Style值 类型0 下拉式组合框（默认）1 简单组合框2 下拉式列表框列表框的属性与方法（一）重要的属性：.Text 返回最后一次被选列表项的文本.ListIndex返回所选项的编号.List(编号)返回或设置指定编号的项目的文本.ListCount返回目前列表框所含的总项数与多列表项选择相关的属性：.SelCount返回目前被选项的数目.Selected(编号)设置指定编号的项为被选状态或得到指定的项是否被选中列表框的属性与方法（二）列表框的常用方法AddItem 文本内容 ,编号在指定位置加入新项目，不指定编号加在最后RemoveItem 编号移除指定编号的项，然后列表框会重新排队Clear清除列表框内所有项目列表框的常见算法(一)单击List1某项则移除该项 (假设有列表框List1)：Private Sub List1_Click()List1.RemoveItem List1.ListIndexEnd Sub单击List1某项则以该项为内容添加新项：Private Sub List1_Click()List1.AddItem List1.TextEnd Sub列表框的常见算法(二)打印列表框所有项(假设有列表框List1)：For I=0 to List1.ListCount-1Print List1.List(I)Next打印列表框中被选中的项(假设有列表框List1):For I=0 to List1.ListCount-1If List1.Selected(I) Then Print List1.List(I)Next需补充的一道上机题在上机题中有一题在单击C1按钮时在组合框Combo1中列出本机中所有字体的列表需要补充一下：Private Sub C1_Click()For I=0 to Screen.FontCount-1Combo1.AddItem Screen.Fonts(I)NextEnd SubScreen是屏幕对象，它的FontCount属性能得到本机字体的种数，Fonts(编号)属性能得到指定编号的字体名称。其它控件的几个独有属性图像框Image的Streach属性：意思为“变形”，如值为True能使图片随图像框大小发生变形。文本框TextBox的MultiLine与PasswordChar、ScrollBars:两者必须配合使用，即只在MultiLine为True时ScrollBars属性才起作用。MultiLine为False时PasswordChar才有效。计时器的InterVal与Enabled属性：InterVal是间隔量的意思，是计时器发生时间到事件(即Timer事件，计时器只有这一个事件)的间隔，单位为毫秒，Enabled属性可以控制计时器是否工作，即像考题中说的可暂时关闭计时器。其它控件的几个独有属性(续)命令按钮的Default属性和Cancel属性：Default是默认的意思，同一窗体内只能有一个命令按钮的Default属性为True，按回车键与单击此按钮效果相同。Cancel是取消的意思，同一窗体内也只能有一个命令按钮的Cancel属性为True，按Esc键与单击此按钮的效果相同。关于滚动条的两个事件Change事件和Scroll事件Change事件发生在控件的值发生变化时，一旦滚动条的滚动滑块位置变化就会触发这个事件。其实很多控件都有这个事件，如文本框的内容发生变化。Scroll事件却是滚动条特有的，只在拖动滚动滑块时发生。LoadPicture函数LoadPicture函数的作用是装载图片或图标文件，它能给Picture或Icon属性赋值。例如：Picture1.Picture=LoadPicture(“d:pica.jpg”)Form1.Icon=LoadPicture(“c:abc1.ico”)下例是清除窗体Form1的背景图片：Form1.Picture=LoadPicture(“”)焦点与Tab顺序设置焦点：得到焦点的方法SetFocus和焦点有关的事件GotFocus、LostFocus注意：当对象不可见时是不能使用SetFocus方法的，否则会出错与设定Tab顺序相关的属性(TabIndex和TabStop)第七章VB控制结构语句分支结构单分支与双分支语句：If语句及IIF函数多分支语句：If ElseIf语句与Select Case语句循环结构范围式循环：For循环条件式循环：While循环Do 循环分支结构单分支与双分支语句：If语句及IIF函数多分支语句：If ElseIf语句Select Case语句循环结构可定循环次数的语句 For循环For 循环变量=初值to 终值 step 步长（循环体）Next 循环变量名不可定循环次数的语句While循环（比较老，只能先判断后执行 ）Do 循环语句（可替代While循环，且比它功能强，可选判断后执行也可先执行后判断，并可用Exit Do中途退出循环）关于For循环每次运行到For处会先加步长再判断是否超过终值正常的循环次数(终值初值)/步长+1例1:N=0For I=1 to 20 step 3n=n+1NextPrint n, I例2:N=0For I=1 to 20 step 3n=n+1I=I+5NextPrint n, I关于Do循环(1)Do 循环可以根据条件判断的位置不同，循环判断的方式不同有4种组合先判断后执行当型Do While 条件(循环体)Loop直到型Do Until 条件(循环体)Loop先执行后判断当型Do(循环体)Loop While 条件直到型Do(循环体)Loop Until 条件关于Do循环(2)Do 循环要注意循环变量的修改位置例：要实现6！运算例1：S=1N=1Do While n6n=n+1s=s*nLoop例2：S=1N=1Do While n=6s=s*nn=n+1Loop累加与累乘关于多重循环对于固定次数的多重循环For I=1 to 3For j=1 to 4n=n+1nextNextPrint nN为3412对于不固定次数的多重循环For I=1 to 3For j=1 to In=n+1nextNextPrint nN为1+2+36这类题以跟踪为主，但同时注意分析规律。注意连接运算时的顺序例1：Dim S as StringFor k=1 to 9S=S & kNextPrint S结果为：“123456789”例2：Dim S as StringFor k=1 to 9S= k & SNextPrint S结果为：“987654321”第八章数组数组分类：静态与动态、数组的维数数组的定义数组元素的使用、输入、输出与复制基本操作数组分类静态数组与动态数组静态数组动态数组数组的维数（重点为一、二维数组）数组元素的使用、输入、输出与复制基本操作输入：使用循环语句，一般静态数据用For循环，动态数组用Do循环使用Array函数，形成变体类型的数组输出：一般使用For循环进入输出，动态数组常要用Lbound和Ubound配合确定下标的上下界使用For Each语句输出种类数组控件数组控件数组的建立控件数组的标识属性Index配合Load语句创建同类同名对象数组元素倒序排列Arr=Array(1,2,3,4,5,6,7,8,9)For I=0 to 8t=Arr(I)Arr(I)=Arr(8-I)Arr(8-I)=tNextArr=Array(1,2,3,4,5,6,7,8,9)For I=0 to 8If AmaxArr(I) then Amin=Arr(I)NextPrint Amax, Amin数组元素中找最大数和最小数在数列中找能被整除的数For I=Lbound(Arr1) to Ubound(Arr1)If Arr1(I) Mode N=0 ThenPrint Arr1(I)End IfNextFor I=Lbound(Arr1) to Ubound(Arr1)If Arr1(I) Mode 2=0 ThenPrint Arr1(I)End IfNext在数列中找偶数使用二维数组操作矩阵123456789 10 11 1213 14 15 16有上边所示的矩阵，要求输出其对角线上的元素。分析：矩阵操作关键是找到二维数组下标的控制规律。左上到右下对角线上的元素行下标与列下标相同，右上到左下对角线上的元素行下标与列下标的和相同，据此可有上面的程序来完成任务。Dim Arr(4,4) as Integer形成数组For I=1 to 4For j=1 to 4Arr(I,j)=(I-1)*4+jNextNext123456789 10 11 1213 14 15 16Dim Arr(4,4) as Integer 形成二维数组For I=1 to 4For j=1 to 4Arr(I,j)=(I-1)*4+jNextNext输出左上到右下对角线上的元素For I=1 to 4Print Arr(I,I);NextPrint输出右上到左下对角线上的元素For I=1 to 4Print Arr(I,5I);NextPrint关于冒泡法排序冒泡法排序是指把较大(或较小)数往一个方向移动，以此实现排序的一种算法。例：对下列数组进行升序排序A=Arrary(3,6,2,8,1,9,3)For I=6 to 1 step 1For j=0 to I-1If a(j)a(j+1) thent=a(j)a(j)=a(j+1)a(j+1)=tEnd IfNextNext基本结构：For I=最后编号 to 第2 step 1For j=第1 to I-1If a(j)a(j+1) thent=a(j)a(j)=a(j+1)a(j+1)=tEnd IfNextNext它决定排序方向第九章过程过程的分类1) 事件过程：事件过程的概念与命名规则2) 通用过程a) Sub过程，又叫子程序过程，不直接返回值b) Function过程，又叫函数过程，会返回值过程的建立与调用过程不能嵌套定义过程可以嵌套调用，即过程里还可以调用其它过程过程的参数过程中的变量及其生命期一个可调用应用程序的函数Shell函数过程的参数参数的分类：形参与实参参数的传送方式默认为传地址方式传值方式数组参数的传送由于数组含多个值，所以只能以传地址方式传送参数可选参数与可变参数对象参数：窗体参数与控件参数过程调用与过程中的变量Dim x as integerSub P1(a as integer, ByVal b as integer)a=a+1b=b+1End SubSub P2(ByVal a as Integer, b as Integer)a=a+1b=b+1End SubPrivate Sub Command1_Click()Static Y as IntegerDim Z as Integerx=x+1p1 y,zprint x,y,zp2 y,zprint x,y,zEnd Sub请问连续单击按钮三次后屏幕上显示的值为：1 1 01 1 12 2 02 2 13 3 03 3 1第十章键盘与鼠标事件过程键盘事件：KeyDownKeyPressKeyUp事件的参数KeyAscii与KeyCode的区别常见键的编码(回车13Esc键27)Shift参数的值与其作用与键盘事件相关的属性:Default Cancel KeyPreview鼠标事件鼠标事件:MouseMove MouseDown Click DblClick MouseUp事件的参数Button参数的含义X与Y参数的原点Shift参数的含义（同键盘事件）与鼠标事件相关的属性:MousePoint、MouseIcon鼠标的拖放程序设计与拖放相关的属性：DragMode、DragIcon与拖放相关的事件：DragDrop、DragOver与拖放相关的方法：Drag、Move第十一章菜单程序设计菜单的种类打开菜单编辑的操作（4种方法）菜单编辑器的组成菜单项的添加、内缩、移动与删除操作及菜单的最大层数(6层5个内缩符)菜单项的有关属性：Visible、Enabled、Checked、Caption、Index、Name指定菜单项的快捷键与访问键的操作了解使用控件数组增减菜单项弹出式菜单的建立与显示（PopupMenu方法的使用）第十二章对话框程序设计对话框的分类（3类）与特点通用对话框控件的使用通用对话框的Action属性与Show方法文件对话框相关属性：主要为Filter与FilterIndex、FileName与FileTitle、DialogTitle、DefaultEXT与InitDir、了解Flags属性的作用颜色对话框的相关属性：Color与Flags字体对话框的相关属性：Font相关属性与Flags属性、Max与Min属性在字体对话框中的作用打印对话框的相关属性：Copies属性、FromPage和Topage属性、Max和Min属性、PrinterDefault属性及它们与Flags属性间的关系第十三章 多重窗体程序设计与环境应用1、 与多重窗体应用程序设计相关的语句1) 装载与卸载对象语句 Load与UnLoad2) 显示与隐藏窗体语句 Show与Hide及Show方法显示窗体的模式2、 多窗体程序的执行与保存1) 指定启动窗体操作2) 新建窗体与添加窗体文件操作3、 VB工程的结构4、 了解闲置循环与DoEvents语句的作用第十四章 数据文件文件的概念与结构文件的种类1) 按数据性质：程序文件和数据文件2) 按存取方式：顺利文件和随机文件3) 按编码方式：ASCII码文件和二进制文件文件的操作1) 打开（建立）文件Open语句2) 读写操作3) 关闭文件Close 语句顺序文件和随机文件随机文件访问方式是Open语句的默认打开方式。顺序文件记录长度不要求一致，随机文件要求记录长度一致顺序文件的读用Input #语句，随机文件用Get #读顺序文件用Print #或Write#写，随机文件用Put#写随机文件可以通过顺序文件方式打开读取数据。Open语句的Len子句对顺序文件来说是指定缓冲区大小，对随机文件来说是指定记录长度。记录类型数据的读写假设有如下声明Type RecName as String*5Age as IntegerEnd TypeDim Stu as Rec使用随机文件访问方式读写数据Open “d:data.dat” as #1 len=len(Stu)Put #1, ,StuClose #1Open “d:data.dat” as #1 len=len(Stu)Do until Eof(1)Get #1, ,StuPrint Stu.Name,Stu.AgeClose #1使用顺序文件访问方式写数据Open “d:data.dat” for Output as #1print #1, Stu.Name, Stu.AgeClose #1补充几个上机题中遇到的方法和函数Refresh方法：重画、刷新的意思，一般控件都有这个方法Circle方法：在对象上画圆、椭圆或弧格式：对象名.Circle (x,y),半径Line方法：在对象上画直线和矩形。格式：对象名.Line (x1,y1)-(x2,y2),颜色,BF说明：x1,y1为起点坐标，x2,y2为终点坐标，带B可画矩形，否则画线，带F能画实心矩形，注意不能光用F而不用B。RGB 函数 ：用红绿蓝三个值来控制颜色值格式：RGB(红值，绿值，蓝值）注：值范围在0255之间例：Text1.BackColor=RGB(255,255,0)可设置文本框的底色为黄色。对笔试考试的几点看法仔细读题选择题采用比较法与跟踪相结合解题跟踪解题同时应注意分析规律部分题可能在试卷中有答案或提示注意答题卡填涂正确比较法解题实例设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是_。关于上机考试的几点建议轻松考试，不可急躁注意考生文件夹的位置看清控件的名称及属性值程序必须进行运行调试坚持“先保存后运行”的原则VB上机重难点题型归纳一、二维数组（矩阵）操作1、求矩阵元素的最大值Dim a(5, 5) As Integer省略给数组a赋值代码求数组a的最大值Max = a(1, 1) 假设第一个数为最大值初值For i = 1 To 5For j = 1 To 5If a(i, j) Max ThenMax = a(i, j)End IfNext jNext i循环结束后，max获得最大值注意for i循环必须从1开始，不能从2开始若for i循环从2开始，那a(1,2),a(1,3),a(1,4),a(1,5)都无法参加比较2、求方阵对角线元素之和、两个对角线元素之和假定有如下定义：Const N% = 6Dim a(1 to N,1 to N) as Integer则a数组的主、副对角线元素分别为：1主对角线元素：a(1,1)、a(2,2)、a(i,i）a(N,N)，“左上-右下”元素，即元素行、列下标相同；2副对角线元素：a(1,N)、a(2,N - 1)、a(i,N i + 1）a(N,1)，“右上-左下”元素，即第1行最后一个、第2行倒数第2个第i行倒数第i个元素。Sum1 = 0 获得主对角线之和Sum2 = 0 获得副对角线之和For i = 1 To NFor j = 1 To NIf i = j Then 求主对角线元素之和Sum1 = Sum1 + a(i, j)End IfIf i + j = N + 1 Then 求副对角线元素之和Sum2 = Sum2 + a(i, j)End IfNext jNext i3、列与列互换，如第2列和第4列互换For i = 1 To Nt = a(i, 2)a(i, 2) = a(i, 4)a(i, 2) = tNext i注意：a(i, 2)表示第2列的数组元素，a(i,4)表示第4列的数组元素，如果是第2行与第4行互换，则可用a(2, i)表示第2行的数组元素，a(4,i)表示第4行的数组元素。4、二维数组每行最大值及其在该行中的位置Dim a(20, 5) As Integer 定义20行5列的矩阵For i = 1 To 20Max = a(i, 1) 假设该行第一个数是最大值初值maxi = 1 获得假设初值的列下标For j = 1 To 5If a(i, j) Max Then Max = a(i, j): maxi = jNext jPrint 第; i; 行最大值; Max, 在该行的; maxi; 位置Next i注意：该题还可以扩展为求所有行最大值平均值、各行平均数的最大值、各行最小数的平均值；每行在某个范围内（如小于100）元素值之和、平均值；每行的偶数最大值、奇数最小值等。5、矩阵四周围元素之和，能被某数整除的个数Dim a(7, 7) As Integer如上声明的数组a，对数组a而言其四周围的元素即为第一行、第七行、第一列和第七列的数组元素。第一行数组元素满足a(1,j)，j从1到7第七行数组元素满足a(7,j)，j从1到7第一列数组元素满足a(i,1)，i从1到7第七列数组元素满足a(i,7)，i从1到7Sum=0For i = 1 To 7For j = 1 To 7If i = 1 Or i = 7 Or j = 1 Or j = 7 ThenSum = Sum + a(i, j)End IfNext jNext i二、字符（单词）操作1、统计文本框中数字、大写字母、小写字母个数每次取出一个字符，利用ASCII码值进行判断，数值09的ASCII值范围是：4857 或 Asc(0)Asc(9)大写字母AZ的ASCII值范围是：6590 或 Asc(A)Asc(Z)小写字母az的ASCII值范围是：97122 或 Asc(a)Asc(z)For i = 1 To Len(Text1)s = Mid(Text1, i, 1)If Asc(s) = 48 And Asc(s) = 65 And Asc(s) = 97 And Asc(s) = 122 Then是小写字母End IfNext i注意：与该题类似的还有，统计给定字母的出现次数，此时循环中的if判断条件改成s与该字母的比较即可；判断文本框中输入的是数字信息还是非数字信息等。2、统计文本中某单词出现的次数、平均长度、最长单词统计文本s中单词this出现的次数For i = 1 To Len(s) 对字符串内所有字符处理c = Mid(s, i, 1) 取字符If c Then 不为空格字符word = word + c 将该字符连接在单词中Else 若为空格字符If word= this then 如果是this单词，对该单词个数计数n = n + 1 单词个数计数End ifword = 存下一个单词前，将变量word清空End IfNext i循环退出后，还有最后出现一个单词未处理If word= this then 如果是this单词，对该单词个数计数n = n + 1 单词个数计数End if3、统计文本中同时含有某几个字母的单词个数（instr函数）要求统计包含了字母“m”，“n”和“p”的单词个数For i = 1 To Len(s) 对字符串内所有字符处理c = Mid(s, i, 1) 取字符If c Then 不为空格字符word = word + c 将该字符连接在单词中Else 若为空格字符利用instr函数判断单词word中有没有包含m、n和p字母If instr(word, m)0 and instr(word, n)0 and instr(word, p)0 thenn = n + 1 单词个数计数End ifword = 存下一个单词前，将变量word清空End IfNext i循环退出后，还有最后出现一个单词未处理If instr(word, m)0 and instr(word, n)0 and instr(word, p)0 thenn = n + 1 单词个数计数End if4、编写函数判断回文思路：将第一个字符和最后一个字符进行比较，如果相同，继续判断第二个字符和倒数第二个字符是否相同，若不相同比较结束，该字符串不满足回文。Function foundhuiwen(p As String) 判断p是否满足回文条件foundhuiwen = TrueFor i = 1 To Len(p) / 2If Mid(p, i, 1) Mid(p, Len(p) - i + 1, 1) Thenfoundhuiwen = FalseExit ForEnd IfNext iEnd Function三、算法1、排序算法（1）对读入的数据进行从小到大排序Dim a(10) As IntegerPrivate Sub Command1_Click()Open App.Path & Data5.txt For Input As #1Do While Not LOF(1)For i = 1 To 10Input #1, a(i)Next iLoopClose #1End SubPrivate Sub Command2_Click()=以下考生编写程序开始=考生编写程序结束=End Sub（2）将奇偶数分开，将奇数移动到前面，偶数移动到后面。（文本框为控件数组，名称属性分别为Text1(0)Text1(9)）单击“重排数据”按钮，执行如下代码=算法：1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数；2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是 偶数，则把此偶数放到第j个位置，j向前移1个位置；3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是 奇数，则把此奇数放到第i个位置，i向后移1个位置；4）重复2）、3），直到i=j5）把开始暂存的数放到i的位置=Dim i%, j%, temp%, flag As Booleani = 0 j = ?1 ?2 = Text1(j)flag = True While (i 10 ThenText2.Text = Str(num) + 不存在于数组中End IfEnd Sub参考答案：1、i-12、i-13、num4、i3、插入和删除算法（1）有序数组中插入一个数，让该数组仍然有序思路：通过比较查找到该数要插入的位置i，将该位置以及后续数逐一向后移动（注意移动时应先移最后一个数）。注意插入后数组的个数要增加1。Dim a(100) As Integer, num As Integer读入升序的数组元素Private Sub Command1_Click()Dim k As IntegerOpen App.Path & in4.dat For Input As #1For k = 1 To 60Input #1, a(k)Next kClose #1End Sub输入一个要插入的数Private Sub Command2_Click()num = InputBox(请输入一个数)End Sub插入后数组仍然为升序Private Sub Command3_Click()For i = 1 To 60If num n2、n3、a(j+1)四、其它1、求一范围内的完全平方数（平均值、最大值、个数等）注意：3662，完全平方数是36，而不是6求100以内所有完全平方数的个数For i=1 to 100If sqr(i)=int(sqr(i) then 完全平方数开平方后为整数n=n+1End IfNext i2、有序数组A和B，合并成数组C，要求仍然有序思路：假设数组A和B各有20个数组元素，先将A的数组元素值赋值给C的前20个数组元素，再将B的数组元素值赋值给C作为后20个数组元素，再对C进行排序操作。3、图形控件Shape的椭圆、圆形设置、填充线设置、边框设置等椭圆和圆形设置：Shape属性填充线设置：FillStyle属性填充线颜色设置：FillColor属性边框设置：BorderStyle属性边框颜色设置：BorderColor属性4、统计随机产生数中出现频率最高的数以及出现的次数数组a获得100个随机数，判断出现频率最高的数及其次数，b(i)获得对应a(i)出现的次数。max = 0For i = 1 To 20For j = 1 To i-1 不能让a(1)和其本身进行比较If a(i) = a(j) Thenb(i) = b(i) + 1End IfNext jIf b(i) max Then max = b(i)Next i常见问题1在选择结构中缺少配对的结束语句对多行式的If块语句中，应有配对的End If语句结束。否则，在运行时系统会显示块 If没有End If的编译错误。同样对Select Case语句也应有与其相对应的End Select语句。2多边选择ElseIf关键字的书写和条件表达式的表示多边选择ElseIf子句的关键字ElseIf之间不能写有空格，即不能写成Else If。在多个条件表达式的表示时，应从最小或最大的条件依次表示，以避免条件的过滤。例如，已知输入某课程的百分制成绩mark，要求显示对应五级制的讦定，评定条件如下：有以下几种表示方式，语法上都没有错，但执行后结果有所不同，请分析哪些正确? 哪些错误?下面给出的答案中，方法一、二、五正确，其余错误，请分析各自的原因。方法一：方法二：方法三：方法四：方法五：If mark=90ThenPrint优ElseIf mark=80ThenPrint良ElseIf mark=70ThenPrint中ElseIfmark-60ThenPrint及格ElsePrint及格End IfIf mark60ThenPrint不及格ElseIf mark70ThenPrint及格ElseIf mark80ThenPrint中ElseIf mark=60ThenPrint及格ElseIf mark=70ThenPrint中Elselfmark=80ThenPrint良Elselfmark=90ThenPrint优ElsePrint不及格End IfIf mark=90ThenPrint优ElseIf 80=mark90 ThenPrint良ElseIf 70=mark80 ThenPrint中ElseIf 60=mark=90Then