实验三 选择结构程序设计72717new

《实验三 选择结构程序设计72717new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验三选择结构程序设计（4个学时）一、实验目的1.掌握逻辑表达式的正确书写方法。2.掌握单分支和双分支语句的使用。3.掌握多条件多分支选择结构的使用二、实验内容1.设计一个程序将三个数进行按从大到小的顺序排列。要求：用InputBox函数分别输入三个整数，将结果显示在窗体上。1）代码设计如下PrivateSubForm_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegera=InputBox("请输入a的值","输入a","")b=InputBox("请输入b的值",

2、"输入b","")c=InputBox("请输入c的值","输入c","")Ifa>=bThenIfa>=cThenIfb>=cThenPrinta;b;cElsePrinta;c;bEndIfElsePrintc;a;bEndIfElseIfb>=cThenIfa>=cThenPrintb;a;cElsePrintb;c;aEndIfElsePrintc;b;aEndIfEndIfEndSub2）运行后的结果（将运行结果的界面截下来粘贴在下面）63）调试过程记录（错误情况及改正方法，不得少于三条）对ift

3、hen结构掌握不牢固，忘记书写endif，以及包含问题思路不是很清晰2．设计一个程序，从文本框中输入一个整数，判断该整数的奇偶性，并将结果显示在一个标签上。要求该程序可反复输入。1)代码设计如下：PrivateSubCommand1_Click()IfnMod2=0ThenLabel1.Caption="偶数"ElseLabel1.Caption="奇数"EndIfEndSubPrivateSubForm_Load()n=InputBox("请输入一个整数","输入","")Label2.Caption="

4、您输入的数字是："EndSub2）运行结果（（将运行后的界面截下来粘贴在下面）62)调试过程记录（错误情况及改正方法，不得少于三条）3.设计一个程序实现输入销售金额，系统自动算出该销售员的奖金，要求用文本框输入销售额，奖金显示在标签。（建议用ElseIf语句编程）商场对售货员的奖励机制如下：若销售额大于或等于20000元，则提取10%作为奖励；若销售额大于或等于15000元小于20000元则提取8%作为奖励；若销售额大于或等于10000元小于15000元则提取6%作为奖励；若销售额小于或等于10000元，则

5、提取5%作为奖励。1）代码设计PrivateSubCommand1_Click()s=Val(Text1.Text)SelectCasesCaseIs>=20000m=0.1Case15000To19999m=0.086Case10000To14999m=0.06CaseIs<10000m=0.05EndSelectx=s*mText2.Text=xEndSub2）运行后的结果（将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）@1：Case后不能用and来限定范围，只能

6、用to表是有限范围@2：selectcase代码语句要写在commandclick下64.编写一个程序，将分数转换成等级。要求用InputBox函数输入一个百分制成绩，在窗体上输出不及格（小于60分）、及格（大于等于60分小于75分）、良好（大于等于75分小于90分）和优秀（90分以上）。如果输入的成绩小于0或大于100，则用MsgBox提示错误并重新输入。（建议用、SelectCase语句编程）1）代码设计PrivateSubForm_Load()Shown=InputBox("pleaseenterth

7、estudent'sgrade:","input","0")Ifn<60ThenPrint"不及格"ElseIfn>=60Andn<75ThenPrint"及格"ElseIfn>=75Andn<90ThenPrint"良好"ElseIfn>=90Andn<=100ThenPrint"优秀"Elsen=MsgBox("数据超出范围",vbCritical+vbAbortRetryIgnore,"注意")EndIfEndSub2）将输入78分时，程序运行的结果图截下粘贴在下面。63）调试过程记录（错误情况及改正

8、方法，不得少于三条）Formload中输出要加show忘记Endif6