制作柳淑花第4章选择结构.pptVIP

实训五 选择程序设计 第2步：控件的初始属性设置后的界面如图所示： 第3步：编写代码：SX5_1.vbp Private Sub Command1_Click() ‘ 计算按钮 a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Text4.Text = Else Text4.Text = 数据错误 End If End Sub ‘ 清除按钮 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub Private Sub Command3_Click() ‘ 结束按钮 End End Sub 运行程序后，在a、b、c中输入数据后单击“计算”按钮，其界面如图所示： 2、做一做 利用If...Then...Else 语句编写求函数 的值的程序，要求只要在文本框Text1中输入自变量x的值，就在标签 label1上显示函数值。界面如图： 根据题意，在窗体上添加一个文本框控件Text1和标签控件label1，代码应包含在Text1_change事件中。 sx5_2.vbp 3、做一做 编程检查文本框中输入的表达式中圆括号是否配对，并显示相应的结果。 要求：边输入，边统计，以回车符作为表达式输 入结束。 sx5_3.VBP 4、 Select Case …End Select 语句 【实验要求】 下表是华中航空总公司机票打折表。试根据此表编写程序。日期、机票数从文本框中输入，打折情况在窗体上输出。 Sx5_4.vbp 【实验步骤】 第1步：在窗体上添加6个标签Label1~ Label6，Label1~ Label5的Caption属性依次为： “请输入日期”、“月”、“日”、“请输入订票数”、“张”，Label6的Caption属性设计时为空白，运行时用来显示优惠率。 添加3个文本框控件Text1~Text3，添加一个命令按钮Command1。 机票优惠率表 要求： 1、双击Text1可以取系统的日期作为输入日期 2、单击Text1清空所有文本框的内容，单击其他文本框，只清空被单击的文本框的内容。 3、当按回车键时，焦点自动跳到下一个文本框。 第2步：控件的初始属性设置后的界面如图所示： 第3步：编写代码。 Private Sub Command1_Click() Dim intnn As Long ‘ 订票数量 Dim intss As Integer,strdate As Integer ‘优惠率、 日期 intnn = Clng(Text3.Text) strdate = Cint(Trim(Text1.Text) Trim(Text2.Text)) Select Case Case 428 To 431, 51 To 57, 928 To 931, 101 To 107 If intnn = 30 Then intss = 35 Else intss = 15 Case 71 To 79, 710 To 731, 81 To 89, 810 To 831 If intnn = 30 Then intss = 30 Else intss = 20 If intnn = 30 Then intss = 25 Else intss = 10