实验四 程序控制结构

《实验四 程序控制结构》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验四程序控制结构一、实验目的1．掌握顺序结构语句（赋值、输出、注释、程序终止等）的使用。2．掌握单分支、双分支、多分支条件语句的使用。3．掌握For语句、While语及Do语句的各种形式的使用。4．掌握如何控制循环条件，防止死循环或不循环。二、实验内容设计一个程序，从文本框中输入一个整数，判断该整数的奇偶性，并将结果显示在一个标签上。要求该程序可反复输入。1)创建界面（（将设计好的界面截下来粘贴在下面）2)以表格形式进行属性设置（写出所有非默认属性值的设置）3)代码设计PrivateSubCommand1_Click()DimxA

2、sIntegerx=Val(Text1.Text)IfxMod2=0ThenLabel2.Caption=x&"是偶数。"ElseLabel2.Caption=x&"是奇数。"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Label2.Caption=""EndSub2)调试过程记录（错误情况及改正方法，不得少于三条）2．创建一个窗体，通过文本框接收数据，计算期末总成绩、平均成绩，再评定等级。等级评定标准是：平均分90~100为“优秀”，平均分81~90为“良好”，平均分60~8

3、0为“中等”，平均分60以下为“差”，程序运行结果如下所示。（参考教材P87例5.3）1）代码设计2）运行后的结果（将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）3.设计一个程序实现输入销售金额，系统自动算出该销售员的奖金，要求用文本框输入销售额，奖金显示在标签。商场对售货员的奖励机制如下：若销售额大于或等于20000元，则提取10%作为奖励；若销售额大于或等于15000元小于20000元则提取8%作为奖励；若销售额大于或等于10000元小于15000元则提取6%作为奖励；若销售额小于或等于1

4、0000元，则提取5%作为奖励。PrivateSubCommand1_Click()Dims!s=Val(Text1.Text)Ifs>=20000ThenLabel3.Caption=s*0.1ElseIfs>=15000ThenLabel3.Caption=s*0.08ElseIfs>=10000ThenLabel3.Caption=s*0.06ElseLabel3.Caption=s*0.05EndIfEndSub1.设计一个程序：用For循环语句计算1~n(正整数)的所有的偶数之和。要求:程序运行后，单击窗体弹出一个输入框由

5、用户输入n的值，然后在窗体上显示计算的结果。1）代码设计如下PrivateSubForm_Click()Dimn%,i%,s&n=Val(InputBox("请输入一个正整数："))s=0PrintPrintFori=1TonIfiMod2=0Thens=s+iEndIfNextiPrintTab(4);"1~"&n&"(正整数)的所有的偶数之和为"&sEndSub2）将输入100时的运行结果的界面截下来粘贴在下面：3）调试过程记录（错误情况及改正方法）2．设计程序：求100以内所有19的倍数的数。并求这些数的和。要求：点击“显示”

6、按钮时，将结果显示在窗体上。点击“求和”按钮时，将结果显示在一个文本框中。1）代码设计如下Dims&PrivateSubCommand1_Click()Dimi%PrintFori=1To100IfiMod19=0ThenPrint“100以内所有19的倍数的数”&i;s=s+iEndIfNextiEndSubPrivateSubCommand2_Click()Text1.Text=sEndSub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）3.设计一个程序：我国今年的国民生产总值为45600亿元，若今后

7、每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？要求：单击“计算”按钮时，将计算的结果显示在窗体上。1）代码设计PrivateSubCommand1_Click()DimpAsDoubleDimrAsSingleDimnAsIntegerp=45600r=0.09n=0PrintDoUntilp>=45600*2p=p*(1+r)n=n+1LoopPrintTab(3);n;"年后"&"能实现国民生产总值翻一番"EndSub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）4.编写一个程序，点击

8、窗体时在窗体上输出100到999内所有水仙花数（水仙花数是指一个三位十进制正整数，该数的各位数字的立方之和等于该数本身，例如153是个水仙花数，因为1^3+5^3+3^3=153）。1）代码设计PrivateSubForm_Click