实验三 选择结构程序设计

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

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

2、ox("请输入第3个数")Ifa>bAnda>cThenIfc>bThent=b:b=c:c=tEndIfEndIfIfb>aAndb>cThenIfa>cThent=a:a=b:b=tElset=a:a=b:b=c:c=tEndIfEndIfIfc>aAndc>bThenIfb>aThent=a:a=c:c=dElset=b:b=a:a=c:c=tEndIfEndIfPrint"三个数由大到小的顺序是";a;">";b;">";cEndSub62）运行后的结果（将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况

3、及改正方法，不得少于三条）1、在比较时用到一个变量作为介质帮助他们转换数字2、t=aa=bb=tt为介质2．设计一个程序，从文本框中输入一个整数，判断该整数的奇偶性，并将结果显示在一个标签上。要求该程序可反复输入。61)代码设计如下：PrivateSubCommand1_Click()IfVal(Text1)Mod2=0ThenLabel1.Caption="输入的数为偶数"ElseLabel1.Caption="输入的数为奇数"EndIfEndSubPrivateSubCommand2_Click()Text1.Text

4、=""EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubText1_Change()EndSub2）运行结果（（将运行后的界面截下来粘贴在下面）2)调试过程记录（错误情况及改正方法，不得少于三条）61、从文本中的数值对变量赋值方式VAL(text1)2、判断语句使用ifthen3、Text1.SetFocussetfocus来决定光标位置2)3.设计一个程序实现输入销售金额，系统自动算出该销售员的奖金，要求用文本框输入销售额，奖金显示在标签。（建议用ElseIf语句编程）

5、商场对售货员的奖励机制如下：若销售额大于或等于20000元，则提取10%作为奖励；若销售额大于或等于15000元小于20000元则提取8%作为奖励；若销售额大于或等于10000元小于15000元则提取6%作为奖励；若销售额小于或等于10000元，则提取5%作为奖励。1）代码设计PrivateSubCommand1_Click()DimnAsSingle,bAsSinglen=Val(Text1)SelectCasenCaseIs>=2000b=n*0.1CaseIs>=1500b=n*0.08CaseIs>=1000b=n

6、*0.06CaseElseb=n*0.05EndSelectLabel2.Caption="本月该职工的奖金为"&b&"元"EndSubPrivateSubCommand2_Click()Text1.Text=""EndSubPrivateSubCommand3_Click()EndEndSub62）运行后的结果（将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）1、Elseif语句当应经判断不在上一范围时下面判断条件要再次把范围画出2、Select语句不用再次划定范围前一范围以去除4.

7、编写一个程序，将分数转换成等级。要求用InputBox函数输入一个百分制成绩，在窗体上输出不及格（小于60分）、及格（大于等于60分小于75分）、良好（大于等于75分小于90分）和优秀（90分以上）。如果输入的成绩小于0或大于100，则用MsgBox提示错误并重新输入。（建议用、SelectCase语句编程）1）代码设计PrivateSubForm_Load()ShowDimxAsSingle,yAsStringx=Val(InputBox("请输入分数","提示"))SelectCasexCaseIs>=90y="优秀"

8、CaseIs>=75y="良好"6CaseIs>=60y="及格"CaseElsey="不及格"EndSelectPrint"你输入的分数是:";xPrint"对应的成绩的等级是:";yEndSub2）将输入78分时，程序运行的结果图截下粘贴在下面。3）调试过程记录（错误情况及改正方法，不得少于三条）1