公开课教案——VB选择控制结构.doc

5.5 VB选择控制结构时间：2011-5-30 授课人：* 课时：1课时【教学对象】高二（1）班【学习目标】掌握IF条件语句的格式、功能和执行过程，学会使用IF条件语句来实现选择控制结构【教学重点难点】教学重点：掌握分支选择结构的格式。教学难点：对解决问题的方法和步骤的理解，并能根据实际问题写出代码。【难点突破】课堂讲解，任务驱动【教学地点】3楼新机房【学生分析】高二的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究。【教学过程】（1） 组织教学（2） 复习InputBox函数的用法l InputBox函数：可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回输入的结果。Inputbox(“参数1”,”参数2”,”参数3”)l 参数1:字符串，指定对话框内显示的信息，用来提示用户输入l 参数2:字符串，对话框标题l 参数3:默认的对话框内的输入值默认情况Inputbox返回一个字符串，若返回值要参加数学运算，需要在运算前加Val函数进行类型转换或事先声明返回值类型Private Sub form_Click()Dim str1 as string , str2 As StringDim intadd As Integerstr1 = InputBox(请输入第一个整数1：, 加法运算, 0)str2 = InputBox(请输入第一个整数2：, 加法运算, 0)intadd = Val(str1) + Val(str2)Print 两个数的和是：; intadd;End SubPrivate Sub form_Click()Dim intadd As Integer,str1 as integer,str2 as integerstr1 = InputBox(请输入第一个整数1：, 加法运算, 0)str2 = InputBox(请输入第一个整数2：, 加法运算, 0)intadd = str1 + str2Print 两个数的和是：; intaddEnd Sub（3） 新授一、 If 条件1 then “条件1” ：是一个逻辑表达式，当“条件1”为真，则执行 例如：假设 a=5,b=4If ab then print “Max:”; a条件1：ab为真，则执行then后面的“语句块1”：print “Max:”; a例1：新建工程，定义一个整型变量a,输入一个数赋给a，然后输出它的绝对值（不用绝对值函数）分析：当a为负数，即a=0,则a的绝对值为它本身a,此时输出Private Sub Command1_Click()Dim a As Integera = InputBox(请输入数据a:)If a = 0 Then Print aEnd Sub例2：动手试一试：新建工程，定义2个整型变量：a,b。分别输入a和b的值，比较大小，输出其中比较大的数（课本P102）Private Sub Form_click()Dim a As Integer, b As Integera = InputBox(请输入a的值)b = InputBox(请输入b的值)If a = b Then Print 较大值为：; aIf a 0End Sub-1,x 0 Then y = 1If x = 0 Then y = 0If x 0 Then y = -1Print x=; x, y=; yEnd Sub二、If 条件1 Then Else 功能：如果 “条件1”成立，则执行“Then ”否则执行 “Else ”例如：If a = b Then Print 最大值是：; a Else Print 最大值是：; b例：定义2个整型变量：a,b。分别输入a和b的值，比较大小，输出其中比较大的数Private Sub Form_click()Dim a As Integer, b As Integera = InputBox(请输入a的值)b = InputBox(请输入b的值)If a = b Then Print 最大值是：; a Else Print 最大值是：; bEnd Sub三、嵌套在Else里的If语句 课本P103 程序2Private Sub Form_click()Dim x As Integer, y As Integerx = InputBox(请输入x的值)If x 0 Then y = 1 Else If x = 0 Then y = 0 Else y = -1Print x=; x, y=; yEnd Sub四、嵌套在Then部分的If语句Private Sub Form_click()Dim x As Integer, y A