高中算法与算法的描述

第一章算法与算法的描述

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：求圆的周长和面积

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

（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

例：1.2345×103 可表示为1.2345E3，字母E表示底数10

浮点数就是数学上的科学计数法。

字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如：”China”、”Visual Basic”、”18”、”3.1415”等，双引号中字符，不包括双引号本身。

符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。

二、变量：在程序执行过程中，其值可以改变的量称为变量

变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头。

2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空格等字符。

3、最长不超过255个字符

4、不能以VB保留字作变量名，如语句定义符、函数名等。

5、VB不区分变量名中字母大小写。如HELLO和Hello是同一个变量。

三、常量和变量的定义

符号常量的声明：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 = "Hello World"

Print "a="; a, "b="; b, "c="; c

Print str

End Sub

四、运算符

1、算术运算：

/ （浮点）除例：5 / 2 = 2.5

\ 整除例： 5 \ 2 = 2

Mod 求余数例：5 Mod 2 = 1

例：3 > 2 结果为 True(真或是)

3、逻辑运算

Not（取反）And（与） Or（或）

运算结果为布尔型（Boolean）True 或 False

逻辑运算符的优先级为：No > And > Or

4、日期运算符与日期表达式

日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01# +30”的运算结果是“2003-10-1”；表达式“#2003/10/20# - #2003/10/10#”的运算结果为整数10

5、字符运算

字符串连接符为“+”和“&”

“123” + “45” = “12345”

“123” & “45” = “12345”

123 + “45” = 168

“123” + 45 = 168

运算符的执行顺序：在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。

算术运算符 > 字符串运算符 > 关系运算符 > 逻辑运算符

练习题：

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 "Visual" + "Basic"

C 、Const TAG as String ="Visual Basic"

D 、Const TAG as String 4、下面( )不是字符串常量

A 、"True"

B 、#False#

C 、" "

D 、"你好" 5、分析 s=11\3 + 11 Mod 3，s 的值是( ). A 、5 B 、6 C 、4 D 、3

6、下面表达式的值是false 的有( ).

A 、"969" < "n97"

B 、Int(4.99) <> len("basic")

C 、str(2000) < "1997"

D 、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

12、代数表达式221gt 表达式后错误的是( )

A 、g*t*t/2

B 、1/2*g*t^2

C 、g*t^2/2

D 、gt^2/2

13、数学式子ab b

a 42 在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 、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=n/10 ②y=n-x*10 ③Print x:Print y

D 、①x=Int(n/10) ②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=X\100

X2=(X-X1*100)\10

X3=X-X1*100-X2*10

所以Y=X3*100+X2*10+X1

(2)设计算法

①输入X的值

②计算：X1=X\100

③计算：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=X\100

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("输入","a=")

b = InputBox("输入","b=")

Print a; "+";b; "=",a+b

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 = "VB"

n = "is"

t = "easy"

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 "最小数＝"; Min

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

End If

例3：编写一程序，求一个一元二次方程ax2+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", "输入框")

d=b2-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=(n/2=Int(n/2))③如果f中的值为True就显示n中值

B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值

C、①输人的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值

D、①输人的数存人n变量②如果n/2=Int(n/2)不成立，就显示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=(n/2=Int(n/2))③如果f中的值为True就显示n中值

B、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值

C、①输入的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值

D、①输入的数存人n变量②如果n/2=Int(n/2)不成立，就显示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 "sum="; sum

End Sub

循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为1

1、循环变量取初值；

2、循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；

3、执行一次循环体

4、循环变量增加一个增量

5、重复步骤2~4。

以上可以看出，For-Next循环变量是一种当型循环。说明

（a）For语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均为I。

（b）当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。

例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成立退出循环体。

例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; "年后", "人口="; p

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 "VB"

Next i

则语句Print "VB"的执行次数是：( )。

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 "VB"

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))