高中算法与算法的描述

-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册 ，应有尽有--------------

第一章 算法与算法的描述

1．算法的定义
算法：就是解决问题的思想方法，对解题过程的精确描述。计算机解决问题的 步骤为分析问题、设计算法、编写
程序、调试程序。算法是程序设计的“灵魂”，最核心过程。
2．法的特征
一个算法应该具有以下五个重要的特征：
1、有穷性： 一个算法必须保证执行有限步之后结束；
2、确定性： 算法的每一步骤必须有确切的定义；
3、输入：一个算法有0个或多个输入，以刻画运算对象的初始情况，所谓0个输入是指算法本身定 出了初始
条件；
4、输出：一个算法有一个或多个输出，以反映对输入数据加工后的结果。没有输出的算法是毫无意义的；
5、可行性：算法中执行的任何计算步都是可以被分解为基本的可执行的操作步，即每个计算步都可 以
在有限时间内完成；（也称之为有效性）
3．算法的描述方法
算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。
（1）自然语 言描述法：指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我们的习惯，且容易
理解 。
例1：求圆的周长和面积
算法如下：（自然语言描述法）
（1）输入半径r ；
(2) 计算周长c=2*π*r ；
(3) 计算面积 s=π*r*r ；
(4) 输出周长c，输出面积s ；
(5) 结束
例2：工人每天工作8小 时,每小时9元,超过8小时的每小时增加15%的加班费,计算工人每天的应发的日工资。
（1） 输入工作小时X
（2） 判断X值，分别计算
? X小于8，工资=X*9
? X大于8，工资=X*9＋(X-8)*9*0.15
（3） 输出工资
（4） 结束
练习：求三个数中的最大数。（用自然语言描述）
（2）流程图描述：也称程序框图，它是算 法的一种图形化表示方法。且描述算法形象、直观，更易理解。

常用的“流程图”所用的基本符号及功能
程序框










名称
开始结束框
输入输出框
处理框
判断框
流程线
连接点
功能
表示算法的开始或结束
表示算法中变量的输入或输出
表示算法中变量的赋值与计算
表示算法中的条件判断
表示算法中的流向
表示算法中的连接
--------------------------------- ------------------------精品 文档-------------------- -------------------------------------------------

-------------各类专业好文档，值得你下载，教育，管理，论文，制度， 方案手册，应有尽有--------------


例1：求圆的周长和面积


开始


输入r
c←2*π*r
s←π*r*r
输出c,s
结束

练习：求三个数中的最大数。（用流程图描述）

（3）伪代码描述法：是介于自然 语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。
流程图的基本图形及功能：
例1：求圆的周长和面积
input r
c=2*π*r
s=π*r*r
print c,s
练习：求三个数中的最大数。（用伪代码描述）
4．程序与程序语言
（1）程序的定义：程序实际上是一组及其操作的指令或语句的序列，是算法的一种描述
（2）程序的基本特征：程序一共有七个基本特征
1、程序中，每一个算法的步骤对应着程序 设计语言的一个或多个语句，每个语句对应一个或者多个操作。
每个操作都要求有执行对象，并且根据对 象状态变化形成动作的效果，同事可变的对象用变量来表示，变量的值
的变化则可通过操作赋值来完成。
2、除非特殊索命程序都是从第一条语句开始顺序开始向下执行。
3、程序总是施行与操作与某些对象，这些对象通常称为数据。
4、这些数据一般应该有属性和取值范围，即类型说明。
5、有时语句要求执行者作出判断， 即在某种条件成立情况下执行一条或一组语句，否则执行另一条或一组
语句。
6、一条或一组 语句可能需要执行一次以上，当一条或一组语句要重复时，必须指明重复的次数或重复的条
件。
7、程序本身是一个静态的实体，而执行语句的进程是动态的。
（3）程序的基本结构：顺序结构、选择结构、循环结构。
（4）程序设计语言的的产生和发展
1、机器语言：二进制代码指令
2、汇编语言 ：类似英语缩略词且带有助记性符号的语言，每条汇编指令和一条机器指令相对应，只是指令
码和操作数 都采用符号形式。而这种语言是不能被机器直接接受，必须用一种语言翻译器将程序中的每条语句翻
译成 机器语言才能执行。
3、高级语言：高级语言本身不是一种语言，只是一类语言的分类。用高级语言编 写的程序必须经过翻译器
将其翻译成机器语言，才能在计算机上执行。常见的高级语言：C语言、C++ 、pascal、java、C#、VB、Basic
（5）程序的编辑和翻译
1、程序的 编辑：以汇编语言或者高级语言所编写的程序被称为“源代码”，这些代码需要我们逐一的输入
到计算机 中。并把他们以文件的形式保存起来，这个过程称为程序的编辑
2、程序的翻译：前面的学习中使我们 知道，计算机只能识别和执行二进制的机器语言代码，而我们用级语
言或汇编语言编写的程序要想被计算 机执行，必须翻译成机器语言程序，最终才能被计算机执行。高级语言的翻
译程序一般则有两种类型：编 译程序和解释程序。
练习题:
1 下面对算法描述正确的一项是：（ ）
A、算法只能用自然语言来描述
B、算法只能用图形方式来表示
C、同一问题可以有不同的算法
D、同一问题的算法不同，结果必然不同
--- -------------------------------------------------- ----精品 文档---------------------------------------- -----------------------------

--------- ----各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有----------- ---

2．下面关于算法描述正确的是 （ ）
(A) 算法不可以用自然语言表示
(B) 算法只能用框图来表示
(C) 一个算法必须保证它的执行步骤是有限的
(D) 算法的框图表示法有0个或多个输入，但只能有一个输出

3、图形符号在算法流程图描述中表示( ).
A 处理或运算的功能 B 输入输出操作
C 用来判断条件是否满足需求 D 算法的开始或结束

4、以下哪个是算法的描述方法?( )
A 流程图描述法 B 枚举法 C 顺序法 D 列表法
5、下面的语句是一个计算机程序的操作说明：
（1）初始值为x=1，y=1，z=0，n=0；
（2）n=n+1（将当前n+1的值赋予新的n）；
（3）x=x+2（将当前x+2的值赋予新的x）；
（4）y=2y（将当前2y的值赋予新的y）；
（5）z=z+xy（将当前z+xy的值赋予新的z）；
（6）如果z＞7，则执行语句（7），否则返回语句（2）继续进行；
（7）打印n，z；
（8）程序终止．
由语句（7）打印出的数值为 ______,_______.
6、以下属于计算机程序语言的有（ ）
A、汇编语言 B、高级语言 C、机器语言 D、低级语言
7、执行程序时，程序中的每一条语句至少要运行一次（ ）
8、最早的程序设计语言是汇编语言（ ）
9、程序设计语言是指人们编制程序所使用的计算机语言，VB是低级语言（ ）
10、高级语言翻译程序有两种类型：解释程序和编译程序（ ）


第二章 程序设计基础

第一节 常量、变量的定义
VB程序
的一般包括如下部分：
（1）
（2）
（3）
（4）








数据类型说明部分
数据的输入部分
数据的处理部分
数据的输出部分
例:求圆的周长和面积
Private Sub Command1_Click()
Dim r As Single 定义r为单精度型
Dim c As Single '定义c为单精度型
Dim s As Single 定义s为单精度型
r = inputbox(“输入半径r”) 输入半径r
c = 2 * 3.14159 * r 计算周长
s = 3.14159 * r * r 计算面积
print c 输出周长
----------------------- ----------------------------------精品 文档---------- -------------------------------------------------- ---------

-------------各类专业好文档，值得你下载，教育 ，管理，论文，制度，方案手册，应有尽有--------------

print s 输出面积
End Sub

一、常量：在程序进行过程中不变的量，在VB中一般分数值常量与字符常量两种。
数值常量：就是数学中说的常数，分整型常量和实型常量两种
整型常量：即整数，指不带小数点的数值如1、0、-10、+35等都是合法的整数
实型常量：即实数，指带小数点的数值。
实型常量又分为定点数和浮点数两种。
例：定点数：3.14159和-6.8，1.99
浮点数：2E6、1E5
3
例：1.2345×10可表示为1.2345E3，字母E表示底数10
浮点数就是数学上的科学计数法。
字符串常量：被一对双引号括起来的若干个合法的字符称为 字符串常量。例如：”China”、”Visual
Basic”、”18”、”3.1415”等，双引号中字符，不包括双引号本身。
符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。
二、变量：在程序执行过程中，其值可以改变的量称为变量
变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头。
2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空格等字符。
3、最长不超过255个字符
4、不能以VB保留字作变量名，如语句定义符、函数名等。
5、VB不区分变量名中字母大小写。如HELLO和Hello是同一个变量。
表2-1常用数据类型
整型 Integer 从-32768到32767
长整型

单精度实型
双精度实型
日期型
字符型
布尔型
Long

Single
Double
Date(Time)
String
Boolean
从-2147483648到2147483647
负数-3.402823E+38到-1.401298E-45
正数1.40129E-45到3.402823E38 但它只有
7位有效数字
308
绝对值小于10的数，它有15位有效数字
如：#2008-01-31# #01312008#
如：“中国”，“zhongguo”
True或False

三、常量和变量的定义
符号常量的声明：Const 常量名 [As 常量类型] = 常量值
如：Const pi As Single = 3.14159 常量名为pi
变量的声明：
Dim <变量名 >As <变量类型>
如：Dim a As Integer 定义一个 整型变量，变量名为a
变量的赋值:变量 = 表达式
例：Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer
Dim str As String
a = 54
b = 114
c = a + b
str =
Print
Print str
End Sub
四、运算符
1、 算术运算：
- -------------------------------------------------- ------精品 文档-------------------------------------- -------------------------------

------- ------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------- -----

+
加
-
减
*
乘
^
乘方

除

整除
mod
取余
^ 指数 例：2^2 = 4
（浮点）除 例：5 2 = 2.5
整除 例： 5 2 = 2
Mod 求余数 例：5 Mod 2 = 1
2、关系运算
=
等于
>
大于
<
小于
>=
大于等于
<=
小于等于
<>
不等于
注意：关系表达式的运算结果为布尔值True 或 False
例：3 > 2 结果为 True(真或是)
3、逻辑运算
Not（取反）And（与） Or（或）
运算结果为布尔型（Boolean）True 或 False
逻辑运算符的优先级为：No > And > Or
4、日期运算符与日期表达式
日期表达式是用日期运算符“+”或“-”将算式表达式、日期 型常量、日期型变量、日期函数等连接起来的式子，
如表达式“#20030901# +30”的运算结果是“2003-10-1”；表达式“#20031020# - #20031010#”的运算
结果为整数10
5、字符运算
字符串连接符为“+”和“&”
“123” + “45” = “12345”
“123” & “45” = “12345”
123 + “45” = 168
“123” + 45 = 168
运算符的执行顺序：在VB中，当一个表达式中同时出现 多种运算符时，运算次序由运算符的优先级决定，优先
级高的运算符先运算，优先级相同的从左向右进行 运算。不同性质的运算符优先级如下。
算术运算符 > 字符串运算符 > 关系运算符 > 逻辑运算符
6、常用函数
函数名 说明 示例 结果
Sin（X）
Cos (X)
Tan（X）
Atn（X）
Abs（X）
Exp（X）
Log（X）
Sqr（X）
Sgn（X）
Int（X）
Fix（X）
Cint（X）
CLng（X）
X弧度的正弦
X弧度的余弦
X弧度的正切
X用弧度表示的反正切值
X的绝对值
e的指定次幂，即e
一个数值X的自然对数
X的平方根
符号函数：X>0,得到1，
X<0,得到-1，X=0得到0
不大于给定数X的最大整数
X的整数部分
类型为：Integer -322768～32767
小数部分四舍五入
类型为：Long -2147483648～2147483647
小数部分四舍五入
x
Sin（0）
Cos (0)
Tan（0）
Atn（0）
Abs（-3.5）
Exp（3）
Log（10）
Sqr（9）
Sgn（-3.5）
Int（-1.6）
Fix（-1.6）


Mid(“ABCDEFG”，3，2)
0
1
0
0
3.5
20.086
2.3
3
-1
-2
-1


“CD” Mid（C,N1,N2） 从C中N1位开始取出长度为N2的子串
-------------- -------------------------------------------精品 文档- -------------------------------------------------- ------------------

-------------各类专业好文档 ，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------

Right(C,N)
Left(C,N)
Len(C,N)
Space(N)
返回字符串右边N个字符
返回字符串左边N个字符
测量字符串的长度
产生N个空格组成的字符串
Right(“ABCDEFG”,3)
Left(“ABCDEFG”,3)
Len(“VB学习的开始”)
“ABC”&“Space(N) ”&
“EFG”
“ABC”
7
“ABC 123”
“113”
Date() 返回当前系统日期（yy-mm-dd） Date()或Date 04-12-18
Time() 返回系统时间 Time()或Time 10:36:08

练习题：
1、下列变量名写法错误的是( )
A、abc_123 B、123abc C、abc123 D、abc
2、下列语句中定义了一个实型变量的是 ( )
A、Dim end as Integer B、Dim sum As Single
C、Dim Name As String D、其它三项都不对
3、在VB中，以下关于符号常量的声明，声明正确的是:( )
A、Dim TAG as String B、Const TAG as String
C、Const TAG as String =、Const TAG as String
4、下面( )不是字符串常量
A、、#False# C、、你好
5、分析 s=113 + 11 Mod 3，s的值是( ).
A、5 B、6 C、4 D、3
6、下面表达式的值是false的有( ).
A、、Int(4.99) <> len(、str(2000) < 、3 > 2
7、设a=2, b=3,在VB中，表达式a>b Or b>3值是:( )
A、False B、True C、-1 D、1
8、Visual Basic中，下列( )函数是求绝对值的。
A、ABS（X） B、SQR(X） C、INT（X） D、GN（X)
9、表达式Abs(-3.6)*sqr(100)的值是( )。
A、-36 B、360 C、36 D、-360
10、下列( )数据类型不是数值型。
A、Date B、Single C、Double D、Integer
11、下列函数中，返回值是字符串的是 ( ).
A、Mid B、Instr C、Val D、Len
1
2
12、代数表达式
2
gt
表达式后错误的是( )
A、g*t*t2 B、12*g*t^2 C、g*t^22 D、gt^22
2a?b
13、数学式子
4ab
在VB中的正确写法是：（ ）
A、 (2*a+b)4*a B 、(2*a+b)(4ab) C 、(2a+b)(4ab) D 、
(2*a+b)(4*a*b)

14、判断x是否在区间[a, b]上，在VB中以哪个逻辑表达式是正确的?( )
A 、
a B、 ax and x<=b
15、向n变量存入1个2位整数，要使此2位数十位和个位上的值分别存入x, y变量。正确的算法是( )
选项:
x、①x=Left(n, 1) ②y=n-x*10 ③Print x:Print y
B、①x=Left(n, 1) ②y=Right(n, 1) ③Print x:Print y
C、①x=n10 ②y=n-x*10 ③Print x:Print y
D、①x=Int(n10) ②y=n-x*10 ③Print x:Print y
16、向x变量中输入任意一个小写字母，再将x变量中的小写字母转成大写字母。正确的算法是( ).
选项:
A、①输人字母到x ②a=Asc(x)-32 ③x=chr(x) ④Print x
------------------------------------- --------------------精品 文档------------------------ ---------------------------------------------
。

-------------各类专业好文档，值得你下载，教育，管理， 论文，制度，方案手册，应有尽有--------------

B、①输人字母到x ②a=Asc(x)+32 ③x=chr(x) ④Print x
C、①输人字母到x ②a=Val(x)一32 ③x=Chr(x) ④Print x
D、①输人字母到x ②a=Val(x)+32 ③x=Chr(x) ④Print x


第二节 程序的顺序结构

一、 赋值语句
1.格式：变量名 = 表达式
功能：将右边的表达式的值赋给左边的变量
（1）“变量”可以是简单变量，也可以是字符变量；
（2）“=”是赋值符号，它的含义将表达式的值赋给左边的变量。
（3）表达式代表一个数值或一个字符串。
例1：A=123；A=B；B=2*3；A=A+10；C$$ =“CHINA”
2.赋值语句的功能：计算功能和赋值功能
3.注意事项
（1）赋值语句不是代数等式，赋值号与等号形同而意不同；
（2）赋值语句类型必须匹配；
（3）把字符串赋给串变量时，该字符串必须用双引号括起来；
（4）变量单元每次只能存一个数据，但可以多次赋值。
如：C$$=“COMPUTER”
注意：“$$”是区分字符串变量的的标志，即要在变量名后加“$$ ”构成字符串变量，同时，字符串用双引号括起
来，然后才赋给字符串变量。
二、输入数据的函数
InputBox（）是提供从键盘输入数据的函数。利用它可产生一个 对话框，提示用户输入数据并单击命令按钮。该
函数返回值是字符串类型（string）。
InputBox（）的语法格式为：InputBox（提示信息，标题，默认值，位置）
提示信息： 指对输入数据的提示，显示在对话框中，不能省略
标题 ：指运行此函数后弹出的对话框的标题。
默认值：指默认的输入数据值
位置：指运行此函数后弹出的对话框的左上角在屏幕上的位置
注意：提示信息和标题是用引号引起来的字符串
三、输出数据的方法
1、基本格式：
Print 输出内容
注意：1、输出内容可以是数、变量、表达式，也可以是用引号括起来的字符串；
2、如果输 出内容是数，变量，表达式，则输出的是数，变量，表达式，如果是用引号引起来的字符串，
则原样输出 ；
3、多个输出内容，可以用逗号或分号分隔；如果用分号，则后面一个输出紧跟前一个输出；如果是 逗号，
则分区格式输出；
4、如果输出内容后面没有符号，则表示下一个Print换行输出 ，如果print中没有输出内容，则表示输
出一个空行。
程序设计的顺序结构：代码按照由 上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种
结构称为顺序结构。
例1：交换两个变量中的数据。
Private Sub cmdSwap_Click()
Dim x As Single, y As Single
Dim m As Single
x = inputbox(“请输入X的值”)
y = inputbox(“请输入Y的值”)
m = x
--------------- ------------------------------------------精品 文档-- -------------------------------------------------- -----------------

-------------各类专业好文档， 值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------

x = y
y = m 交换数据
print x，y
End Sub
例2：从键盘上输入一个三位数，然后将它反向输出，如：输入456，输出654。
(1) 分析问题
设X为输入的三位整数,Y为X的方向输出。因为 X的百位、十位、个位分别为：
X1=X100
X2=(X-X1*100)10
X3=X-X1*100-X2*10
所以Y=X3*100+X2*10+X1
(2)设计算法
①输入X的值
②计算：X1=X100
③计算：X2=(X-X1*100)10
④计算：X3=X-X1*100-X2*10
⑤计算：Y=X3*100+X2*10+X1
⑥输出Y的值
（3）编写程序
Private sub command_click()
Dim x as integer, x1 as integer, x2 as integer, x3 as integer, y as integer
X=inputbox(“x=”,”输入”)
X1=X100
X2=(X-X1*100)10
X3=X-X1*100-X2*10
Y=X3*100+X2*10+X1
Print “y=”;y
End sub
（4）调试程序
练习题：
1、以下是一段VB程序：
a = 1
b = a + 1
c = a + b
它的基本结构属于（ ）
A、顺序结构 B、选择结构 C、循环结构 D、树型结构
2、下列VB程序运行后，变量x的值为( ).
x=2
Print x+l
Print x+2
3、执行以下程序，在弹出的第1个输入 框输入“10”，第2个输入框输入“15”,则输出的结果为（ ）。
Dim a As Integer, b As Integer
a = InputBox(输入
b = InputBox(输入
Print a;
A. b+a=25 B. 10+15=25 C. a+b=25 D. 15+10=25
4、已知A，B，C，D是整型变量，且都已有互不相同的值，执行语句“B=8：A=C：D=A: D=B”后，其值相等的
变量是（ ）。
A. A，D B. A，C C. C，B D. B，A
5、要交换变量A和B之值，应使用的语句组是（ ）。
A. A=B：B=C：C=A B. C=A：A=B：B=C
C. A=B：B=A D. C=A：B=A：B=C
-------- -------------------------------------------------精 品 文档--------------------------------------------- ------------------------

-------------各 类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------

6、有如下Visual Basic程序段：
m =
n =
t =
t = m + n + t
该程序段运行后，变量t的值为。
7、试编写一个程序，实现输入一个四位数的数，然后将它倒序输出。


第三节 程序设计的分支结构

一、行If语句
行If是指在一行中写完的If语句。其一般格式为：
格式一：If条件Then语句 功能：执行这种形式的If语句时，首先对条件进行判断。若条件成立，则执行Then后面的语句；若条件 不成立，
则执行If语句后继程序行的语句
格式二：If条件 Then 语句 1 Else 语句 2
功能：执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句2。

例1：输入三个不相同的数，求出其中最小数。
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
Dim Min As Single
a = InputBox(输入a输入框
b = InputBox(输入b输入框
c = InputBox(输入c输入框
If a < b Then Min = a Else Min = b
If c < Min Then Min = c
Print 最小数＝
End Sub

二、块If语句
行If-then语句只能根据条件的真假是否执行一条语句，当 Then部分和Else部分包含的内容较多时，则可选
用“块If语句”结构。
格式一：If 条件 Then
语句块
End If
例2：当从输入一个数时，当该数大于或等于60时显示及格，该数小于60时显示不及格。
Private Sub Command1_Click()
Dim a As Single
a = InputBox(输入a
If a >= 60 Then
Print 及格
End If
If a < 60 Then
Print 不及格
End If
End Sub
格式二：If 条件 Then
语句块1
Else
语句块2
----------------------------------------- ----------------精品 文档---------------------------- -----------------------------------------

< br>-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽 有--------------

End If
2
例3：编写一程序，求一个一元二次方程ax+bx+c=0的两个根。
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox(输入a输入框
b = InputBox(输入b输入框
c = InputBox(输入c输入框
2
d=b-4*a*c
IF d>=0 then
x1=(-b+sqr(d))2
else
x1=(-b-sqr(d))2
end if
print “x1=”;x1,”x2=”;x2
End Sub

练习题:
1、以下是一段Visual Basic程序:
If I=1 Then
X=X+1
Else
X=X*2
End If
它的基本结构属于( ).
A、选择结构 B、循环结构C、顺序结构D、树型结构
2、下列程序段运行后，变量Value的值是（ ）
x = 20
If x >= 10 Then
Value = 5 * x
Else
Value = 4 * x
End If
A、100 B、80 C、90 D、70
3、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好
的算法是( )
选项:
A、①输人的数存人n变量②f=(n2=Int(n2))③如果f中的值为True就显示n中值
B、①输人的数存人n变量②f=(n2=Int(n2))③如果f中的值为False就显示n中值
C、①输人的数存人n变量②如果n2=Int(n2)成立，就显示n中值
D、①输人的数存人n变量②如果n2=Int(n2)不成立，就显示n中值
4、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( )
Private Sub commandl_Click()
Dim x As Integer
x=Val(Text1. Text)
If ____ = 0 Then
Print “这个数是能被5整除的偶数”
Else
Print “这个数不是能被5整除的偶数”
End If
选项：
A、(x Mod 5) = 0 And (x Mod 2 ) = 0
------- -------------------------------------------------- 精品 文档-------------------------------------------- -------------------------

------------- 各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------

B、x Mod 10 = 0
C、x Mod 5 = 0
D、x Mod 2 = 0
5、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好
的算法是( )。
选项:
A、①输入的数存人n变量②f=(n2=Int(n2))③如果f中的值为True就显示n中值
B、①输入的数存人n变量②f=(n2=Int(n2))③如果f中的值为False就显示n中值
C、①输入的数存人n变量②如果n2=Int(n2)成立，就显示n中值
D、①输入的数存人n变量②如果n2=Int(n2)不成立，就显示n中值
6、下列程序段运行后,m的值为( )
A=2: b=1: c=5
If A < b Then m = A Else m = b
If c < m Then m = c
选项：
A、1
B、2
C、5
D、提示错误，无答案

第四节 程序设计的循环结构

一、For-Next循环
For循环变量一般形式是：
For循环变量=初值To终值Step循环变量增量
循环体
Nxt循环变量
例1：求s＝1+2+3+4.....+100
Private Sub Form_Click()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 100 step 1
sum = sum + i ' 循环体
Next i
Print
End Sub
循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没
有设置Step，则增量的缺省值为1
1、 循环变量取初值；
2、 循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；
3、 执行一次循环体
4、 循环变量增加一个增量
5、 重复步骤2~4。
以上可以看出，For-Next循环变量是一种当型循环。说明
（a） For语句与Ne xt语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均
为I。
（b） 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变 量
的值小于终值。


----------------------- ----------------------------------精品 文档---------- -------------------------------------------------- ---------

-------------各类专业好文档，值得你下载，教育 ，管理，论文，制度，方案手册，应有尽有--------------



入口



P




A



出口


例2：编写程序，使能打印下面所示的图案。
@
@@
@@@
@@@@
@@@@@
@@@@@@
程序：
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 6
For j = 1 To i
Print “@”;
Next j
Print
Next i
End Sub
一个FOR循环里包含了另一个FOR，我们称它为嵌套循环。

练习题:
1、阅读如下程序，跟踪程序的执行过程，观察变量A的值的变化，写出循环结束时变量A的值、循环次数和程
序的运行结果。
① privaate sub command1_click()
for A=1 TO 10
print A
Next A
End Sub
② privaate sub command1_click()
For A=1 To 100
S=S+A
Next A
Pint “S=”;S
End Sub
③ privaate sub command1_click()
For A=100 To 1 step -1
S=S+A
Next A
Print “s=”;s
-------------------------------- -------------------------精品 文档------------------- --------------------------------------------------

-------------各类专业好文档，值得你下载，教育，管理，论文，制度， 方案手册，应有尽有--------------

End Sub
④ privaate sub command1_click()
For A=1 To 10
A=A+1
Print A
Next A
End Sub
2、阅读下面程序， 输出结果是( )
Private Sub Form_Click()
Dim i As Integer:Dim s As Integer
s = 0
For i = 1 To 5
s = s + i
Next i
Print s,i
End Sub
选项:
A、15 6 B、 s=15 i=6 C、6 5 D、s=6 i=5
3、试编写一个程序，求出100以内能被3整除的所有正整数。
4、试编写一个程序，求出1*2*3……*100积。


二、Do－Loop循环
For-Next循环的次数是确定的，但是有的问题只知道循环结 束的条件，重复执行的次数事先并不知道，这是需
要Do-Loop循环
格式一： Do While 条件
循环体
Loop
例3：求最大公约数
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim r As Integer
a = InputBox(输入a
b = InputBox(输入b
r = a Mod b
Do While r <> 0
a = b
b = r
r = a Mod b
Loop
Print b
End Sub
当VB执行Do While- Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循
环。
格式二： Do
循环体
Loop Until条件
这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件 P是否成立。如果不成立，
就重复执行循环体A，直到条件P成立退出循环体。
------ -------------------------------------------------- -精品 文档------------------------------------------- --------------------------

------------ -各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------

A
P
N

例4：如果我国人口每年以平均1.5% 的速度增长，问多少年后我国人口达到或超过15亿？设现在人口为12.3
亿。
Private Sub Form_Click()
Dim p As Single
Dim r As Single
Dim n As Integer
p = 1230000000
r = 0.015
n = 0
Do
p = p * (1 + r)
n = n + 1
Loop Until p >= 1500000000
Print n; 年后人口=
End Sub


练习题:
1、在VB中，以下程序段:
x=0
Do While x<50
x=(x+2)*(x+3)
Loop
执行后，x的值为:( ).
A、168 B、50 C、72 D、0
4、要求计算机打印出100至200之问所有偶数的平方根值。正确的算法是( )。
选项:
A、①i=100 ②Do While i<200:Print i，Sqr(i):Loop
B、①i=100 ②Do While i<200:Print i，Sqr(i):i=i+1:Loop
C、For i=100 To 200 Step 2:Print i，Sqr(i):Next i
D、For i=100 To 200:Print i，Sqr(i):Next i
5、下列程序段中，循环体执行的次数是( )
y = 2
Do While y <= 8
y = y+y
Loop
选项:
----------------------------- ----------------------------精品 文档---------------- -------------------------------------------------- ---

-------------各类专业好文档，值得你下载，教育，管理，论文 ，制度，方案手册，应有尽有--------------

A、2 B、3 C、4 D、5
6、阅读下面程序，当单击窗体之后，m的值是( ).
Private Sub Form_Click()
Dim m As Integer:Dim i As Integer
m = 0
For i = 1 To 3
m = m + 2
Next i
Print m
End Sub
选项：
A、0 B、4 C、6 D、8
7、在VB中，假定有以下程序段:
For i=1 To 3 Step 2
Print
Next i
则语句Print 的执行次数是：( )。
A、1 B、2 C、3 D、4
8、下列程序段中，循环体执行的次数是( )
x=0
For y=1 To 10 step -1
x=x+1
Next y
A、1 B、0 C、10 D、4
9、在VB中，假定有以下程序段:
For i=3 To 1
Print
Next i
则语句Print “VB”的执行次数是:( )
A、出错 B、2 C、1 D、0
10、下列程序段中，循环体执行的次数是（ ）
x=0
For y = 1 To 10 step -1
x = x+1
Next y
A、1 B、10 C、0 D、4





第三章 算法与程序实现

1、解析法：是指通过分析问题中各要素之间的关系，用最简练的语言或形式化得符号来表达他们的关系，得出
解决问题所需的表达式，然后设计程序求解问题的方法。
2、穷举法:是例举一切与命题相关 的情况，然后根据问题设定的条件，逐个加以检查，找到满足条件的解。
3、数组：数组是在程序设计中，为了处理方便， 把具有相同类型的若干变量按有序的形式组织起来的一种形式。
4、排序与查找数据
例1： 一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个
桃子可以吃了，编程计算猴子最初共有多少个桃子。
Private Sub Form_Click()
--------------------------------- ------------------------精品 文档-------------------- -------------------------------------------------

-------------各类专业好文档，值得你下载，教育，管理，论文，制度， 方案手册，应有尽有--------------

Dim i As Integer
Dim s As Integer
s = 1
For i =1 To 9
s = (s + 1)*2
Next
Print “s=”;s
End Sub
例2:用计算机随机产生10个（1--100）的随机数，找出10个数中最小和最大的数，编程实现
Private sub button1_click()
Dim num(1 to 10) as integer
Dim I as integer
For i=1 to 10
Num(i)=int(rand(100))


----------------------------------------- ----------------精品文档------------------------------ ---------------------------------------