【例】鸡兔同笼。已知笼中鸡兔总头数为， 总脚数为f,问鸡兔各有多少只？ 分析：设鸡有x只，兔有y只，则 x+y=h x=(4h-f)/2 2x+4y-f y=(f-2h列)/2 Textl Label5 界面设计： 雪鸡兔同笼 -▣x 总头数 鸡有 计算 ·· 总脚数 兔有 Text2 Label6 11 合
11 【例】鸡兔同笼。已知笼中鸡兔总头数为h， 总脚数为f，问鸡兔各有多少只？ 分析：设鸡有x只，兔有y只，则 + = 2 +4 = x y h x y f =(4 - )/2 =( -2 )/2 x h f y f h 界面设计： Text1 Text2 Label5 Label6
代码设计： Private Sub Command1 ClickO Dim h As Integer,fAs Integer, x As Integer,y As Integer h=Val(Textl.Text)'输入 f=Val(Text2.Text) x=(4*h-f)/2 计算 y=(f-2*h)/2 Label5.Caption Str(x) 输出 Label6.Caption Str(y) End Sub 12
12 Private Sub Command1_Click() Dim h As Integer, f As Integer, _ x As Integer, y As Integer h = Val(Text1.Text) ' 输入 f = Val(Text2.Text) x = (4 * h - f) / 2 ' 计算 y = (f - 2 * h) / 2 Label5.Caption = Str(x) ' 输出 Label6.Caption = Str(y) End Sub 代码设计：
改进：为方便用户输入数据，可以在输入数据 的文本框获得焦点时，自动选择其中的数据。 Private Sub Text1 GotFocus( Text1.SelStart=0 Text1.SelLength Len(Text1.Text) End Sub Private Sub Text2 GotFocus( Text2.SelStart =0 Text2.SelLength=Len(Text2.Text) End Sub
13 改进：为方便用户输入数据，可以在输入数据 的文本框获得焦点时，自动选择其中的数据。 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub
3.2选择结构程序设计 计算机在处理实际问题时，往往需要根据 条件是否成立，决定程序的执行方向，在不 同的条件下，进行不同的处理。 (1)单行结构条件语句： If.Then.Else. (2)块结构条件语句： If.Then.End If (3)多分支选择语句： Select Case.End Select (4)多分支选择转移语句： On.GoTo 14
14 3.2 选择结构程序设计 计算机在处理实际问题时，往往需要根据 条件是否成立，决定程序的执行方向，在不 同的条件下，进行不同的处理。 （1）单行结构条件语句： If.Then.Else. （2）块结构条件语句： If.Then.End If （3）多分支选择语句： Select Case.End Select （4）多分支选择转移语句： On.GoTo
4.3.1单行结构条件语句If.Then.Else. 格式： If条件Then[语句组1]Else语句组2] 功能：如果指定的“条 件”成立（即“条件” 的值为True),则执 T 条件 行“语句组1”，否则 语句组1 语句组2 (即“条件”的值为 False)执行“语句组 23
15 4.3.1 单行结构条件语句If.Then.Else. 格式: If 条件 Then [语句组1] [Else 语句组2] 功能:如果指定的“条 件”成立（即“条件” 的值为True），则执 行“语句组1”，否则 （即“条件”的值为 False）执行“语句组 2