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

实训五选择程序设计 一 实训目的1 掌握If Then Else语句的用法 2 掌握SelectCase EndSelect语句的用法 二 实训内容1 If Then Else语句 实训要求 已知三角形的三条边 求三角形的面积 要求 三条边由文本框输入 实训步骤 第1步 在窗体上创建5个标签 4个文本框和命令按钮 第2步 控件的初始属性设置后的界面如图所示 第3步 编写代码 SX5 1 vbpPrivateSubCommand1 Click 计算按钮a Val Text1 Text b Val Text2 Text c Val Text3 Text IfThenp a b c 2s Sqr p p a p b p c Text4 Text ElseText4 Text 数据错误 EndIfEndSub 清除按钮 PrivateSubCommand2 Click Text1 Text Text2 Text Text3 Text Text4 Text Text1 SetFocusEndSubPrivateSubCommand3 Click 结束按钮EndEndSub运行程序后 在a b c中输入数据后单击 计算 按钮 其界面如图所示 2 做一做 利用If Then Else语句编写求函数的值的程序 要求只要在文本框Text1中输入自变量x的值 就在标签label1上显示函数值 界面如图 根据题意 在窗体上添加一个文本框控件Text1和标签控件label1 代码应包含在Text1 change事件中 sx5 2 vbp 3 做一做 编程检查文本框中输入的表达式中圆括号是否配对 并显示相应的结果 要求 边输入 边统计 以回车符作为表达式输入结束 sx5 3 VBP 4 SelectCase EndSelect语句 实验要求 下表是华中航空总公司机票打折表 试根据此表编写程序 日期 机票数从文本框中输入 打折情况在窗体上输出 Sx5 4 vbp 实验步骤 第1步 在窗体上添加6个标签Label1 Label6 Label1 Label5的Caption属性依次为 请输入日期 月 日 请输入订票数 张 Label6的Caption属性设计时为空白 运行时用来显示优惠率 添加3个文本框控件Text1 Text3 添加一个命令按钮Command1 机票优惠率表 要求 1 双击Text1可以取系统的日期作为输入日期2 单击Text1清空所有文本框的内容 单击其他文本框 只清空被单击的文本框的内容 3 当按回车键时 焦点自动跳到下一个文本框 第2步 控件的初始属性设置后的界面如图所示 第3步 编写代码 PrivateSubCommand1 Click DimintnnAsLong 订票数量DimintssAsInteger strdateAsInteger 优惠率 日期intnn Clng Text3 Text strdate Cint Trim Text1 Text Trim Text2 Text SelectCaseCase428To431 51To57 928To931 101To107Ifintnn 30Thenintss 35Elseintss 15Case71To79 710To731 81To89 810To831Ifintnn 30Thenintss 30Elseintss 20Ifintnn 30Thenintss 25Elseintss 10EndSelectLabel6 Caption 您所订机票优惠率为 str intss EndSub 另外 可以取系统的日期作为输入日期 该事件可以指定为Text1 DbClick事件 即双击Text1将系统的月份和日期分别取到文本框Text1和Text2中 其代码应为 PrivateSubText1 DblClick Text1 Text Text2 Text EndSub当要重新输入数据时 可以自动清空各文本框的内容 其中单击Text1清空所有文本框的内容 单击其他文本框 只清空被单击的文本框的内容 PrivateSubText1 Click Text1 Text Text2 Text Text3 Text EndSub PrivateSubText2 Click Text2 Text EndSubPrivateSubText3 Click Text3 Text EndSub 此外 还应当按回车键时 焦点自动跳到下一个文本框 PrivateSubText1 KeyPress KeyAsciiAsInteger IfKeyAscii 13ThenText2 SetFocusEndSubPrivateSubText2 KeyPress KeyAsciiAsInteger IfKeyAscii 13ThenText3 SetFocusEndSubPrivateSubText3 KeyPress KeyAsciiAsInteger IfKeyAscii 13Then