高中信息技术算法与程序设计VB选修.doc

《高中信息技术算法与程序设计VB选修.doc》由会员分享，可在线阅读，更多相关《高中信息技术算法与程序设计VB选修.doc（15页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第一章 算法与算法描述1算法定义算法：就是解决问题思想方法，对解题过程准确描述。计算机解决问题步骤为分析问题、设计算法、编写程序、调试程序。算法是程序设计“灵魂，最核心过程。2法特征一个算法应该具有以下五个重要特征： 1、有穷性： 一个算法必须保证执行有限步之后完毕； 2、确定性： 算法每一步骤必须有确切定义； 3、输入：一个算法有0个或多个输入，以刻画运算对象初始情况，所谓0个输入是指算法本身定出了初始条件； 4、输出：一个算法有一个或多个输出，以反映对输入数据加工后结果。没有输出算法是毫无意义； 5、可行性：算法中执行任何计算步都是可以被分解为根本可执行操作步，即每个计算步都可以在有限时间

2、内完成；也称之为有效性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值，分别计算l X小于8，工资=X*9l X大于8，工资=X*9（3） 输出工资（4） 完毕练习

3、：求三个数中最大数。用自然语言描述2流程图描述：也称程序框图，它是算法一种图形化表示方法。且描述算法形象、直观，更易理解。常用“流程图所用根本符号及功能 程序框名称功能开场/完毕框表示算法开场或完毕输入/输出框表示算法中变量输入或输出处理框表示算法中变量赋值与计算判断框表示算法中条件判断流程线表示算法中流向连接点表示算法中连接例1：求圆周长和面积c2*rs*r*r输出c,s输入r完毕开场练习：求三个数中最大数。用流程图描述3伪代码描述法：是介于自然语言和计算机程序语言之间一种算法描述。是专业软件开发人员常用方法。流程图根本图形及功能：例1：求圆周长和面积input rc=2*rs=*r*rpr

4、int c,s练习：求三个数中最大数。用伪代码描述4程序与程序语言1程序定义：程序实际上是一组及其操作指令或语句序列，是算法一种描述2程序根本特征：程序一共有七个根本特征1、程序中，每一个算法步骤对应着程序设计语言一个或多个语句，每个语句对应一个或者多个操作。每个操作都要求有执行对象，并且根据对象状态变化形成动作效果，同事可变对象用变量来表示，变量值变化那么可通过操作赋值来完成。2、除非特殊索命程序都是从第一条语句开场顺序开场向下执行。3、程序总是施行与操作与某些对象，这些对象通常称为数据。4、这些数据一般应该有属性和取值范围，即类型说明。5、有时语句要求执行者作出判断，即在某种条件成立情况下

5、执行一条或一组语句，否那么执行另一条或一组语句。6、一条或一组语句可能需要执行一次以上，当一条或一组语句要重复时，必须指明重复次数或重复条件。7、程序本身是一个静态实体，而执行语句进程是动态。3程序根本构造：顺序构造、选择构造、循环构造。4程序设计语言产生和开展1、机器语言：二进制代码指令2、汇编语言：类似英语缩略词且带有助记性符号语言，每条汇编指令和一条机器指令相对应，只是指令码和操作数都采用符号形式。而这种语言是不能被机器直接承受，必须用一种语言翻译器将程序中每条语句翻译成机器语言才能执行。3、高级语言：高级语言本身不是一种语言，只是一类语言分类。用高级语言编写程序必须经过翻译器将其翻译成

6、机器语言，才能在计算机上执行。常见高级语言：C语言、C+、pascal、java、C#、VB、Basic5程序编辑和翻译1、程序编辑：以汇编语言或者高级语言所编写程序被称为“源代码，这些代码需要我们逐一输入到计算机中。并把他们以文件形式保存起来，这个过程称为程序编辑2、程序翻译：前面学习中使我们知道，计算机只能识别和执行二进制机器语言代码，而我们用级语言或汇编语言编写程序要想被计算机执行，必须翻译成机器语言程序，最终才能被计算机执行。高级语言翻译程序一般那么有两种类型：编译程序和解释程序。练习题:1 下面对算法描述正确一项为哪一项：A、算法只能用自然语言来描述B、算法只能用图形方式来表示 C、

7、同一问题可以有不同算法 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；2n=n+1将当前n+1值赋予新n；3x=x+2将当前x+2值赋予新

8、x；4y=2y将当前2y值赋予新y；5z=z+xy将当前z+xy值赋予新z；6如果z7，那么执行语句7，否那么返回语句2继续进展；7打印n，z；8程序终止由语句7打印出数值为 _,_.6、以下属于计算机程序语言有 A、汇编语言 B、高级语言 C、机器语言 D、低级语言7、执行程序时，程序中每一条语句至少要运行一次 8、最早程序设计语言是汇编语言 9、程序设计语言是指人们编制程序所使用计算机语言，VB是低级语言 10、高级语言翻译程序有两种类型：解释程序和编译程序 第二章 程序设计根底第一节 常量、变量定义VB程序一般包括如下局部： 1 数据类型说明局部2 数据输入局部3 数据处理局部4 数据输

9、出局部例:求圆周长和面积Private Sub Command1_Click()Dim r As Single /定义r为单精度型Dim c As Single /定义c为单精度型Dim s As Single /定义s为单精度型r = inputbox(“输入半径r) /输入半径rc = 2 * 3.14159 * r /计算周长s = 3.14159 * r * r /计算面积print c /输出周长print s /输出面积End Sub 一、常量：在程序进展过程中不变量，在VB中一般分数值常量与字符常量两种。数值常量：就是数学中说常数，分整型常量和实型常量两种整型常量：即整数，指不带

10、小数点数值如1、0、-10、+35等都是合法整数实型常量：即实数，指带小数点数值。实型常量又分为定点数和浮点数两种。浮点数：2E6、1E5103 可表示为1.2345E3，字母E表示底数10浮点数就是数学上科学计数法。字符串常量：被一对双引号括起来假设干个合法字符称为字符串常量。例如：China、Visual Basic、18”、”等，双引号中字符，不包括双引号本身。符号常量：如果屡次用到同一个常量，那么可用一个有意义名字表示这个常量。二、变量：在程序执行过程中，其值可以改变量称为变量变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头。2、只能由字母、汉字、数字学或下划线组成，不能

11、含有小数点、空格等字符。3、最长不超过255个字符 4、不能以VB保存字作变量名，如语句定义符、函数名等。5、VB不区分变量名中字母大小写。如HELLO和Hello是同一个变量。表2-1常用数据类型整型Integer从-32768到32767长整型Long从-2147483648到2147483647单精度实型Single正数1.40129E-45到3.402823E38 但它只有7位有效数字双精度实型Double绝对值小于10308数，它有15位有效数字日期型Date(Time)如：#2008-01-31# #01/31/2008#字符型String如：“中国，“zhongguo布尔型Boo

12、leanTrue或False三、常量和变量定义符号常量声明：Const 常量名 As 常量类型 = 常量值如：Const pi As 常量名为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 strE

13、nd Sub四、运算符1、 算术运算：+-*/mod加减乘乘方除整除取余 指数 例：22 = 4/ 浮点除 例： 整除 例： 5 2 = 2Mod 求余数 例：5 Mod 2 = 12、关系运算=等于大于小于大于等于小于等于不等于注意：关系表达式运算结果为布尔值True 或 False例：3 2 结果为 True(真或是)3、逻辑运算Not取反And与 Or或运算结果为布尔型BooleanTrue 或 False逻辑运算符优先级为：No And Or4、日期运算符与日期表达式日期表达式是用日期运算符“+或“-将算式表达式、日期型常量、日期型变量、日期函数等连接起来式子，如表达式“#2003/0

14、9/01# +30”运算结果是“2003-10-1；表达式“#2003/10/20# - #2003/10/10#运算结果为整数105、字符运算字符串连接符为“+和“&“123” + “45” = “12345”“123” & “45” = “12345”123 + “45” = 168“123” + 45 = 168运算符执行顺序：在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符优先级决定，优先级高运算符先运算，优先级一样从左向右进展运算。不同性质运算符优先级如下。算术运算符 字符串运算符 关系运算符 逻辑运算符6、常用函数函数名说明例如结果SinXX弧度正弦Sin00 Cos

15、 (X)X弧度余弦 Cos (0)1TanXX弧度正切Tan00AtnXX用弧度表示反正切值Atn00AbsXX绝对值 Abs-3.5ExpXe指定次幂，即exExp3LogX一个数值X自然对数Log10SqrXX平方根Sqr93SgnX符号函数：X0,得到1，X0,得到-1，X=0得到0 Sgn-3.5-1IntX不大于给定数X最大整数Int-1.6-2FixXX整数局部 Fix-1.6-1CintX类型为：Integer -32276832767小数局部四舍五入CLngX类型为：Long -21474836482147483647 小数局部四舍五入MidC,N1,N2从C中N1位开场取出长

16、度为N2子串Mid(“ABCDEFG，3，2)“CDRight(C,N)返回字符串右边N个字符Right(“ABCDEFG,3)“EFGLeft(C,N)返回字符串左边N个字符Left(“ABCDEFG,3)“ABCLen(C,N)测量字符串长度Len(“VB学习开场)7Space(N)产生N个空格组成字符串“ABC&“Space(N) & “113”“ABC 123”Date()返回当前系统日期yy-mm-ddDate()或Date04-12-18Time()返回系统时间Time()或Time10:36:08练习题：1、以下变量名写法错误是( )A、abc_123 B、123abc C、ab

17、c123 D、abc2、以下语句中定义了一个实型变量是 ( )A、Dim end as Integer B、Dim sum As SingleC、Dim Name As String D、其它三项都不对3、在VB中，以下关于符号常量声明，声明正确是:( )A、Dim TAG as String B、Const TAG as String Visual + BasicC、Const TAG as String =Visual Basic D、Const TAG as String4、下面( )不是字符串常量A、True B、#False# C、 D、你好5、分析 s=113 + 11 Mod 3

18、，s值是( ).A、5 B、6 C、4 D、36、下面表达式值是false有( ).A、969 n97 B、Int(4.99) len(basic) C、str(2000) 27、设a=2, b=3,在VB中，表达式ab Or b3值是:( )A、False B、True C、-1 D、18、Visual Basic中，以下( )函数是求绝对值。A、ABSX B、SQR(X C、INTX D、GNX)9、表达式Abs(-3.6)*sqr(100)值是( )。A、-36 B、360 C、36 D、-36010、以下( )数据类型不是数值型。A、Date B、Single C、Double D、I

19、nteger11、以下函数中，返回值是字符串是 ( ).A、Mid B、Instr C、Val D、Len12、代数表达式表达式后错误是( )A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/213、数学式子在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 B、 ax=b C、ax and x=b15、向n变量存入1个2位整数，要使此2位数十位和个位上值分别存入x, y变量。

20、正确算法是( )。选项:x、x=Left(n, 1) y=n-x*10 Print x:Print yB、x=Left(n, 1) y=Right(n, 1) Print x:Print yC、x=n/10 y=n-x*10 Print x:Print yD、x=Int(n/10) y=n-x*10 Print x:Print y16、向x变量中输入任意一个小写字母，再将x变量中小写字母转成大写字母。正确算法是( ).选项:A、输人字母到x a=Asc(x)-32 x=chr(x) Print xB、输人字母到x a=Asc(x)+32 x=chr(x) Print xC、输人字母到x a=V

21、al(x)一32 x=Chr(x) Print xD、输人字母到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.赋值语句功能：计算功能和赋值功能1赋值语句不是代数等式，赋值号与等号形同而意不同；2赋值语句类型必须匹配；3把字符串赋给串变量时，该字符串必须用双引号括起来；4变量单元每次只能存

22、一个数据，但可以屡次赋值。 如：C$=“COMPUTER 注意：“$是区分字符串变量标志，即要在变量名后加“$构成字符串变量，同时，字符串用双引号括起来，然后才赋给字符串变量。 二、输入数据函数InputBox是提供从键盘输入数据函数。利用它可产生一个对话框，提示用户输入数据并单击命令按钮。该函数返回值是字符串类型string。InputBox语法格式为：InputBox提示信息，标题，默认值，位置提示信息： 指对输入数据提示，显示在对话框中，不能省略标题 ：指运行此函数后弹出对话框标题。默认值：指默认输入数据值位置：指运行此函数后弹出对话框左上角在屏幕上位置注意：提示信息和标题是用引号引起来

23、字符串三、输出数据方法1、根本格式： Print 输出内容注意：1、输出内容可以是数、变量、表达式，也可以是用引号括起来字符串；2、如果输出内容是数，变量，表达式，那么输出是数，变量，表达式，如果是用引号引起来字符串，那么原样输出；3、多个输出内容，可以用逗号或分号分隔；如果用分号，那么后面一个输出紧跟前一个输出；如果是逗号，那么分区格式输出；4、如果输出内容后面没有符号，那么表示下一个Print换行输出，如果print中没有输出内容，那么表示输出一个空行。程序设计顺序构造：代码按照由上到下顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种构造称为顺序构造。例1：交换两个变量中数据。P

24、rivate Sub cmdS() 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，yEnd Sub例2：从键盘上输入一个三位数，然后将它反向输出，如：输入456，输出654。(1) 分析问题设X为输入三位整数,Y为X方向输出。因为 X百位、十位、个位分别为：X1=X100X2=(X-X1*100)10X3=X-X1*100-X2*10所以Y=X3*100+X2*10+X1(2)设计算法输入X值计算：X1=

25、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 integerX=inputbox(“x=,输入)X1=X100X2=(X-X1*100)10X3=X-X1*100-X2*10Y=X3*100+X2*10+X1Print “y=;yEnd sub4调试程序练习题：1、以下是一段VB程序：a = 1b = a +

26、1c = a + b它根本构造属于 A、顺序构造 B、选择构造 C、循环构造 D、树型构造2、以下VB程序运行后，变量x值为( ).x=2Print x+lPrint x+23、执行以下程序，在弹出第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

27、：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

28、语句时，首先对条件进展判断。假设条件成立，那么执行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, 输入框

29、) If a b Then Min = a Else Min = b If c = 60 ThenPrint 及格 End IfIf a =0 then x1=(-b+sqr(d)/2elsex1=(-b-sqr(d)/2end ifprint “x1=;x1,x2=;x2End Sub练习题:1、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else X=X*2 End If它根本构造属于( ).A、选择构造 B、循环构造C、顺序构造D、树型构造2、以下程序段运行后，变量Value值是 x = 20If x = 10 Then Value = 5 * xEls

30、e Value = 4 * xEnd IfA、100 B、80 C、90 D、703、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比拟好算法是( )选项: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_Cli

31、ck() 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 ) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 05、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比拟好算法是( )。选项:A、输入数存人n变量f=(n/2=Int(n/2)如果f中值为True就显示n中值B、输入数存人n变量f=(n/2=Int(n/2)如果f

32、中值为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=5If A b Then m = A Else m = bIf c m Then m = c选项：A、1B、2C、5D、提示错误，无答案第四节 程序设计循环构造一、For-Next循环For循环变量一般形式是：For循环变量=初值To终值Step循环变量增量 循环体Nxt循环变量例1：求s1+2+3+4.+100Private Sub Form_Click() Dim i As

33、 Integer Dim sum As Integer sum = 0 For i = 1 To 100 step 1 sum = sum + i 循环体 Next i Print sum=; sumEnd Sub循环变量初值、终值、循环变量增量都是数值型。其中要重复执行操作称为循环体，增量可正可负，如果没有设置Step，那么增量缺省值为11、 循环变量取初值；2、 循环变量与终值比拟，没有超过终值转3，否那么循完毕，接着执行循环语句后继语句；3、 执行一次循环体4、 循环变量增加一个增量5、 重复步骤24。以上可以看出，For-Next循环变量是一种当型循环。说明（a） For语句与Next

34、语句必须成对出现，而且它们当中“循环变量必须是同一个变量，如上例中均为I。（b） 当循环变量为正时，循环变量超过终值，是指循环变量值大于终值时；假设为负，那么是指循环变量值小于终值。AP入口出口例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 iEnd Sub一个FOR循环里包含了另一个FOR，我们称它为嵌套循环。练习题:1、阅读如下程序，跟踪程序执行过程，观察变量A值变

35、化，写出循环完毕时变量A值、循环次数和程序运行结果。 privaate sub command1_click()for A=1 TO 10print ANext AEnd Sub privaate sub command1_click() For A=1 To 100 S=S+A Next A Pint “S=;SEnd Sub privaate sub command1_click() For A=100 To 1 step -1 S=S+A Next A Print “s=;sEnd Sub privaate sub command1_click()For A=1 To 10 A=A+1P

36、rint A Next AEnd Sub2、阅读下面程序， 输出结果是( ) 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,iEnd Sub选项:A、156 B、 s=15 i=6 C、6 5 D、s=6 i=53、试编写一个程序，求出100以内能被3整除所有正整数。4、试编写一个程序，求出1*2*3*100积。二、DoLoop循环For-Next循环次数是确定，但是有问题只知道循环完毕条件，重复执行次数事先并不知道，这是需要Do-

37、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 bEnd Sub当VB执行Do While-Loop循环时，先判断指定条件是否为真，假设条件为真，执行循环体，条件为假时退出循环。格式二： Do 循环体Loop Until条

38、件这种循环执行过程如下图。进入循环体后，先执行一次循环体A，然后再检查条件P是否成立。如果不成立，就重复执行循环体A，直到条件P成立退出循环体。APN例4：如果我国人口每年以平均1.5%速度增长，问多少年后我国人口到达或超过15亿？设现在人口为12.3亿。Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p = 1500000000 Print n; 年后, 人口=; pEnd Sub练习题:1、在VB中，以下程序段:x=0