第二部分 算法与程序设计

江苏省郑集高级中学信息组中心 信息技术学业水平测试百日冲刺（必修＋算法与程序设计）

sw = (a – bw * 100) \\ 10 gw = ①

b = gw * 100 + sw * 10 + bw Print ② 参考答案：1．5 2．s=12.56 3．①a Mod 10 ②b

1.2.4 选择结构 知识点1：If语句

【知识链接】

本考点要求学生达到―迁移应用与熟练操作‖水平。 1．单分支If语句的格式： If <关系表达式> Then 语句块 End If

2．双分支If语句的格式： If <关系表达式> Then 语句块1 Else

语句块2 End If

3．使用If语句的多层嵌套还可以实现程序的多分支结构，但程序结构较烦琐。

【技能扫描】

掌握IF语句的两种格式以及执行过程，能根据实际问题设置If语句中的条件，能正确调试分支结构的程序。了解If语句的多重嵌套。

【典型题析】

求函数y的值(当x<=0时，y=2x-5，否则y=4x)(x的值在程序中通过调用InputBox函数，在弹出的标准输入对话框中输入)。

Private Sub Command1_Click() Dim x, y As Integer

x = Val(InputBox(\请输入x的值\If x <= 0 Then y = ① Else

y = ② End If

Print \ ③ End Sub 分析：这是一道求解分段函数的题，程序中采用双分支语句，x<=0时，计算第一个分支y=2x-5；当x<=0条件为假时，计算第二个分支y=4x。

参考答案：①2 * x – 5 ②4 * x ③y

【模拟练习】

第17页

江苏省郑集高级中学信息组中心 信息技术学业水平测试百日冲刺（必修＋算法与程序设计）

1．关于If x = 1 Then y = 1语句，下列说法正确的是( )。 A．x = 1和y = 1均为赋值语句 B．x = 1和y = 1均为关系表达式

C．x = 1为关系表达式，y = 1为赋值语句 D．x = 1为赋值语句，y = 1为关系表达式

2．完善程序。下面程序的功能是在文本框Text1中输入任意一个数，判断这个数是正数、负数、还是零，并输出判断结果。

Private Sub Command1_Click() Dim a As Single Dim py As String a=Val(Text1.Text) If a < 0 Then Py = ① If a = 0 Then py = \零\If a ② 0 Then py = ③ Label1.Caption = ④ End Sub

参考答案：1．C 2．①\负数\ ②> ③‖正数‖ ④py

知识点2：Select Case语句

【知识链接】

本考点要求学生达到―迁移应用与熟练操作‖水平。 Select Case语句的格式： Select Case表达式

Case表达式列表1 语句块1

Case表达式列表2 语句块2 ……

Case表达式列表n 语句块n End Select

―表达式列表‖通常是一组常量值，每个值确定一个分支。表达式列表可以使用下面的格式： (1) 一组用逗号隔开的若干表达式，如：Case 1, 2, 3表示1、2、3满足指定条件。

(2) 表达式1 To 表达式2，如：Case 70 To 80，表示70到80这一取值范围满足指定条件。 (3) Is关系运算符表达式，如：Case Is>30，表示大于30满足指定条件。

【技能扫描】

掌握多分支选择语句，学会使用多分支选择语句解决实际问题。

【典型题析】

运输部门的货物运费与里程有关，距离越远，每吨货物的单价就越低。假定每吨单价P(元)与距离S(千米)之间的关系如下：

第18页

江苏省郑集高级中学信息组中心 信息技术学业水平测试百日冲刺（必修＋算法与程序设计）

S?100?3.2??2.8100?S?200 P???2.5200?S?300S?300?1.5编写程序，输入要托运的货物重量和运输的距离，然后计算并输出总运费。

分析：

问题分析：

设总运费为T，要托运的货物重量为W(吨)，则计算公式为：T=P*W*S。要计算总运费，需要知道货物的总重量和运输的距离，根据公式即可得出总运费。

设计算法：

输入货物重量和托运距离。

如果S<100则按单价每吨3.2元计费。

如果100<=S<200则按单价每吨2.8元计费。 如果200<=S<300则按单价每吨2.5元计费。 如果S>=300则按单价每吨1.5元计费。 用公式T=P*W*S计算总运费。 输出W、P的值。 设计界面：

在窗体中添加命令按钮。 参考答案： 编写程序：

Private Sub Command1_Click() Dim W As Single, S As Single Dim P As Single, T As Single

W = Val(InputBox(\输入货物重量(吨)\S = Val(InputBox(\输入托运距离(千米)\If S <= 0 Then End Else

Select Case S

Case Is < 100 P = 3.2 Case Is < 200 P = 2.8 Case Is < 300 P = 2.5 Case Else P = 1.5 End Select T = P * W * S

Print W; \吨货物运送\千米的总运费为\元\End If End Sub 调试程序：

将程序输入到代码窗口，运行程序时依次输入货物的重量和托运距离。输出总运费。

【模拟练习】

第19页

江苏省郑集高级中学信息组中心 信息技术学业水平测试百日冲刺（必修＋算法与程序设计）

在窗体上添加一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click() n = Val(Text1.Text) Select Case n Case 1 To 20 x = 10 Case 21, 22, 23 x = 20 Case Is > 23 x = 30 Case Is < 0 x = 40 End Select

Text2.Text = Str(x) End Sub

运行程序时，如果在文本框Text1中输入10，在文本框Text2中显示的内容是( )。 A．10 B．20 C．30 D．40 参考答案：A

1.2.5 程序设计的循环结构 知识点1：For/Next循环语句

【知识链接】

本考点要求学生达到―迁移应用与熟练操作‖水平。

For/Next循环语句常用来解决已知循环次数的程序设计问题。 格式：

For 循环变量 = 初值 To 终值 [Step 步长值] <循环体> Next [循环变量] 说明：

循环变量也称为循环控制变量，必须为数值型。 初值、终值都是数值型或数值表达式。

步长值是循环变量的增量，是一个数值表达式。若步长值为正，则初值小于终值；若步长值为负，则初值大于终值。如果步长值是1，Step 1可略去不写。步长值为零则会形成死循环。

循环体是For和Next之间的语句序列。

Next后的循环变量与For后的循环变量必须相同。

【技能扫描】

掌握For/Next循环语句的格式，学会使用该循环语句编写简单的程序。

【典型题析】

1．完善程序，使得运行程序时，单击命令按钮后在窗体中显示1到100之间的奇数和。 Private Sub Command1_Click() Dim s As Integer

第20页