2023年算法与程序设计知识点.doc

高中信息技术《算法与程序设计VB（选修）》
知识要点
相关知识点
（一）算法
1.定义
相关题解：
算法：就是解决问题的方法和环节。算法是程序设计的“灵魂”，算法+数据结构＝程序。
单选题
1、运用计算机程序解决实际问题时，合理的环节是（ ）。
A、设计算法→分析问题→编写程序→调试程序
B、分析问题→设计算法→编写程序→调试程序
C、分析问题→编写程序→设计算法→调试程序
D、设计算法→编写程序→分析问题→调试程序
2．算法的描述方法：
算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。
自然语言描述法：指用人们平常生活中使用的语言（本国语言），用自然语言描述符合我们的习惯，且容易理解。
流程图描述：也称程序框图，它是算法的一种图形化表达方法。且描述算法形象、直观，更易理解。
伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。
输入或输出

判断

解决或运算

开始或结束

（二）程序设计基础
常用高级编程语言：BASIC、VB、Pascal、C、C++、Java
面向对象的程序设计语言：其中的对象重要是系统设计好的对象，涉及窗体等、控件等
控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按钮等。
常用控件：
控件
对象的类型
名字举例
窗体
Form
Form1
命令按钮
Command button
Command1
标签
Label
Label1
文本框
TextBox
Text1
对象的属性、方法和事件
1、属性
属性
Name
设立对象的名称
Caption
决定控件中显示的内容（文字）
Text
决定窗体中文本框中显示的内容(初始为空白)
Height
决定控件高度
Width
决定控件宽度
TOP
决定控件的靠顶部位置
Left
决定控件的靠左边位置
Font
设立控件中字体格式
BackColor
设立控件背景色
ForeColor
设立控件的前景色
BorderStyle
设立控件的边框风格
Visible
决定控件是否可见
Enabled
决定控件运营时是否有效
对象名.属性名＝属性值
对象中属性可以在设计界面时通过属性窗中设立，也可以在运营时通过程序代码设立,方法如下
例：给文本框“Txt123”的“Text”属性赋值为字符串“20”，代码如下
Txt123.text =”20”
变量＝对象名.属性名
假如要获取对象的状态或特性，这时就要读取对象的属性值，方法如下
例：读取文本框“txt123”的“Text”属性的代码如下
a = txt123.text ‘读取字符 (或a=Val(txt123.text) ’读取数值)
2、方法
［对象］.方法［参数名表］
例：form.print ”欢迎使用”
该语句使用print方法在form1窗体中显示字符串“欢迎使用”
3、事件及事件驱动
事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个Click事件。如需要命令按钮响应Click事件，就把完毕Click事件功能的代码写到Click事件的事件过程中，与事件一一相应。
事件过程的形式如下：
Private Sub 对象_事件名( )
……………（事件过程代码）
End Sub
一个简朴的VB程序
求圆的周长和面积
Private Sub Command1_Click()
Dim r As Single '定义r为单精度型
Dim c As Single '定义c为单精度型
Dim s As Single '定义s为单精度型
r = Val(Text1.Text) '输入半径r，变量r为数值型，因此输入语句必须加函数Val()
c = 2 * 3.14159 * r '计算周长
s = 3.14159 * r * r '计算面积
Text2.Text =str(c) '输出周长
Text3.Text = str(s) '输出面积, 变量s为数值型，因此输出语句必须加函数str()
End Sub
Private Sub Command2_Click()
End '退出
End Sub

（三）、常量：在程序进行过程中不变的量。在VB中一般分数值常量与字符常量两种
数值常量：就是数学中说的常数，分整型常量和实型常量两种
整型常量：即整数，指不带小数点的数值如1、0、-10、+35等都是合法的整数
实型常量：即实数，指带小数点的数值。
字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如：”China”、”Visual Basic”、”18”、”3.1415”等，双引号中字符，不涉及双引号自身。 
逻辑常量：包含true和false两个值。
系统常量：涉及VB已定义的常量（如Vbred）和用户定义常量（假如多次用到同一个常量，则可用一个故意义的名字表达这个常量。Const pi=3.14159）
（四）、变量：在程序执行过程中，其值可以改变的量称为变量
变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头。
2、只能由字母、数字或下划线组成，不能具有小数点、空格等字符。
3、最长不超过255个字符
4、不能以VB保存字作变量名，如语句定义符dim、函数名str等。
5、VB不区分变量名中字母大小写。如HELLO和Hello是同一个变量。
数据及运算
（1）常用数据类型：(整型)Integer、（长整型）Long、（单精度型）Single、（双精度型）Double、（字符串型）String、（布尔型）Boolean、（日期型）Date
其中(整型)Integer、（长整型）Long、（单精度型）Single、（双精度型）Double属于数值型
表达范围：
(整型)Integer (-32768 —— 32767，存储为 16 位 ， 2 个字节)
（字符串型）String字符串型数据是指用 “ ”括起来的一串字符。如“欢迎进入VB世界！”、“ Visual Basic” 、“1234 ”都是字符串类型。
（2）常量和变量的命名、声明及赋值
符号常量的声明：Const 常量名= 常量值
如：Const pi = 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_1 As String
a = 54 : b = 114 : c = a + b
str_1 = "Hello World"
Print a,b,c
Print str_1
End sub
2、VB语言中，下列数据类型说明符中表达字符型的是（ ）。
A、Boolean B、Integer C、Date D、String
3、在VB 语言中，下列合法的变量名是（ ）。
A、34ab B、ab34 C、*abc D、c\c
4、下列选项中属于字符串常量的是（ ）。
A、ab B、a+b C、"1235" D、1235
5、在VB 语言中，下列合法的变量名是（ ）。
A、aa B、a*b C、7ab D、dim
（五）运算符
算术运算：
+ 加 -- 减 *乘
^ 幂 　　　　　　 例：2^2 = 4
/ （实数）除 　　　例：5 / 2 = 2.5
\ 整除 　　　　　例： 5 \ 2 = 2
Mod 求余数 　　　　例：5 Mod 2 = 1
单选题
6、分析下列程序:
Private Sub Form_Click()
s=11\3 + 11 Mod 3
Print s
End Sub
当单击窗体时s的值是( ).
A、5 B、6 C、4 D、3
关系运算
=　　　赋值　、　　　　<　　小于号
<>　　不等于　　　　　　>　　大于号
>=　　大于等于号　　　　<= 小于等于号
注意：关系表达式的运算结果为布尔值True 或 False
例：3 > 2 结果为 True(真或是)
7、下面表达式的值是false的有( ).
A、"969" < "n97" B、Int(4.99) <> len("basic") C、str(2023) < "1997" D、3 > 2
逻辑运算
Not（取反）And（与） Or（或）
运算结果为布尔型（Boolean）True 或 False
逻辑运算符的优先级为：Not > And > Or
8、下列逻辑表达式的值为“假”的是（ ）。
A、2 + 4 > 8 B、3 + 12 = 15 C、5 > 0 And 4 > 3 D、10 / 5 <3
9、下列逻辑表达式的值为“假”的是（ ）。
A、3 + 5 > 7 B、8 / 4 < 4 C、5 > 3 And 3 > 2 D、4 + 11 > 20
10、已知A，B，C，D 是简朴变量，且都已有互不相同的值，执行语句A=C: D=B 后，下列
关系表达式逻辑值为“真”的是（ ） 。
A、C=A B、A=B C、D=C D、B=C
11、设a=2, b=3,在VB中，表达式a>b Or b>3值是:( )
A、False B、True C、-1 D、1
字符运算
字符串连接符为“+”和“&”
“123” + “45” = “12345”
“123” & “45” = “12345”
123 + “45” 语法错误
12、VB的字符串运算符是“&”，该运算符重要用于连接两个或更多的字符串。如："abcd" &
"efg" 连接后的运算结果为："abcdefg"。那么，"1+2" & "3"的运算结果为：（ ）。
A、33 B、6 C、"1+23" D、True
运算符的执行顺序
在VB中，当一个表达式中同时出现多种运算符时，运算顺序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。
算术运算符 > 字符串运算符 >  关系运算符 >  逻辑运算符
13、在VB语言中，表达“a大于0且b小于12”的对的表达式是（ ）。
A、b<12 or a > 0 B、b > 12 And a < 0 C、a > 12 Or a < 0 D、a > 0 And b < 12
（六）常用函数
数学函数
Abs(x) 求x 的绝对值，例：abs(-3.6) = 3.6
Sqr(x) 求 x 的平方根，例：sqr(100) = 10
Int(x)求≤x的最大整数 例：int(3.6) = 3 int(--3.6) = --4
Rnd()产生[0，1)之间的随机小数（不涉及1）
Sin(x) Cos(x) Tan(x) Atn(x) Exp(x) Log(x)
使用三角函数时，参数应是弧度，如数学中sin300应写为：sin(30*3.14159/180)
字符串函数
Len(字符串) 求字符串的长度 ,例：Len(“hello”) = 5
Mid(字符串，起始位置，截取长度) ,例：Mid(“hello”,2,2) = “el”
14、 函数mid (C,N1,N2)的作用是从字符串C中N1位开始取出长度为N2 的子串。那么，
Mid ("aBcDeFg", 3, 3)的值为（ ）。
A、aBc B、cde C、eFg D、cDe
常用转换函数
Val(字符串) 将字符串转换为数值,常用于数值的输入语句中。例：Val(“123”)=123
Str(数值) 将数值转换为字符串，常用于数值的输出语句中
Chr(在ASCII表中取数值相应的字符) 例：chr(65)=”A”
Asc(求字符在ASCII表中的数值) 例：asc(“a”)=97
15、Visual Basic中，下列( )函数是求绝对值的。
A、ABS（X） B、SQR(X） C、INT（X） D、STR（X)
16、表达式Abs(-3.6)*sqr(100)的值是( )。
A、-36 B、360 C、36 D、-360
17、下列( )数据类型不是数值型。
A、Date B、Single C、Double D、Integer
18、下列函数中，返回值是字符串的是 ( ).
A、Mid B、Int C、Val D、Len
19、代数表达式表达式后错误的是( )
A、g*t*t/2 B、1/2*g*t^2 C、g*t^2/2 D、gt^2/2
20、数学式子在VB中的对的写法是：（ ）
A、(2*a+b)/4*a*b B、(2*a+b)/(4ab) C、(2a+b)(4ab) D、(2*a+b)/(4*a*b)
21、判断x是否在区间[a, b]上，在VB中以哪个逻辑表达式是对的的( )
A、a<x and x<=b B、a<=x<=b C、a<=x and x<=b D、a>x and x<=b
(七) 程序设计的顺序结构
顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有反复，这种结构称为顺序结构。
例题：互换两个变量中的数据。
Private Sub cmdSwap_Click()
Dim x As Single, y As Single
Dim m As Single
x = Val(txtsx.Text)
y = Val(txtsy.Text)
m = x: x = y: y = m '互换数据
txtdx.Text = Str(x)
txtdy.Text = Str(y)
End Sub
牢记以上代码中的数值型数据的输入和输出语句！！！！
22、以下是一段VB程序：
a = 1
b = a + 1
c = a + b
它的基本结构属于（ ）
A、顺序结构 B、选择结构 C、循环结构 D、树型结构
23、下列VB程序运营后，变量x的值为( ).
x=2
Print x+l
Print x+2
A、2 B、3 C、5 D、8
(八)程序设计的分支结构
行If语句
行If是指在一行中写完的If语句。其一般格式为：
格式一：If条件Then语句
执行这种形式的If语句时，一方面对条件进行判断。若条件成立，则执行Then后面的语句；若条件不成立，则执行If语句后继程序行的语句
格式二：If条件 Then 语句 1 Else 语句 2
例题：输入三个不相同的数，求出其中最小数。
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
执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句2。必须写在一行内，不能换行，没有End If
块If语句
上述If-then语句只能根据条件的真假是否执行一条语句，当Then部分和Else部分包含的内容较多时，则可选用“块If语句”结构。
格式三：If 条件 Then
语句块
End If
例题：当从输入一个数时，当该数大于或等于60时显示"及格"，该数小于60时显示"不及格"。
Private Sub Command1_Click()
Dim a As Single
a = Val(Text1.Text)
If a >= 60 Then
Label1.Caption = "及格"
End If
If a < 60 Then
Label1.Caption = "不及格"
End If
End Sub {这样的格式是不是太麻烦了，所以请选用格式四，自己改过来吧！}
格式四：If 条件 Then
语句块1
Else
语句块2
End If
例题：编写程序，求函数Y的值（当x≤0时，y=3x+1；当x>0时，y=4x+1）。
Private Sub Form_Click()
Dim x As Single
Dim y As Single
x = Val(InputBox("请输入变量x"))
If x <= 0 Then
y = 3 * x + 1
Else
y = 4 * x + 1
End If
Print "y="; y
End Sub
单选题
24、以下是一段Visual Basic程序:
If I=1 Then
X=X+1
Else
X=X*2
End If
它的基本结构属于( ).
A、选择结构 B、循环结构C、顺序结构D、树型结构
25、下列程序段运营后，变量Value的值是（ ）
x = 20
If x >= 10 Then
Value = 5 * x
Else
Value = 4 * x
End If
A、100 B、80 C、90 D、70
26、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( )
Private Sub commandl_Click()
Dim x As Integer
x=Val(Text1. Text)
If Then
Labell.Caption=”这个数是能被5整除的偶数”
Else
Labell.Caption=”这个数不是能被5整除的偶数”
End If
选项：
A、(x Mod 5) = 0 And (x Mod 2 ) = 0
B、(x Mod 5) = 0 or (x Mod 2 ) = 0
C、x Mod 5 = 0
D、x Mod 2 = 0
27、下列程序段运营后,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、提醒错误，无答案
（九）程序设计的循环结构
1、For-Next循环
For循环变量一般形式是：
For循环变量=初值To终值[Step循环变量增量]
循环体
Next循环变量
例题1：求s＝1+2+3+4.....+100
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i ' 循环体
Next i
Text1.text=str( sum)
End Sub ‘注意这里累加器的应用
例题2：Step循环变量增量
Private Sub Command_Click()
For j = 3 To 15 Step 2
Print j ‘共输出7个值
Next j
End Sub ‘变量j=3 5 7 9 11 13 15 17 循环7次，j最后的值为17不算在循环中。
循环变量的初值、终值、循环变量增量都是数值型。其中要反复执行的操作称为循环体，增量可正可负，假如没有设立Step，则增量的缺省值为1
1、 循环变量取初值；
2、 循环变量与终值比较，没有超过终值转3，否则循环结束，接着执行循环语句的后继语句；
3、 执行一次循环体
4、 循环变量增长一个增量
5、 反复环节2~4。
以上可以看出，For-Next循环变量是一种当型循环。说明
（a） For语句与Next语句必须成对出现，并且它们当中的“循环变量”必须是同一个变量，如上例中均为I。
（b） 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。
A

P

入口
出口

2、Do－Loop循环
For-Next循环的次数是拟定的，但是有的问题只知道循环结束的条件，反复执行的次数事先并不知道，这是需要Do-Loop循环
格式一：　Do While 条件
　　　　　　　循环体
　　　　　Loop
例题：求最大公约数
Private Sub Command1_Click()
Dim a,b,r As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
r = a Mod b
Do While r <> 0
a = b
b = r
r = a Mod b
Loop
Text3.Text = Str(b)
End Sub
当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。

28、下列程序段执行结束后，变量y的值是（ ）。
y=2
Do while y<=6
y=y+y
Loop
A、2 B、6 C、8 D、16
29、分析程序，写出执行结果。
Private Sub command1_click()
Dim S As Integer,I As Integer
S=0
For i=1 to 10 Step 2
S=S+i
Next i
Print “S=”;s
End Sub
答案：S=

（十）算法与问题解决
1、解析法
运用所学的数学或物理等知识来求解一个问题。
2、枚举法
对所有也许的情况都逐个列举和判断。外循环分支的结构。
简朴理解一下程序思想及代码(部分程序请补充完整代码)
(1) 一只猴子摘了一堆桃子，它天天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。
程序：

Private Sub Command_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) 完善按钮“计算7!”的Click事件程序，当单击命令按钮时Text1显示7!的值。
Private Sub Command1_Click( )
Dim a As long
Dim i As Integer
(30)
For i = 1 To 7
a = a * i
Next i
(31)
End Sub
这里输入值太大容易“溢出”，可以更改变量a的类型为double

(3) "计算1+2+……+100"
Private Sub Command1_Click( )
Dim a As Integer
Dim I As Integer
a = 0
For i = 1 To 100
a = a + i
Next i
Text2.Text = Str(a)

(4) 编程计算 s=1-2+3-4+5-……+99-100
程序：
Private Sub command1_Click()
Dim s As Integer '定义变量s为整型变量
Dim i As Integer '定义循环变量
(32)
For i=1 To 100
if int(i/2) <> i/2 Then ‘判断奇数，也可以使用语句“ i mod 2 <> 0 ”
s = s + i
(33)
s = s - i
End if
Next i
Print "s=";s
End Sub

(5) 编程计算s = 1*2+2*3+3*4+……+n*(n+1)的值，其中n 通过文本框txta输入
Private Sub Form_Click()
Dim s As Single
Dim i As Integer
s = 0
（34）
For i = 1 To n
(35)
Next i
Print “s=”;s
End Sub

(6) 编程求:鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只?
程序：
Private Sub Form Click()
Dim Ji As Integer '鸡
Dim Tu As Integer '兔
Dim Leg As Integer '腿数
Dim Head As Integer '头数
For Ji=1 To 50
For Tu=1 To 25
Leg = Ji*2 + Tu*4 '计算腿
'计算头 (36)
If Then (37)
Print "鸡=";Ji;"只", "兔=";Tu;"只"
End If
Next Tu
Next Ji
End Sub

B
D
B
C
A
A
C
A
D
A
A
C
D
D
A
C
A
A
D
D
C
A
A
A
A
A
A
C
25

a=1 text1.text=str(a)
s=0 else
n=val(txta.text) s=s+i*(i+1)
head=ji+tu leg=100 and head=40