课件25张PPT。2.3 程序的基本结构第二章 程序设计ABC题目:输入两个数,然后交换这两个数,再输出它们交换后的结果。
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(InputBox("请输入a"))
b = Val(InputBox("请输入b"))
Print "交换前:a="; a, "b="; b
c = a
a = b
b = c
MsgBox "交换后的a,b:" & "a=" & a & ",b=" & b, vbOKOnly, "交换结果"
End Sub开始b=c结束输出a、b值a=bc=a输入a、b值2.3 程序的基本结构顺序结构
在程序执行过程中,语句按先后顺序一行一行执行,没有分支,没有重复,直到程序结束。
2.3.1 顺序结构顺序结构的特点:
1. 执行过程是按顺序从第一条语句执行到最后一条语句。
2. 在程序运行的过程中,顺序结构程序中的任何一条语句都要运行一次,而且也只能运行一次。
任何正规的程序都可分解为三种基本结构,即顺序结构、选择结构和循环结构。程序的基本结构2.3.2 选择结构在处理实际问题时,只有顺序结构是不够的,经常会遇到一些条件的判断,流程根据条件是否成立有不同的流向。
如何只抽取偶数的幸运号数?用流程图描述算法开始n mod 2 <>0n=n+1结束YN输出n的值生成1到50的随机整数n
(n = Int((Rnd * 50) + 1))2.3.2 选择结构1、单分支选择结构
形式1为:
If 条件表达式 Then 语句
形式2为:
If 条件表达式 Then
语句或语句组
End If 2、双分支选择结构如下图所示,程序根据给定的条件P是否成立而选择执行A操作或B操作。由键盘输入两个数a、b,输出其中较大的数。用流程图描述算法开始a>b结束YN输出b值输入a、b值输出a2.3.2 选择结构2、双分支选择结构
形式1为:
If 条件表达式 Then 语句1 Else 语句2
形式2为:
If 条件表达式 Then
语句或语句组1
Else
语句或语句组2
End If
练习某市的士费起步价8元,可以行驶3公里。3公里以后,按每公里1.6元计算,输入的士的公里数,请你计算顾客需付费多少元?练习求一元二次方程 ax2+bx+c=0 (其中 a≠0 )的实数解。要求a、b、c由用户输入,若方程有实数解,则输出x1和x2,若方程无实数解,则输出无实数解。2.3.2 选择结构3、多分支结构
形式1为:If 条件1 Then
语句或语句组1
Else
If 条件2 Then
语句或语句组2
Else
语句或语句组3
End If
End If求分段函数的值。
2.3.2 选择结构3、多分支结构
形式为:If 条件1 Then
语句或语句组1
ElseIf 条件2 Then
语句或语句组2
……
ElseIf 条件n Then
语句或语句组n
Else
语句或语句组n+1
End If
练习对百分制成绩分等级,规定90~100分为优秀,80~89分为良好,60~79分为合格,0~59分为不合格,输入其他分数提示输入错误。要求输入一个百分制的分数,根据分数的大小,输出其对应的等级。3、多分支结构
形式为:
Select Case 表达式
Case 表达式列表1
语句组1
[Case 表达式列表2
语句组2]
……
[Case Else
语句组n]
End Select
判断字符类型利用case语句设计一个程序,完成以下功能:输入一个字符,判断字符类型。大写字母(A…Z);小写字母(a…z);数字(0…9);其他字符。
例如:输入“9”,则输出“数字”。Case子句中表达式列表的几种表达形式:
1、表达式1 to 表达式 2,如Case 90 to100 表示90——100都满足指定的条件。
2、一组用逗号隔开的值,如Case 6,7表示6,7都满足指定的条件。
3、一个值,如Case 8 表示8满足指定的条件
4、Is关系式。妻子对正要上班出门程序员丈夫说:“晚上回来时买两个烧饼,如果看到卖西瓜的,买一个。“ 转眼到了下午下班,丈夫回到家把一个烧饼放到桌上,妻子怒问:”为什么就买一个烧饼!”丈夫答曰:”因为我看到了卖西瓜的”。