计算机项目二

1、项目二经典计算之分支结构1主要内容2分支结构If语句IIf函数分支结构 分支结构又称选择结构，用来解决有选择、 有转移的诸多问题。 分支结构的特点是：在程序执行时，根据不同的“条件”，选择执行不同程序语句。 VB中实现分支结构的条件(分支)语句：IF语句 IF语句的嵌套IIf函数 Select Case语句 3学习支持IF语句 -1If语句的形式：单分支双分支多分支4学习支持编程实践例：比较两个数x、y的大小后，将较大的数放在x中，将较小的数放在y中,显示比较结果。按要求设置界面，并编写程序。界面设计5编程实践分析数据输入数据比较显示结果编程变量声明变量赋值比较数据显示结果6 Dim x, y

2、,t As Integerx = InputBox(请输入x) y = InputBox(请输入y) If y x Then t = x x = y y = t End If Label1.Text = x & & y编程实践单击“比较”按钮的事件过程 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y,t As Integer x = InputBox(请输入x) y = InputBox(请输入y) If y

3、x Then t = x x = y y = t End If Label1.Text = x & & y End Sub7IF语句 -2单分支结构语句 IfThen语句格式： If Then End IfIf Then 其中：“条件表达式”是一个关系表达式或逻辑表达式。 “语句块”可以是一个或多个语句。8学习支持注意：正确书写关系表达式和逻辑表达式IF语句 -3If语句的功能： 当表达式的值为True或非零时，执行Then后面的语句块（或语句），否则执行End If语句后面的语句。单分支结构流程图：9学习支持条件表达式语句块1FTIF语句 -4提示：若用形式(2)单行简单的形式表示，则The

4、n后面只能是一条语句。若要写几个语句，用冒号分隔，并且几个语句必须写在同一行上。10学习支持IF语句 -5条件表达式的表示If WeekDay(d)=1 or WeekDay(d)=7 Then Label1.Text=“休息日”End IfIf x=10 And xy 或 yx。按要求设置界面，并编写程序。12学习支持编程实践-2单击“比较”按钮的事件过程Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As

5、Integer x = InputBox(请输入x) y = InputBox(请输入y) If x y Then Label1.Text = x y Else Label1.Text = y x End Sub13IF语句 -7双分支结构语句 IfThen Else语句格式： If Then Else End If If Then Else IfThen Else语句的功能：当条件表达式的值为True或非零时，执行Then后面的语句块1（或语句1），否则执行Else后面的语句块2（或语句2）。 14学习支持IF语句 -8双分支结构流程图如图所示： 15学习支持条件表达式语句块1语句块2FT编

6、程实践-3例2：移动地球。界面设计：16编程实践-4单击“开始”按钮的事件过程Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Enabled = True Button2.Enabled = True Button3.Enabled = True Button4.Enabled = TrueEnd Sub17编程实践-5单击向上按钮的事件过程Private Sub Button1_Click(ByVal send

7、er As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button4.Enabled = True If PictureBox1.Top = 0 Then Button1.Enabled = False Else PictureBox1.Top = PictureBox1.Top - 10 End IfEnd Sub18编程实践-6单击向下按钮的事件过程Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.Ev

8、entArgs) Handles Button1.Click Button1.Enabled = True If PictureBox1.Top =240 Then Button4.Enabled = False Else PictureBox1.Top = PictureBox1.Top + 10 End IfEnd Sub19编程实践-7单击向左按钮的事件过程Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button3.E

9、nabled = True If PictureBox1.Left = 240 Then Button3.Enabled = False Else PictureBox1.Left = PictureBox1.Left + 10 End IfEnd Sub21编程实践-9单击“结束”按钮的事件过程Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Button4.Enabled = FalseEnd Sub22IIf函数-1IIf函数 IIf函数可用来控制简单的分支操作，它是IfThen Else语句结构的另一种形式。IIf函数格式为：IIf(, , )IIf函数的功能： 先计算的值，当的值为Tr