《计算机VB简单编程题目实训五.ppt》由会员分享，可在线阅读，更多相关《计算机VB简单编程题目实训五.ppt（12页珍藏版）》请在三一办公上搜索。
1、实训五 选择程序设计,一、实训目的1、掌握IfThenElse 语句的用法。2、掌握Select CaseEnd Select语句的用法。二、实训内容1、If Then Else 语句【实训要求】已知三角形的三条边，求三角形的面积。要求：三条边由文本框输入。【实训步骤】第1步：在窗体上创建5个标签、4个文本框和命令按钮。,第2步：控件的初始属性设置后的界面如图所示：,第3步：编写代码：SX5_1.vbpPrivate Sub Command1_Click()计算按钮 a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If Then p=(a+
2、b+c)/2 s=Sqr(p*(p-a)*(p-b)*(p-c)Text4.Text=Else Text4.Text=数据错误 End IfEnd Sub,清除按钮,Private Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text1.SetFocusEnd SubPrivate Sub Command3_Click()结束按钮 EndEnd Sub运行程序后，在a、b、c中输入数据后单击“计算”按钮，其界面如图所示：,2、做一做,利用If.Then.Else 语句编写求函数 的值的程序，要求只要在文本框Te
3、xt1中输入自变量x的值，就在标签 label1上显示函数值。界面如图：根据题意，在窗体上添加一个文本框控件Text1和标签控件label1，代码应包含在Text1_change事件中。sx5_2.vbp,3、做一做,编程检查文本框中输入的表达式中圆括号是否配对，并显示相应的结果。要求：边输入，边统计，以回车符作为表达式输 入结束。sx5_3.VBP,4、Select Case End Select 语句,【实验要求】下表是华中航空总公司机票打折表。试根据此表编写程序。日期、机票数从文本框中输入，打折情况在窗体上输出。Sx5_4.vbp【实验步骤】第1步：在窗体上添加6个标签Label1 La
4、bel6，Label1 Label5的Caption属性依次为：“请输入日期”、“月”、“日”、“请输入订票数”、“张”，Label6的Caption属性设计时为空白，运行时用来显示优惠率。添加3个文本框控件Text1Text3，添加一个命令按钮Command1。,机票优惠率表,要求：,1、双击Text1可以取系统的日期作为输入日期 2、单击Text1清空所有文本框的内容，单击其他文本框，只清空被单击的文本框的内容。3、当按回车键时，焦点自动跳到下一个文本框。第2步：控件的初始属性设置后的界面如图所示：,第3步：编写代码。,Private Sub Command1_Click()Dim int
5、nn 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
6、 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清空所有文本框的内容
7、，单击其他文本框，只清空被单击的文本框的内容。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.SetFocusEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then Text3.SetFocusEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then Command1.SetFocusEnd Sub运行程序，检验运行结果是否正确。,5、做一做,输入若干字符，统计有多少个元音字母，有多少个其他字母，不区分大小写，直到按 Enter 键结束，并显示结果，如图。sx5_5.VBP,
