实验三 VB程序输入输出与控制结构.docVIP

实验三 VB程序输入输出与控制结构 【实验目的】： 1、掌握常用输入输出控件的使用方法； 2、熟悉InputBox（）函数、MsgBox（）函数和MsgBox过程的使用方法； 3、理解选择结构的含义，掌握IF语句、Select Case语句的使用方法； 4、理解循环结构的含义，掌握For…Next语句、While…Wend语句、DO…Loop语句的使用方法； 5、掌握IIF函数使用方法； 6、理解嵌套的概念，掌握嵌套的使用方法，尤其是循环嵌套。 【实验学时】：8学时 【实验内容】： 在K盘建立名称为“班名学号姓名”文件夹，例如：养殖110140张三，之后在名字下面建立“实验3”文件夹保存本次实验作业。 1、根据实验指导书37页指引，对案例1和案例2进行操作，不需要存盘。 2、根据实验指导书38页案例3的要求编写程序，存盘为：实验3.1.2Equation.frm和实验3.1.2Equation.vbp。 控件属性表设置： 默认控件名 设置控件名(Name) 标题(Caption) 文本（Text） Form1 frmEquation 实验3.1.2 求二元一次方程的根 无定义 Label1 lblA 长 无定义 Label2 lblB 宽 无定义 Label3 lblC × 无定义 Text1 txtA 无定义 清空 Text2 txtB 无定义 清空 Text3 txtC 无定义 清空 Command1 cmdCount 计算并输出方程的根 无定义 Command2 cmdClear 清除 无定义 Command3 cmdExit 退出 无定义 运行界面： 3、编程解决鸡兔同笼问题，存盘为：实验3.1.3ChickenRabbit.frm和实验3.1.3 ChickenRabbit.vbp。 已知：一个笼子中有鸡x只，兔y只，每只鸡2只脚兔4只脚，已知鸡兔总数h，总脚为f。由：x+y=h和2x+4y=f得出：x=(4h-f)/2和y=(f-2h)/2。 要求：用InputBox（）函数输入鸡兔总数h，总脚为f，用MsgBox过程输出鸡和兔的数量。 控件属性表设置： 默认控件名 设置控件名(Name) 标题(Caption) 文本（Text） Form1 frmCandR 实验3.1.3 鸡兔同笼问题 无定义 Label1 lblA 长 无定义 Label2 lblB 宽 无定义 Label3 lblC × 无定义 Text1 txtA 无定义 清空 Text2 txtB 无定义 清空 Command1 cmdCount 计算并输出鸡和兔的数目 无定义 Command2 cmdClear 清除 无定义 Command3 cmdExit 退出 无定义 运行界面： 4、编写程序计算火车站行李费用，存盘为：实验3.2.1Paytrain.frm和实验3.2.1Paytrain.vbp。 假定：火车站行李费的收费标准是50kg以内（包括50kg）0.20/kg，超过部分0.50/kg。 要求根据输入的任意重量，计算出应付的行李费，采用行IF语句实现。 控件属性表设置： 默认控件名 设置控件名(Name) 标题(Caption) 文本（Text） Form1 frmPaytrain 实验3.2.1火车行李费 无定义 Label1 lblWeight 行李重量 无定义 Label2 lblPay 应付费用 无定义 Label3 lblkg KG 无定义 Label4 lblyuan 元 无定义 Text1 txtWeight 无定义 清空 Text2 txtPay 无定义 清空 Command1 cmdCount 计算 无定义 Command2 cmdClear 清除 无定义 Command3 cmdExit 退出 无定义 运行界面： 5、编写程序实现对成绩等级的判别，存盘为：实验3.2.2Scoregrade.frm和3.2.2Scoregrade.vbp。 要求：根据输入的任意0-100之间的成绩 x，当90≤x≤100时，输出“优秀”；当80≤x＜90 时，输出“良好”；当 70≤x＜80 时，输出“中”；当60≤x＜70 时，输出“及格”，当 x＜60 时，输出“不及格”。当用户输入分数小于0和大于100时候，使用Msgbox过程提醒用户输入错误，提示信息为“请输入0-100之间数值”。 分别采用行IF，块IF和Select Case三种方式实现。 控件属性表设置： 默认控件名 设置控件名(Name) 标题(Caption) 文本（Text） Form1 frm Scoregrade 实验3.2.2成绩等级判定 无定义 Label1 lblIn 输入成绩 无