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

《计算机VB简单编程题目实训五.ppt》由会员分享，可在线阅读，更多相关《计算机VB简单编程题目实训五.ppt（12页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构实训五实训五 选择程序设计选择程序设计一、实训目的一、实训目的1、掌握、掌握IfThenElse 语句的用法。语句的用法。2、掌握、掌握Select CaseEnd Select语句的用法。语句的用法。二、实训内容二、实训内容1 1、If Then Else If Then Else 语句语句语句语句【实训要求】【实训要求】已知三角形的三条边，求三角形的面积。要求：三条边已知三角形的三条边，求三角形的面积。要求：三条边已知三角形的三条边，求三角形的面积。要求：三条边已知三角形的三条边，求三角形的面积。要求：三条边由文本框输入。由文本

2、框输入。由文本框输入。由文本框输入。【实训步骤】【实训步骤】第第第第1 1步：步：步：步：在窗体上创建在窗体上创建在窗体上创建在窗体上创建5 5个标签、个标签、个标签、个标签、4 4个文本框和命令按钮。个文本框和命令按钮。个文本框和命令按钮。个文本框和命令按钮。2制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构第第2步：步：控件的初始属性设置后的界面如图所示：第第3步：步：编写代码：SX5_1.vbpPrivate Sub Command1_Click()计算按钮计算按钮 a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If T

3、hen p=(a+b+c)/2 s=Sqr(p*(p-a)*(p-b)*(p-c)Text4.Text=Else Text4.Text=数据错误 End IfEnd Sub3制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构 清除按钮清除按钮Private Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text1.SetFocusEnd SubPrivate Sub Command3_Click()结束按钮 EndEnd Sub运行程序后，在a、b、c中输入数据后单击“计算”按钮，其界面如图所示：4制作

4、：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构2 2、做一做、做一做、做一做、做一做 利用If.Then.Else 语句编写求函数 的值的程序，要求只要在文本框Text1中输入自变量x的值，就在标签 label1上显示函数值。界面如图：根根据据题题意意，在在窗窗体体上上添添加加一一个个文文本本框框控控件件Text1和和标标签签控件控件label1，代，代码应码应包含在包含在Text1_change事件中。事件中。sx5_2.vbpy=5制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构3 3、做一做、做一做、做一做、做一做 编程编程检查文本框中输入的表达式中圆括号是否检查文

5、本框中输入的表达式中圆括号是否配对配对，并显示相应的结果。，并显示相应的结果。要求：要求：边输入，边统计，以回车符作为表达式输边输入，边统计，以回车符作为表达式输 入结束。入结束。sx5_3.VBP6制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构4 4、Select Case End Select Select Case End Select 语句语句语句语句【实验要求】下表是华中航空总公司机票打折表。试根据此表编写程序。日期、机票数从文本框中输入日期、机票数从文本框中输入，打折情况在窗体上输出。Sx5_4.vbp【实验步骤】第第1步：步：在窗体上添加6个标签Label1 Lab

6、el6，Label1 Label5的Caption属性依次为：“请输入日期”、“月”、“日”、“请输入订票数”、“张”，Label6的Caption属性设计时为空白，运行时用来显示优惠率。添加3个文本框控件Text1Text3，添加一个命令按钮Command1。7制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构机票优惠率表机票优惠率表 月日订票数（张）优惠率（%）1、2、3、6、11、12全部=3025=3035=3025=3035=3025=3030=30 Then intss=35 Else intss=15 Case 71 To 79,710 To 731,81 To 89,

7、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 Sub10制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构另外，可以取系统的日期作为输入日期另外，可以取系统的日期作为输入日期 该事件可以指定为Text1_DbClick事件，即双击Text1将系统的月份和日期分别取到文本框Text1 和Text2中，其代码应为：Private Sub Text1

8、_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 Sub11制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构此外，还应当按回

9、车键时，焦点自动跳到下一个文本框：此外，还应当按回车键时，焦点自动跳到下一个文本框：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运行程序，检验运行结果是否正确。运行程序，检验运行结果是否正确。12制作：柳淑花制作：柳淑花第第 4 4 章章 选择结构选择结构5、做一做、做一做 输入若干字符，统计有多少个元音字母，有多少个其他字母，不区分大小写，直到按 Enter 键结束，并显示结果，如图。sx5_5.VBP