vb难点
VB第一章
●可视化的设计平台:在使用传统 的程序设计语言编程时，一般需
要通过编写程序来设计应用程序 的界面(如界面的外观和位置等)， 在设计过程中看不见界面的实际 效果。
而在Visual Basic 6.0中，采用面向 对象程序设计方法(ObjetOriented Pogramming),把程序和 数据封装起来作为一个对象，每
③窗体的二进制数据文件(*.frx): 当窗体或控 件含有二进制属性的图片、 图标等，将窗体文 件保存时，系统自动产生同名的二进制文件。
④标准模块文件(*.bas): 该文件包含模块级的 变量和外部过程的声明，用户自定义的可供本工 程内各窗体调用的过程。该文件可选。
⑤类模块文件(*.cls): 用于创建含有属性和方 法的用户自己的对象。该文件可选。
4.运行和调试程序
当应用程序全部设计完成后，可以运行 程序，查看相应的功能，检查是否达到预期 效果，并排除出现的错误。
5.保存程序
当应用程序运行调试无误后，可以将程 序保存。一个Visual Basic 程序就是一个工 程。在设计一个应用程序时，系统将建立一 个扩展名为.Visual BasicP的工程文件。工 程文件中包含该工程所建立的所有文件的相 关信息，如窗体、标准模块、类模块等。需 要注意的是在保存应用程序时，Visual Basic会先保存工程里的各个文件，如窗体、 标准模块、类模块等，最后再保存工程文件。
用解释模式运行Visual Basic 程序的方法如 下:
●单击“运行”菜单下的“启动”命令。 ●在标准工具条上单击“启动”按钮。 ●按下F5 键。
②保存程序。单击“文件”菜单下的“保
存”命令，如果是第一次保存，即可出现 “文件另存为”对话框，Visual Basic程序 在保存时是先逐个保存工程里的文件，如 “窗体”“类模块”“标准模块”等，最后 保存“工程文件”。
visualbasic程序设计教案：数组
§3.6 数组数组是按一定顺序排列，具有相同类型的变量的集合。
VB中将数组分为静态数组和动态数组，静态数组在声明时必须指明数组的维数和变量的个数；动态数组在声明时仅定义数组的名称和类型，然后在执行程序的过程中，根据实际需要再用ReDim语句定义数组的维数及变量的个数，而且允许使用简单变量来进行数组中变量个数的定义。
数组的使用在管理信息系统软件的程序设计中有着不可替代的作用，离开数组的使用，某些程序的编制将会变得非常麻烦，甚至导致程序编制的失败，因此数组是程序设计人员必须熟悉和掌握的必备知识。
【教学要求】了解：数组的概念。
理解：静态数组和动态数组的区别；控件数组的作用。
掌握：数组的定义及使用方法；控件数组的应用。
【本节重点】动态数组的应用。
控件数组的应用。
【本节难点】动态数组的应用。
一、静态数组及声明1、一维数组一维数组的定义如下：Dim <数组名> ([下界To]上界) [As 类型]若缺省下界，系统默认为0。
例：Dim num（1 To 50）As Integer2、多维数组VB中数组的维数允许最多可达60维。
多维数组的定义格式如下：Dim <数组名>（[下界1 To]上界1，[下界2 To]上界2……）[As 类型] 例：Dim A（12，50），C（10）As Double二、动态数组动态数组在声明时只定义数组名或数组名及类型，不指定大小，在执行程序的过程中，再根据需要用Redim语句重新定义数组的大小。
重新定义动态数组的语句格式如下：Redim <数组名>（下标1[，下标2……]）注意：（1）Redim语句中的下标可以是已被赋值的变量。
（2）在过程中可多次使用Redim来改变数组的大小和维数。
（3）每次使用Redim语句都会使原数组中的数据丢失，如需要保留原数组数据，可用Preserve参数来保留，使用该参数只能改变最后一维的大小。
例：在程序运行时由操作者指定一个一维数组的变量个数，然后由计算机自动产生一组随机数存放到一维数组中，并将此组随机数在窗体上打印出来。
高中信息技术《VB程序设计—For循环》优质教案、教学设计
《VB 程序设计—For 循环》教学设计一、教材分析本节课选自浙江教育出版社《算法与程序设计》（选修）《4.3 语句》中的内容，程序的循环结构是之前学习的赋值语句、顺序语句、选择语句内容的提升。
在程序算法的三大结构分别是顺序结构、选择结构、循环结构。
顺序结构是VB 编程的基础内容，选择结构是VB 程序的一种提高与转折，循环结构是VB 程序中的重点与难点，For 循环是循环结构其中的一部分内容，也是为之后学习过程、函数等内容的基础和前提，起着重要的承上启下的作用。
二、学情分析本节课面向的对象是高一年级的学生，这个阶段的学生已经具备了一定的抽象和逻辑思维能力，并且学生在数学学习中已经接触过流程图、算法分析等内容，对于本节课内容学习打下坚实的基础。
通过前段时间对VB 程序的学习，大部分学生对于VB 的基础知识、顺序结构、选择结构有了一定了解，因此具有一定的算法基础和归纳总结的能力。
但是也有部分学生接受能力相对较弱，尤其本节课对学生的逻辑、抽象思维要求更高一些，如何理解For 循环的执行过程就是一个很大的重点。
因此在教学设计过程中，循环的执行过程一定要精讲慢讲，让学生更清楚的理解For 循环的基本结构以及思想，并根据问题学会用循环语句编写程序。
三、教学目标知识与技能1. 理解循环结构的定义，了解For 循环的基本结构及作用。
2. 理解For 循环语句的执行过程步骤，能够根据问题分析其循环执行的过程3. 学会分析问题，利用for 循环语句编写程序。
过程与方法1. 通过对For 循环结构的学习，根据流程图理解循环的执行过程2. 通过对问题的分析，能够学会用For 循环编写程序情感态度价值观1. 在分析问题，解决问题的基础上，培养学生的探索、发现的精神，激发学生的求知欲。
2. 在合作探究的过程中，培养学生的自主学习、合作的能力。
四、教学重难点重点：For 循环的基本结构以及循环执行过程难点：根据实际问题设计算法编写VB 程序五、教学过程3.以s=1+2+3+4+5 为例分析它的流程图以及执行过程。
VB类模块
VB类模块对程序员和编程爱好者来说，VB中类的技术是学习中的一个难点，在大型软件的开发过程中，模块（Moudle)、控件（Active ocx)、链接库（Active dll)和类（Classmoudle)构成了系统化、高效化的软件工程，而类的技术是控件和链接库技术的基础，因此掌握类的理论和编程方法是非常有意义的。
（一）类的基本定义和应用概述；类是包含了方法、属性、数据成员的高级代码模块，它既在模块的范畴之内，又是一个没有图形界面的Active ocx，程序员可以象使用控件一样使用它，但却不能看到它，值得注意的是，类是不能继承的。
类能够使我们高效的完成对某一个或者某几个特定的对象的复杂操作，对象的动作就是类的方法，对象的属性就是类的属性过程。
相对而言，如果编程的对象是一组事物，那么，我们采用标准模块的方式是非常合适的，在下列两种情况下，应该使用类进行代码处理：（1）创建大量性质相近的对象；（2）提高代码的封装性。
类的创建非常简单，在进行代码编写的时候，在“工程”菜单中选择“添加类模块”项目，就可以添加一个空白的类。
类文件一般以.cls作为扩展名保存。
（二）类的方法的实现；类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。
一般来说类的方法是能够指定是否有返回值的。
它在类中通常是一个public过程。
请看下面的代码示例，它使一个密码框拒绝非字母的输入：（1）类cls的代码；Option Explicit '变量检查Private WithEvents mytxt As TextBox '本类中的方法接受和控制一个text密码框Dim isNUM As Boolean '类的模块级变量Public Sub Attach(itTEXT As TextBox) '接受外部变量到mytxt中Set mytxt = itTEXTEnd SubPrivate Sub mytxt_KeyUp(KeyCode As Integer, Shift As Integer)isNUM = (KeyCode >= 65) And (KeyCode <= 90) '测试密码框的键盘输入是否是英文字母If isNUM = False ThenBeepmytxt.Text = ""'如果输入不是英文字母则响铃并且清空密码框内容MsgBox "非法字符输入！"End IfDebug.Print mytxt.Text '调试输出密码框内容End Sub '类的代码结束（四）窗体代码的引用编程；在窗体FORM1中添加文本控件TEXT1、下拉列表控件COMBO1、命令按钮COMMAND1（CAPTION="开始转化"），调整三个控件到适当位置。
第二章VB6.0详细入门教程
第2章数据类型、变量和常量数据是用来存储程序需要调用的文字、数值、对象、图像等，包括多种类型。
变量是程序用来临时存储数据。
常量是以字符串形式用来代替固定数值。
本章内容包括：●数据类型●变量●常量VB从入门到实践2.1 数据类型在应用程序中Visual Basic将以更高效率来处理已定义数据类型。
Visual Basic包含七种数据类型，分别为数值型（Numeric）、字符型（String）、字节型（Byte）、布尔型（Boolean）、日期型（Date）、对象型（Object）、变体型（Variant）等。
本节将详细介绍七种数据类型的定义和特点。
VB从入门到实践2.1.1 数值型Numeric1．整数•整型：整型取值范围为-32678～32677，以2个字节（16位）存储，用二进制码表示和参加运算。
•长整型：长整型取值范围为-2147483648～2147483647，以4个字节（32位）存储。
2．浮点型（1）单精度型（2）双精度型（3）货币型VB从入门到实践2.1.2 字节型Byte字节型（Byte）专为存储二进制数值类型，以1个字节来存储。
如果变量声明包含二进制数，则声明为Byte数据类型的数组。
取值范围为：0～255。
除了减法外，所有对整数进行处理的运算符均可处理该类型。
VB从入门到实践2.1.3 字符型String字符型（String）为最通用的数据类型之一，用来储存文本信息。
每个字符对应1个字节，由ASCII字符序列组成，包括标准的ASCII字符和扩展ASCII字符及汉字等。
字符型为包含在双引号内的若干个字符。
【示例2-3】显示不同类型字符串。
“”表明长度为零的字符串为空字符串；“Visual Basic”表明为字母字符串，赋予变量为“Visual Basic”；“Hello,World 2008。
”表明为混合字符串。
固定字符串最大取值范围为65535字节；变长字符串最大取值范围为0～231。
深圳初中八年级下信息技术vb教案全套
粤教版初二年级信息技术VB课程全套教案时间：课题《感受程序设计的魅力——初识计算机程序》一、教学内容分析和设计：本节课教学内容为第二册下第一章感受程序设计的魅力第1节的内容，主要学习程序、程序设计语言的概念和VB的创建工程、设计界面、编写程序、保存文件、运行程序等操作方法。
二、教学对象分析：本节课的授课对象为初二年级学生，这阶段的学生理解能力和接受能力较强。
初一年级时学生已学习了一些程序设计语言的概念，知道计算机能直接认识的语言为机器语言，为本节课的学习打下了一定的基础。
教学目标三、教学目标：1、知识与技能：（1）了解程序的概念以及程序在计算机中的作用（2）了解程序设计语言的不同类型、特点和发展趋势（3）了解程序设计的方法（4）了解VB程序设计环境2、过程与方法：（1）掌握在VB程序设计环境中创建程序的一般步骤和方法（2）学会用VB创建第一个程序3、情感态度与价值观：（1）注重学生的自学能力的培养。
（2）鼓励学生动手、动脑，培养勤于动手、主动探究的精神。
（3）培养学生利用信息技术解决实际问题的能力。
教学重点程序的概念和作用、创建VB程序的一般步骤和方法教学难点程序的作用、窗体文件和工程文件的保存对于程序与程序设计语言等概念，学生学习起来较枯燥，故先安排学生带着教师提出的几个问题，看书思考和自学，再由教师组织学生个别回答、师生主要教法举例、师生讨论、归纳等活动来将几个概念弄清楚。
对于VB软件的学习，教师先展示一个由VB开发的小游戏，师生一起参与游戏的使用，让学生感受到VB软件的实用性，充分调动学生积极使用VB开发小程序的愿望，再由教师示范讲解VB程序设计环境中创建程序的一般步骤和方法，最后由学生动手尝试使用VB。
课时：1课时教学过程教学环节教师教学学生活动设计意图导入教师运行展示本学期将要完成的VB程序思考：计算机程序是什么？VB是什么？他是如何激发学生兴趣。
[布置学生看书自学并思考]1、日常生活中的所说的”程序”是指什么，而计做出程序的？学生看书，并思考问题新课讲授：程序与程序设计算机程序又是指什么？你能谈谈你所接触过的程序吗？2、现代计算机设计中，普遍采用的是一种”存储程序控制”的思想。
VB工业应用程序开发
随着新的软件开发工具的不断涌现，应用软件设计人员面临的可使用的工具越来越多，令人眼花眼花缭乱，其中，V isual Basic是最为人们所容易接受的软件开发工具之一。
但是大多数使用VB进行软件应用程序开发的人员都认为，VB不能进行工业控制程序的开发。
其实不然，我们曾多次使用VB成功地实现了工业控制程序的开发，所开发出的产品业已投入实际使用。
下面就其开发过程中的经验介绍给大家。
平台的选择使用VB开发工业控制程序，首先面临的一个问题是平台的选择。
目前，一般应用软件的开发大多数都是在Windows 9x平台上进行的。
但是，我们认为在选择平台时，应考虑到客观实际情况来决定。
如果我们的用户是一般的操作工人，并且在微机主板上安装了我们自己开发的控制硬件板（如I/O板等），那么其平台应选择Windows 3.x。
因为一般的操作工人接触计算机较少，那么对于操作，而且在实际使用过程中，一般都可能会出现紧急事件或突然停电而非正常关机，此后再启动时，Windows 9x将首先执行Scandisk.exe程序，或由此破坏了Windows 9x的注册表，这将造成操作工人不知所措；如果在微机主板上安装了我们自己开发的控制硬件板，那么Windows 9x还将要求安装其驱动程序，综合这些因素，我们建议使用Windows 3.x。
否则，我们可以选择Windows 9x。
我们在开发“盆腔治疗仪”时，考虑到用户为医护人员，并且通过平行口进行I/O控制，因此我们选择了Windows 95；而在开发用于自动粘贴防伪标志的“复卷贴标机”时，其用户系工厂工人，并且在工控机的主板插槽上我们安装了自行开发的I/O控制板，为此我们选择了Windows 32。
根据实际使用情况看，我们的考虑、选择是正确的。
编写并生成对端口操作的动态链接库动态连接库是Windows应用程序共享资源、节省内存空间、提高使用效率的一个重要技术手段。
动态连接库是包含数据和函数的模块，可以被Windows的其他可执行文件调用。
VB程序设计教程第一章VB程序设计概述
运行与调试工程
选择“运行”菜单中的“启动”命令，或单击工具栏 中的“启动”按钮，或按F5键，即可运行。
在文本框中输入数据， 然后点击“求和”按钮， 即可得到两数的和，显 示在文本框中。
计算结果
24
保存工程
程序代码检查没有错误后，可 保存工程。
•选择“文件”菜单中的“保存 工程”或“工程另存为”命令， 或单击工具栏中的“保存工程” 按钮。若是第一次保存，则系 统弹出“文件另存为”对话框。
采用面向对象、事件驱动方式的编程,程序员不需要考虑精确次序执 行的每一步骤，而只需编写响应用户动作的程序即可，工作量相对 较少。用VB编程，实际上是与一组标准对象进行交互的过程。
13
对象 是系统中的基本运行实体,是代码和数据的集合.
VB中，对象分 • 系统定义，如窗体、菜单等 • 用户定义 对象是具有特殊属性（数据）和行为方式（方 法）的实体。建立对象后，其操作与该对象有 关的属性、事件和方法来描述。
18
１.４ VB程序设计的基本步骤
程序设计的一般过程
分析问题
设计算法
绘制流程图
编制程序 调试程序
19
ＶＢ程序设计的基本步骤
新建一个工程
设计用户界面
编写事件过程及通用过程代码
保存、调试、运行， 形成可执行文件
以求两数和的程序为例，说明VB工程的建立全过程
20
新建工程
途径有两种： • 启动VB后，在系统显示的“新 建工程”对话框的“新建”选项 卡中选择“标准EXE”，然后单击 “打开”按钮。 • 在“文件”菜单中选择“新建 工程”命令，然后在“新建工程” 对话框中选择“标准EXE”，然后 单击“打开”按钮。
31
四、总结
教育部考试中心NCRE难点试题权威分析
教育部考试中心ＮＣＲＥ难点试题权威分析作者：来源：《电脑爱好者》2008年第18期9月的NCRE考试将近，本刊与教育部考试中心合作，对4月考试的试题进行分析，依靠官方统计数据，选择考生容易出错或得分率低的重点和难点真题进行深入分析。
上期刊登了二级公共基础知识和二级C语言篇，本期关注的是二级VFP及VB两个科目。
VFP数据库程序设计笔试卷重点及难点试题分析二级VFP选择题第12题：有如下赋值语句：a=“计算机”,b=“微型”,结果为“微型机”的表达式是A）b+LEFT(a,3)B）b+RIGHT(a,1)C）b+LEFT(a,5,2)D）b+RIGHT(a,2)【考察知识点】该题考核考生对LEFT及RIGHT函数的理解和掌握。
【解题思路】为了得到字符“机”，需要对字符串“计算机”进行函数运算。
RIGHT函数取字符串的右边部分，由于是汉字，应选择D。
【统计数据】该题答对率为49.5％，不到一半。
有23.1％的考生选择了错误选项C，LEFT只能跟（，），只此一种表达方法。
本题如果有选项SUBSTR(a,5,2)也将是正确的。
二级VFP选择题第18题：可以运行查询文件的命令是A）DOB）BROWSEC）DO QUERYD）CREATE QUERY【考察知识点】基础题，就像题干的提问那么简单，不需考生发挥。
【解题思路】运行查询文件的命令就是 DO，后面跟文件名。
【统计数据】只有21.9％的考生答对该题，选择C的考生有68.2％！估计是受到执行表单文件的影响，表单文件执行命令是：DO FORM。
二级VFP选择题第27题：下列程序段执行以后，内存变量y的值是CLEARx=12345y=0DO WHILE x>0y=y+x%10x=int(x/10)ENDDO?yA） 54321B）12345C）51D）15【考察知识点】估计很多考生平时做过不少类似练习，初步看上一眼，这不是将数值反序排列嘛？错了！【解题思路】变量y初值为0，y是数值型变量，依次将x的各位数字从右至左顺序相加，赋给y。
Vb编程入门
Vb编程入门一、编写程序的基本思路1、人脑处理问题的过程以“9+19+28=？”为例第一步：收集信息第二步：处理信息第三步：输出结果2、编写程序解决问题的思路与人脑处理问题的思路相同第一步：数据输入可以通过TextBox(文本框)控件的Text属性或通过赋值语句输入数据(1) 赋值语句用于输入已知确定的数据;(2) 用TextBox用于输入暂时不确定或变化的数据。
**注意**用TextBox输入的数据是字符型，若要进行数值计算则要先转换成数值型（用VAL函数）第二步：数据处理一般用用赋值语句进行计算处理或者用以后学的知识进行处理第三步：数据输出用Label控件的Caption属性或TextBox的Text属性进行输出代码书写格式如下：控件名.Caption=”要输出的内容”（用Label控件输出）控件名.Text=”要输出的内容”（用TextBox控件输出）**注意**若输出变量的类型是数值型时，要用STR（）函数转换成字符型。
二、VB编写程序步骤分析问题，确定程序要完成什么任务，按下面的步骤创建应用程序。
举例: 已知圆的半径，求圆的周长和面积。
（1）新建工程。
创建一个应用程序首先要打开一个新的工程。
（2）创建应用程序界面。
A、要用几个控件B、版面如何布局C、各控件的“职责”、摆放位置（3）设置属性值。
A、名称属性B、Cation、TextBox等属性的值C、字号、字体、颜色、背景色等属性......（4）对象事件过程的编程。
A、代码应写在哪一个控件上，即事件发生在哪一个控件上B、确定解决问题的思路C、写代码（要注意变量的定义）（5）保存文件。
（6）程序运行与调试，生成EXE文件。
三、练习：已知圆的半径，求圆的周长和面积。
四、作业：鸡兔同笼。
已知笼中鸡兔总头数为h，总脚数为f，问鸡兔各有多少只？分析：设鸡有x只，兔有y只，则方程如下：解方程。
解出求x和y的具体方式为：设计界面和运行界面，如图所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、二维数组（矩阵）操作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码值进行判断，数值0～9的ASCII值范围是：48～57 或Asc("0")~Asc("9")大写字母A～Z的ASCII值范围是：65～90 或Asc("A")~Asc("Z")小写字母a～z的ASCII值范围是：97～122 或Asc("a")~Asc("z")For i = 1 To Len(Text1)s = Mid(Text1, i, 1)If Asc(s) >= 48 And Asc(s) <= 57 Then'是数值ElseIf Asc(s) >= 65 And Asc(s) <= 90 Then'是大写字母ElseIf Asc(s) >= 97 And Asc(s) <= 122 Then'是小写字母End IfNext i注意：与该题类似的还有，统计给定字母的出现次数，此时循环中的if判断条件改成s与该字母的比较即可；判断文本框中输入的是数字信息还是非数字信息等。
2、统计文本中某单词出现的次数、平均长度、最长单词见上机教程第十三讲考点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=j'5）把开始暂存的数放到i的位置'================================================= Dim i%, j%, temp%, flag As Booleani = 0' j = ?1' ?2 = Text1(j)flag = True' While (i < ?3)If flag ThenIf Text1(i) Mod 2 = 0 ThenText1(j) = Text1(i)j = j - 1flag = Not flagElsei = i + 1End IfElse' If Text1(j) Mod 2 = ?4 ThenText1(i) = Text1(j)i = i + 1flag = Not flagElsej = j - 1End IfEnd IfWendText1(i) = tempEnd Sub参考答案：1、92、temp3、j4、12、查找算法：在随机产生（数值互不相同）的数组中输入一个数进行查找Option Base 1Dim a(10)'产生数组Private Sub Command1_Click()For i = 1 To 10a(i) = Fix(Rnd * 99 + 1)' For j = 1 To ?1If a(i) = a(j) Then' i = ?2Exit ForEnd IfNext jNext iEnd Sub'输入一个数进行查找Private Sub Command2_Click()Dim num As Integer, i As Integernum = InputBox("请输入待查找的数")For i = 1 To 10' If a(i) = ?3 ThenText2.Text = Str(num) + "是数组中的第" + Str(i) + "个值"Exit ForEnd IfNext i' If ?4 > 10 ThenText2.Text = Str(num) + "不存在于数组中"End IfEnd Sub参考答案：1、i-12、i-13、num4、i3、插入和删除算法（1）有序数组中插入一个数，让该数组仍然有序思路：通过比较查找到该数要插入的位置i，将该位置以及后续数逐一向后移动（注意移动时应先移最后一个数）。