计算机VB简单编程题目实训五.ppt

实训五 选择程序设计,一、实训目的 1、掌握IfThenElse 语句的用法。 2、掌握Select CaseEnd Select语句的用法。 二、实训内容 1、 If Then Else 语句 【实训要求】 已知三角形的三条边，求三角形的面积。要求：三条边由文本框输入。 【实训步骤】 第1步：在窗体上创建5个标签、4个文本框和命令按钮。,第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个文本框控件Text1Text3，添加一个命令按钮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 End Select Label6.Caption = “您所订机票优惠率为:“ & str(intss) & “%“ End Sub,另外，可以取系统的日期作为输入日期,该事件可以指定为Text1_DbClick事件，即双击Text1将系统的月份和日期分别取到文本框Text1 和Text2中 ，其代码应为： Private Sub Text1_DblClick() Text1.Text = Text2.Text = End Sub 当要重新输入数据时，可以自动清空各文本框的内容。其中单击Text1清空所有文本框的内容，单击其他文本框，只清空被单击的文本框的内容。 Private Sub Text1_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ End Sub,Private Sub Text2_Click() Text2.Text = “ End Sub Private Sub Text3_Click() Text3.Text = “ End Sub,此外，还应当按回车键时，焦点自动跳到下一个文本框：,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii =