VB-第5章-基础结构.ppt

第五章 VB的基础结构 世界会向那些有目标和远见的人让路 本章内容 第一节 选择结构 勇于开始，才能找到成功的路。 主要内容 一、单分支结构 ??　If ?表达式 ?Then 　　 语句块 end If 单分支结构 If ?表达式 ?Then 　 语句块1 举例 例：已知两个数x和y，比较它们的大小，并交换，使得 x大于y： 写出下面程序的结果 If 2+3 Then Print “5” If 3-3 Then Print “0” If True And False Or True Then Print ”I like VB Very much !” End If Private Sub Command1_Click() x = 7: y = 2: z = 3 z = x + y: x = x + y: y = y + z If x 9 Or y 3 Then y = z – x x = y – x z = y + x End If Print x + y + z End Sub 二、双分支结构 　If ?表达式 ?Then 　　 语句块1 Else　　语句块2End If If ?表达式 ?Then 语句块1 else 语句块2 课堂练习 设计一个程序，对变量Ｘ和Ｙ的值进行比较，并输出较大的值。 在窗体单击事件中写代码 通过键盘输入数据. Private Sub form_Click() dim s1$,s2$,x!,y! s1=inputbox(“输入x的值”) s2=inputbox(“输入y的值”) x=val(s1):Y=val(s2) If xY Then Print x Else Print y End if End Sub P63例5-1 三、多分支结构 If ?表达式1 ?Then 语句块1 ElseIf? 表达式2 ?Then 　　语句块2　　 …… [ Else　语句块 n+1 ] End If 课堂练习 x+1 (当x=0时) Y= x-1 (当x0时) 课堂练习 例:某商场优惠顾客:购买金额大于等于500元的8折,大于等于300元及500元以下的8折, 300元以下的9.5折,编写计算实际应付金额的程序. Private Sub Form_Click() Dim str$, x!, y! str = InputBox( 请输入总金额) x = Val(str) If x = 500 Then y = x * 0.8 ElseIf (x = 300) And (x 500) Then y = x * 0.9 Else y = x * 0.95 End If Print 应付金额：; y; 元 End Sub 复习上次课内容 算法的特点 If-else语句 如果我计算机考试成绩X在90分以上，那么输出“优秀”； 如果我计算机考试成绩X在75分以上，那么输出“良好”； 如果我计算机考试成绩X在60分以上，那么输出“及格”； 否则，输出“不及格”。 课本例５-2 If语句的嵌套 语句形式： ???? 　If ?表达式1 ?Then　　　　If? 表达式11 ?Then 　　　　　　　 …… 　　　　 End If 　　　　　　　 …… 　 End If 课堂练习 A = 10 B = 20 C = 40 If A B Then If C A Then C = A + B Else C = A - B End If End If Print C 补充：条件函数（对应于if……else……） iif函数形式： iif（表达式，当条件为True时的值，当条件为False时的值）(注:三个参数均不能省略) 例：求X、Y中大的数，并放入变量Tmax中：?? Tmax=iif（XY, X, Y） 请编写程序表示 y=1+x（当x大于等于0时） y=1-2x（当x小于0时） X=100 Y=200 Print IIF(X50,X-50,X+50) Print IIF(Y50,Y=Y-50,Y=Y+50) 则显示的结果是————。 2. Select Case语句（情况语句） 　 　是多分支语句的又一