2023年计算机等级考试复习资料全

VisualBasic程序设计基础知识要点(概念分析篇)

知识点1：

(1)在工程资源管理器窗口中可以包括：工程文件、窗体模块文件、原则模块文件和类

模块文件(其中可以包括许多多种文件类型)。

(2)VisualBasic应用程序可以以解释方式执行和编译方式执行。

例题：

(1)如下论述中错误的是A

A.在工程资源管理器窗口中只能包括一种工程文件及属于该工程的其他文件。

B.以.bas为扩展名日勺文件是原则模块文件。

C.窗体文件包括该窗体及其控件的属性。

D.一种工程中可以有多种原则模块文件。

(2)如下论述中错误的是C

A.打开一种工程文件时，系统自动装入与该工程有关的窗体、原则模块等文件。

B.保留VisualBasic程序时，应分别保留窗体文件及工程文件。

C.VisucilBasic应用程序只能以解释方式执行。

D.事件可以由顾客引起，也可以由系统引起。

知识点2:

(1)窗体和多种控件的名称(Name)是唯一的,用来标识一种窗体或控件的。而窗体和

控件的标题是用来幽的，是可有可无的。

(2)多种控件之间有部分相似的属性，并不是握有所密属性。控件有些属性只能在属性

窗口中设置,但也有少数属性只能在代码状态设置。

(3)Forml.Hide措施向UnloadForml措施的区别：第一种措施窗体消失并不存在于内

存中；第二个措施窗体消失但仍存在于内存中。

例题：

(1)如下论述中对的的是A

A.窗体的Name.属性指定窗体的名称，用来标识一种窗体。

B.窗体的Name属性时值是显示在窗体标题栏中的文本。

C.可以在运行期间变化对象的Name属性的值。

D.对象的Name属性值可认为空。

(2)如下论述中错误的是C

A.VisualBasic是事件驱动型可视化编辑工具。

B.VisualBasic应用程序不具有明显日勺开始和结束语句。

C.VisualBasic工具箱中的所有控件都具有Width和Height属性。

D.VisualBasic中控件的某些属性只能在运行时设置。

知识点3:

(1)标签(Labell)：Autosize的True属性可以自动调整标签日勺大小，而False属性不

能。

(2)文本框(Textl)：

1、Maxlength属性表达文本框所能容纳的字符数。

2、Password属性表达口令输入，可以是或“？”等。设置文本框输入字符为

“*"：Textl.Passwordi*“，还原文本框字符:Text1.Password"”，

3、ScrollBars属性是表达文本框有垂直或水平滚动条，不过需要和多行属性

Multiline结合一起使用。

4、SelLength属隹是表达选中文本框中字符日勺个数：Textl.SelLengthoSelStart

属性是表达选中文本框中字符或光标之前的字符数：Textl.SelStrart。SelText属性是表

达选中文本框中的字符：Textl.SelTexto

5、文本的重要事件是Change事件：(标签内容随文本框内容变化而变化)

PrivatesubCommand_Change()

Label1.caption=Toxt1.text

Endsub

6、文本框的措施只有一种：Textl.SetFocus

例题：

(1)可以获得一种文本框中被选用文本日勺内容附属性是

A.TextB.SelLengthC.SelTextD.SelStrart

(2)在窗体上画一种文本框(其名称为Textl)和标签(其名称为Labell)。规定程序运行后，

假如在文本框中输入字符，则立即在标签中显示相似的内容。如下可以实现上述操作的事件

过程是A

A.PrivateSubTextl_Change()B.PrivateSubTextl_Click()

Label1.caption=Tcxtl.TextLabel1.caption=Text1.Text

EndSubEnclSub

C.PrivateSubLabell_Change()D.PrivateSubLabell_Click()

Label1.caption=Text1.TextLabel1.caption=Textl.Text

EndSub

(3)命令按钮(Command1)：

1、Default属性：当一种命令按钮的Default属性为True时，按回车键和单击该

命令按钮日勺效果相似。

2、Cancel属性：当一种命令按钮的Cancel属性为True时，按ESC键和单击该命

令按钮日勺效果相似。

(4)单项选择按钮和复选框(Option1和Chcckl)：

1、单项选择按钮：Value属性日勺值是True(选中)和False(未选中)，

Optionl.Value=True等同于Optionl.Value使用方法。

2、复选框：Value属性日勺值是0(未选中)、1(选中)和2(表达临时不可月)。

Checkl.Value=False可以用，但Check1.Value=True不可用(因为True只能转化数值一1

而不是Do

(5)列表框(Listl)：

1、List属性是一种数组型属性：ListLList(索引)，索引可以是数字0、

Listl.listindex,变量i(Listl.Text等同于Listl.list(Listl.listindex))。

2、MultSelect属性：用来设置一次可以多选表项数。MultSelect属性值为。时，

每次只能选择一项；MultSelect属性值为1时,可以同步选择多种项目；MultSelect属性

值为2时，可以用辅助键Shift或CtH选择多种项目。

3、常用措施：Addltcm措施表达添加的是一种项目，而Rumoveitcm措施表达通过

删除索引的方式删除项目。RemoveItem索引索引可以是数字0,l-.Listl.listir.dex,

变量io

(6)组合框(Combol)：

1、Style属性：Style属性值为0时，表达下拉式组合框；Style属性值为1时，

表达下简朴组合框；Style属性值为2时，表达下拉式列表框。其他功能类似列表框(Listl)。

(7)图片框和图像框(Picturel和Imagel)：

1、图片框(Picturcl)：Autosize属性值为True时,表达图片框大小随图片大小变

化而变化；Autosize属性值为False时，表达图片框只能部分显示大图片。

2、图像框(Imagel)：Stretch属性为True时，图片大小随图像框的大小变化而变

化；Stretch属性为True时，图像框的大小随图片大小的变化而变化。

3、两种图形类型都可以按照下面这个措施加载图片：

Picturel.picture=LoadPicture(App.Path&"'图片名称.扩展名”)

Imagel.picture二LoadPicture(App.Path&“\图片名称.扩展名”)

假如要清晰图片：

Picturel.picture=LoadPicture(un)

Imagel.picture=LoadPicture("")

注意:假如使用App.Path措施需要先保留好窗体文件和工程文件到考生文件夹中。

(8)滚动条(HScrolll)：

1、Max和Min属性是分别表达滚动条日勺最大和最小刻度，刻度值用Value属性值来

表达:UScrolll.valueo

2.LargeChange和SmallChange属性是分别表达移动滚动条上的左右箭头按钮的移

动量和移动滚动条上滚动框的移动量。

3、Scroll和Change事件分别表达拖动滚动条上滚动框的操作和单击滚动条上箭头按

钮的操作。

辱壁钮产学、

油ange事件,：移劭

Siftallcha；

(9)计时器(Timerl)：

1、Enabled属性：Enabled属性值为True时，表达计时器可以走动；Enabled属性值

为False时，表达计时器停止走动；

2、Interval属性：是表达计时器运动的时间间隔，单位为亳秒。1秒时间：

Timerl.Interval=1000<>

3、Enabled和Interval这两个属性一般状况下需要一起使用。

知识点4:

(1)VisualBasic常用函数的使用措施：

1、数学函数：

★求平方根：Sqr(n)

★求自然对数Log(n)In1108；8:108，、8/108.7(注意非6为底的对数需要如此转

换)

★求以e为底的察值，exexExp(x)

1n>()

★Sqn(n)=0n=0

★RadO—>X=Int(Rnd*(上界一下界+1))+下界(产生随机整数)

2、转换函数：

★Str(x)数值x转换成字符串str(12.75)=w12.75"这样转换12.75之前

会多出一位。假如使用Cstr(12.75)="12.75”这样转换12.75之前不会多出一位。

★Vai(x)字符x转换成数值，但x要一定是数字字符才行，

Vai(“12.75")=12.75,假如是具有其他字符Vai(“12.7ab")将无法转换。

★chr(x)返回以x为Asccii代码值的字符chr(97)="a"；Asc(x)给出字

符x的Asccii代码值Asc("A")=65

三种类型ASCII代码值转换：

Asc(“0")~Asc(“9”)-48~57

Asc(“A”广Asc(“Z”)-65~90

Asc("a”：「Asc(“z”)-97~122

特殊状况：Asc(“ABC”)=65只求第一种字符“A”的Ascii代码值

★Fix(x)将数值型数据x的小数部分舍去Fix(12.8)=12Fix(-12.5)=-12;

Int(x)取不不小于等于x日勺最大整数当x>0时，使用方法和Fix一样；当x<0时，

Int(-12.3)=-13；

Cint(x)将数值型数据x的小数部分四舍五入Cint(12.7)=13Cint(12.3)=12

不过有特殊状况：{x当x是偶数

Cint(x.5)=

x+1当x是奇数

3、字符函数

★Left(x,n)从x字符串左边起取n个字符Left(nABCDEFG",3)=BABC"；

Right(x.n)从x字符串右边起取n个字符Right("ABCDEFG",3)="EFG”。

★Mid(x,nl,n2)从字符串x左边第nl个位置开始向右起取n2个字符

Mid(x.n)从字符串x左边第n个位置开始向右全部取

Mid("ABCDEFG”,3,2)="CD"Mid("ABCDEFGB,3)="CDEFG"

★Instr(n,sl,s2)从字符串si日勺第n个位置起查找s2在si中位置，假如

n省略，则默认从字符串si的第1个位置起查找s2在si中位置

Instr(2,"ABCDEFG,,/CI)")=3

知识点5:

1、运算符：

★算术运算符

运算符妁优先级：.>-><*/)>\>Mod>(+-)

★关系运算符

<<=>>==<>LikeIs运算符优先级相似

★逻辑运算符

运算符日勺优先级：Not>And>Or>Xor>Eqv

例题：

(1)体现式4+5\6*7/8Mod9时/值是B

A.4B.5C.6D.7

⑵a=3b=2c=l求Printa>b>c的成果？

首先a>b日勺成果是true,然后再PrintTrue>c此时True需要转换

成T再比较，Print_1>1成果是False,因此整个输出成果是False。

知识点6：

1、交互函数日勺使用：

★InpulBox函数：

A=InputBox("提醒信息"，"标题信息默认值或输入框的值")

例题：

(1)执行下列语句后，将显示输入对话框，此时假如单击“确定”按钮,

则变量strinput的内容是C

strInput=InputBox("请输入字符串"，"字符串对话框二"字符串")

A."请输入字符串"B."字符串对话框

C."字符串"D.空字符串

★MsgBox函数：

MsgBox“提醒信息”，按钮类型值+图标类型值+默认焦点值，“标题信

息”

A=MsgBox“提醒信息”，按钮类型值+图标类型值+默认焦点值，“标题

信息”；A的值根据单击什么按钮有关，A的值在［1,7］之间取值。例如：单击“确定”按钮,

A=l0

例题：

（1）以上图形所示日勺函数体现式为：

MsgBox"请输入查询日勺学生学号："，3+32+256,"学生基本信息查询”

知识点7:

1、选择构造语句（If条件语句）：

★单分支条件语句：

格式：①If条件Then

语句块

EndIf（称If块语句）

②If条件Then只有一条语句（称If条语句）

★双分支条件语句：

格式：If条件Then

语句块1

Else

语句块2

EndIf

★多分支条件语句

If条件1Then

语句块1

Elseif条件2Then

语句块2

oQocOQ

Else

语句块n

EndIf

其中，条件可以是：关系体现式(a>5)、逻辑体现式(a>5Andc>4)、变

量(i)或常数(0)。

例题：

⑴下列程序段的执行成果为A

X=5

Y=-20

IfNotx>0Then

x=y-3

Else

Y=x+3

EndIf

Printx-y；y-x

A.-33B.5-8C.3-3D.25-25

以上题中的“条件”重要是逻辑体现式。

（2）下列程序段的执行成果为B

X=2

Y=1

Ifx*y<lTheny=y-lElsey=-l

Printy-x>0

A.TrueB.FalseC.-1I）.1

以上题中的“条件”重要是关系体现式。

（3）下列程序段的执行成果为C

DimxAsInteger

IfxThenPrintxElsePrintx-l

A.1B.0C.-1D.不确定

以上题中的“条件”重要是变量。

2,选择构造语句（SelectCase语句）：

SelectCase测试体现式

Case体现式列表1

语句块1

Case体现式列表2

语句块2

OOOOOO

CaseElse

语句块n

EndSelect

注意：测试体现式的类型只能是数值数据或字符型，体现式列表时值只要第一种

符合测试体现式值的规定，就结束SelectCase语句；体现式列表可以是三种构造或三种

混合构造：①、1To10②、1,3,5,6,7,8③、Is>10④、1,2,,5,7,Is>10

例题：

⑴在窗体上画一种名称为Command1的命令按钮和两个名称分别为Texll

和Text2日勺文本框，然后编写如下事件过程：

PrivateSubCommandl_Click()

n=Text1.text

SelectCasen

Case1T10

X=10

Case2,4,6

X=20

Case1s<10

X=30

Case10

X=10

EndSelect

Text2.text=x

EndSub

程序运行后，假如在文本框Textl中输入10,然后单击命令按钮，则在Tcxt2

中显示日勺内容是A

A.10B.20C.30I).40

3、选择构造语句(HF函数)：

变量=IIF(条件，参数1,参数2)

其中，条件可以是：关系体现式(a>5)、逻辑体现式(a>5Andc>4)、变

量(i)或常数(0)。执行过程：条件成立，变量时值就是“参数1”，否则变量时值就是''参

数2”。

例题：

(1)设a=e,则执行语句:x=IIF(a>5,T,0)后，x的值为D

A.5B.6C.0D.-1

知识点8：

1、循环构造

①For循环变量=初值To终值Step步长

循环体

If条件Then

语句

ExitFor

EndIf

Next循环变量

注意：循环假如正常退出时（没有执行ExitFor语句），那么循环变量必须

要不小于终值或等于终值+步长。Do

②DoWhile条件

循环体

Loop

Do

DoUntil条件

循环体

Loop

注意：左边上下两种循环是先判断条件后执行循环体，右边上下两种循环

是不管条件成立与否都至少执行一次；While循环是条件成立执行循环体，Until循环是条

件不成立执行循环体。

例题：

（1）下列程序段日勺执行成果为B

s=0：t=0：u=0

Forx=lTo3

Fory=lTox

Forz=yTo3

s=s+l

Nextz

t=t+l

Nexty

u=u+l

Nextx

Prints；t；u

A.3614B.1463C.1436【）.1643

分析：

A组语句和B语句都在X循环内，并且是并列的，因此可以先计算B组语

句，A组语句临时不算，这样很轻易求出u=u+l语句循环了三次，则u=3；C组语句和D语

句都在Y循环内，并且是并列的，因此可以先计算D组语句，C组语句临时不算，这样也比

较轻易求出t=t+l语句循环了六次，则t=6；然后再结合答案很快就能得出答案是选E。

知识点9：

1、数组:

①数组日勺概念

★等级考试重要考一维数组、二维数组和三维数组(三维的只需懂得数组

中可以存储多少数据即可)。数组日勺格式：a(2.3To7,-lTo2),那它日勺存储空间大小计算:

每一维用上界-下界+1计算，例如(2-0+1)*(7-3+1)*(2-(-1)+1)例*5*4=60。

★数组妁下标下界是根据语句OptionBasen来决定：当n=0时，数组下

标下界是从0开始：当n=l时，数组下标下界是从1开始。

★数组分为：

固定大小数组:Dima(10)AsInteger

动态大小数组：Dima()AsIntegerRedima(10)

★Array函数使用方法：为一种变体型变量创立一种数组。

DimaasVariant

a=Array(1,2,3,4,5)

因此：a(0)=1a(1)=2a(2)=3a(3)=4a(4)=5

★注意：假如数组被定义为一下三种类型，(1)数值型(2)字符型(3)

逻辑型,则它们初始化的数组元素数值分别为：0、空字符串和False。

例题：

⑴在窗体上画一种命令按钮(其Name属性为Commandl),然后编写如

下代码:

PrivateSubCommand1Click()

Dima(4,4)AsInteger

Fori=lTo4

Forj=lTo4

a(i,j)=(i-l)*3+j

Nextj

Nexti

Fori=3To4

Forj=3To4

Printa(j,i)

Nextj

Print

Nexti

EndSub

程序运行后，单击命令按钮，其输出成果为D°

A.69B.710C.811D.912

7108119121013

分析：

对循环和数组结合日勺问题，往往要先看B组语句输出成果是什么，然

后根据B组语句输出成果代入到A组语句中求成果。

B组语句输出成果：a(3,3)a(4,3：i

代入A组语句日勺成果:

912

知识点10：

1、过程与函数：

★过程与函数的参数类型有：实参和形参；传递方式有：值传递和地址传递。

★如下程序中，x,y为实参；a,b为形参

注意：实参要与形参的类型、个数要相似。

★在形参a,b之前假如加上关键字ByVai,那么就是值传递：假如加上关键

字ByRef或不加关键字，那么就是地址传递。

★过程调用方式有两种：CallSwap(x,y)或Swapx.y(Swap是过程名)

'实现两个数的交换功能

PrivateSubCoiniTiandl_Click()

DimxAsInteger,yAsInteger

10:y=20

Swap(、或使用^3^)

Printx,y\

EndSub\

PrivateSubSwapkaAsInteger了tAsInteger)

DirntAsInteger

L)地址传递方式

End//

注意：只有地址传递方式才能实现互换功能，值传递方式x,y时值不变。当

有事件过程和通用过程一起运行时，先执行事件过程(Cominand_Click)。

例题:

(1)假定有如下的Sub过程：

SubS(xAsSingle,ByVaiyasSingle)

t=x

x=t/y

y=tMody

EndSub

在窗体上画一种命令按钮，其名称为Command1,然后编写如下事件过程:

PrivateSubCommandl_Click()

DimaAsSingle,bAsSingle

a=5：b=4

Sa,b

Printa,b

EndSuh

程序运行后，单击命令按钮，输出成果为C。

A.54B.11C.1.254D.1.251

程序分析：

首先形参x是地址传递方式，当a传递给x时，因此a与x拥有一种共

同存储空间，图形表达：；形参y是值传递方式，当b传递给y时，因此b与y是两个不一

样存储空间，图形表达：；那么在过程S中：运算x=t/y后，x=1.25,图形表达；因此a的

值就是1.25；运算y=tMody后，y=l,图形表达：，因为此时b和y存储空间不一样，则

不影响b日勺值，则还是4,因此Printa,b日勺成果就是选择C答案。

知识点11:

1、菜单和鼠标事件

★菜单编辑器日勺使用:

注意：菜单中的标题可认为空，但不管是第几级菜单名称必须唯一，且不能

为空。

★鼠标事件(按下鼠标键事件过程)

重要事件有：Form_MouseDown、Fom_MouseUp和Form_MouseMoveo目

前以某个为例阐明:

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,X

AsSingle,YAsSingle)

EndSub

上述事件过程不仅使用在窗体上(Forn_MouseDown),还可以使用于大多数

控件上，包括命令按钮(Command1MouseDown)或文本框(TextlMouseDown)等。

以上鼠标事件过程日勺参数，含义如下:

(1)Button有值1、2和4,分别表达按下左键、右键和中建;

(2)Shift表达Shift、Ctrl和Alt键日勺状态，其值分别是1、2和4；

(3)X,Y表达鼠标光标日勺坐标位置

★弹出式菜单(菜单和鼠标事件日勺结合使用)

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,

XAsSingle,YAsSingle)

IfButton=lThen'按下鼠标左键

PoplpmenuFile'通过PopUpmenu措施弹出菜单

EndIf'File是一级菜单的名称

EndSub

运行效果:

2、公共对话框(又称通用对话框)

★通用对话框是我们考试中唯一一种控件箱中没有的控件，需要我们自己添

加的，添加的措施是在“工程”菜单的“部件”项中选择“MicrosoftCommonDialog

Control6.0”后，才会在控件箱中出现通用对话框图标。

★通用对话框图形

根据以上图形，对应的程序代码如下：

PrivateSubCoiranandl_Click()

CoiranonDialogl.DialogTi:le^=”打开滤用对话框“

CoiranonDialogl.FileName="out.txt”

CoiranonDialogl.Filter=〃所有文件*|Wor过件|*.doc|文本文件|*.txt|”

CoiranonDialogl.FilterIndex=3

CoiranonDialogl.InitDir="p：\〃

CoiranonDialogl.ShowOpen'或用CoirsnonDialogLActional

，适闲看宿延至耘丽丁讦寂滓百毓霜砺云祥舟名福厂区H7行菽滓E赢五

如果是保存文件对'话框，只要把CoiranonDiaiogl.ShowOpen改为CoiranonDiaiogl.ShowSave,

'或把Coiranonbialogl.Act：on=i改为CoiranonDialogl.Action=2即可；

EndSub

注意：CommonDialog.Filterindex=索引(索引是从1开始)

知识点12:

1、文件

文件包括三种：次序文件、随机文件和二进制文件

①次序访问：文件中数据是以ASCH码存储的。

②随机访问：文件长度记录是固定不变日勺,数据类型可以不一样，数据以

二进制方式存储在文件中，可以任意时候，任意地方访问。

③二进制访问：必须懂得数据是怎样写入文件日勺。

★假如源文件是字符类型，那么读写文件如下所示：

读文件日勺格式：

OpenApp.Path&"'文件名（In.txt）"ForInputAs#文件号（#1）

DowhileNotEof（文件号）

Input#文件号，变量

•••

Loop

Close#文件号

写文件格式：

OpenApp.Path&"\文件名（Out.txt）'ForOutput（Append）As#文件号

（#1）

Print#文件号，变量

Close#文件号

注意：当写文件以Output方式时，原来的文件内容将被覆盖；当写文件以

Append方式时，新的文件内容将被添加到文件尾部；

★假如源文件是数值类型，那么读写文件如下所示：

Dima（10）AsInteger

OpenApp.Path&"\文件名（In.txt）"ForInputAs#文件号（#1）

Fori=lTo10

Input#文件号，a⑴

Nexti

Close#文件号

写文件格式：

OpenApp.Path&"\文件名(Out.txt)'ForOutput(Append)As#文件号

(#1)

Fori=lTo10

Print#文件号,a(i)

Nexti

Close#文件号

例题：

(1)在考生文件夹下有文件in5.txt,文件中有字符串

a0&l%$stt2&3!45u6ydf7ff@8|{9er\请在Forml时窗体上画一种文本框，名称为Textl,

能显示多行；在画一种命令按钮，名称为C1,标题为“存盘”。编写合适的事件过程，使得

在加载窗体时，把in5.txt文件的内容中数字字符显示在文本框里。然后单击“存盘”按钮,

把文本框中的内容存到文件out5.txt中。如图所示：

根据题目规定，所编写程序如下:

PrivateSubCoiranandl_Click()

OpenApp.Path&z，\out.txt，zForOutputAs#2

Print#2$Textl.Text

Close#2

EndSub

PrivateSubForm_Load()

DimsAsString

DimnAsInteger,iAsInteger,cAsString

OpenApp.Path&"\In.txt"ForInputAs#1

DoWhileNotEOF(l)

Input#1,s

Loop

Close#1

n=Len(s)

Fori=1Ton

c=Mid(s,i,1)

Ifc>=Andc<=〃9〃Then

Textl.Text=Textl.Text+c

EndIf

Nexti

EndSub

(2)在考生文件下有文件in.txt,文件有10个数据：12352136282140D300

710990120500.请在Forml日勺窗体上画一种文本框，名称为Textl,能显示多行；在画

一种命令按钮，名称为C1,标题为“存盘编写合适日勺事件过程，使得在加载窗体时，把

in5.txt文件的内容显示在文本框里，然后记录10个数日勺最大数、最小数和它们的和，并

把最大数、最小数和它们的和写到“out.ixt”文件中。如图所示:

根据题目规定，所编写程序如下:

Dima(10)AsInteger,maxAsInteger,minAsInteger,sumAsLong

PrivateSubCoiranandl_Click()

OpenApp.Path&"\out.txt"ForOutputAs#2

Print#2,max,min,sum

Close#2

EndSub________________________________________________________

PrivateSubForm_Load()

DimiAsInteger

OpenApp.Path&"\In.txt"ForInputAs#1

Fori=1To10

Input#1,a(i)

Textl.Text=Textl.Text&a(i)&Space(1)

Nexti

Close#1

Fori=1To10

max=a(l)：min=a(l)

Ifa(i)>maxThen

max=a(i)

EndIf

Ifa(i)<minThen

min=a(i)

EndIf

sum=sum+a(i)

Nexti

EndSub

VisualBasic程序设计基础知识要点（程序设计篇）

全国计算机等级考试中常用的程序编程部分：

一、求最大数、最小数、求和以及求平均数

二、求阶层

三、求最大公约数

四、求素数

五、求水仙花数（拆数法）

六、排序（选择排序、直接插入排序和冒泡排序）

七、字符操作

1、字符串取反（反向输出字符串）

2、判断字符串中的某个字符与否为字母

3、记录每类字符日勺个数

八、矩阵求后（二维数组）

九、文件读写操作

1、字符型读写操作

2、数值型读写操作

九大问题详细例子分析：

一、求最大数、最小数、求和以及求平均数

例题：随机产生10个两位整数，并存入数据a中，然后分别求10个元素中的最

大数、最小数、求10个元素之和以及它们的平均数。

PrivateSubCommandl_Click()

Dima(10)AsInteger,iAsInteger,MaxAsInteger,MinAsInteger

DimSumasInteger,AvgAsSingle

Sum=O

Fori=1To10

a(i)=Int(Rnd*90)+10'产生10—99之间日勺随机整数

Nexti

Max=a(l)：Min=a(1)假设最大数和最小数

Fori=1To10

IfMax<a(i)Then'求最大数

Max=a(i)

EndIf

IfMin>a(i)Then'求最小数

Min=a(i)Then

Endif

Sum=Sum+a(i)'求和

Nexti

Avg=Sum/10'求平均数

Print"最大数：”；Max；"最小数："；Min；“和："；Sum；“平均数："；Avg

EndSub

二、求阶层

例题:求10!.

PrivateSubCommand1_Click()

DimSumAsLong,iAsInteger

Sum=l

Fori=1To10

Sum=Sum*i

Nexti

Print“10!="；Sum

EndSub

三、求最大公约数

例题：求M和N两个数的最大公约数。

PrivateSubCommand1ClickO

DimMAsInteger,NAsInteger,RAsInteger

M=36：N=24

Do

R=MModN

M=N

N=R

LoopWhileROO'或LoopUntilR=0

Print“M和N的最大公约数为：”；M

EndSub

四、求素数

例题：求100—200之间日勺所有素数，并按每行5个元素格式输入所有素数。

PrivateSubCommand1Click()

I)iinnAsInteger,iAsIntegerjAsInteger

Forn=10()To200

Fori=2Ton-1'n-1可以是n/2,也可以是Sqr(n)形式

IfnModi=0ThenExitFor

Nexti

Ifi>n-lThen

j=j+l'记录素数个数

Printn；

IfjMod5=0ThenPrint'输出5个数换行

EndIf

Nextn

EndSub

五、求水仙花数(拆数法)

例题：求100—999之间的所有水仙花数，并将所有水仙花数在文本框中显示。

所谓水仙花数：即153=厂3+5-3+即3条件成立。

措施1：(数值型：使用运算符Mod和\)

PrivateSubCommandl_Click()

DimiAsInteger,aAsInteger,bAsInteger,cAsInteger

Fori=100To999

a=i\100'取百位数

b=i\10Mod10'取十位数

c=iMod10'取个位数

Ifi=a*3+b*3+c*3Then

Textl.Text=Textl.Text&i&Space(2)

EndIf

Nexti

EndSub