实验四 程序控制结构.doc

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

以表格形式进行属性设置（写出所有非默认属性值的设置）

代码设计
PrivateSubCommand1_Click()
DimxAsInteger
x=Val(Text1.Text)
IfxMod2=0Then
Label2.Caption=x&"是偶数。"
Else
Label2.Caption=x&"是奇数。"
EndIf
EndSub

PrivateSubCommand2_Click()
Text1.Text=""
Label2.Caption=""
EndSub

调试过程记录（错误情况及改正方法，不得少于三条）

2．创建一个窗体，通过文本框接收数据，计算期末总成绩、平均成绩，再评定等级。等级评定标准是：平均分90~100为“优秀”，平均分81~90为“良好”，平均分60~80为“中等”，平均分60以下为“差”，程序运行结果如下所示。（参考教材P87例5.3）
1）代码设计

2）运行后的结果（将运行结果的界面截下来粘贴在下面）

3）调试过程记录（错误情况及改正方法，不得少于三条）

3.设计一个程序实现输入销售金额，系统自动算出该销售员的奖金，要求用文本框输入销售额，奖金显示在标签。
商场对售货员的奖励机制如下：若销售额大于或等于20000元，则提取10%作为奖励；若销售额大于或等于15000元小于20000元则提取8%作为奖励；若销售额大于或等于10000元小于15000元则提取6%作为奖励；若销售额小于或等于10000元，则提取5%作为奖励。

PrivateSubCommand1_Click()
Dims!
s=Val(Text1.Text)
Ifs>=20000Then
Label3.Caption=s*0.1
ElseIfs>=15000Then
Label3.Caption=s*0.08
ElseIfs>=10000Then
Label3.Caption=s*0.06
Else
Label3.Caption=s*0.05
EndIf
EndSub
1.设计一个程序：用For循环语句计算1~n(正整数)的所有的偶数之和。要求:程序运行后，单击窗体弹出一个输入框由用户输入n的值，然后在窗体上显示计算的结果。
1）代码设计如下
PrivateSubForm_Click()
Dimn%,i%,s&
n=Val(InputBox("请输入一个正整数："))
s=0
Print
Print
Fori=1Ton
IfiMod2=0Then
s=s+i
EndIf
Nexti
PrintTab(4);"1~"&n&"(正整数)的所有的偶数之和为"&s
EndSub
2）将输入100时的运行结果的界面截下来粘贴在下面：

3）调试过程记录（错误情况及改正方法）

2．设计程序：求100以内所有19的倍数的数。并求这些数的和。要求：点击“显示”按钮时，将结果显示在窗体上。
点击“求和”按钮时，将结果显示在一个文本框中。

1）代码设计如下
Dims&
PrivateSubCommand1_Click()
Dimi%
Print
Fori=1To100
IfiMod19=0Then
Print“100以内所有19的倍数的数”&i;
s=s+i
EndIf
Nexti
EndSub
PrivateSubCommand2_Click()
Text1.Text=s
EndSub

2）将运行结果的界面截下来粘贴在下面

3）调试过程记录（错误情况及改正方法）

3.设计一个程序：我国今年的国民生产总值为45600亿元，若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？
要求：单击“计算”按钮时，将计算的结果显示在窗体上。

1）代码设计
PrivateSubCommand1_Click()
DimpAsDouble
DimrAsSingle
DimnAsInteger
p=45600
r=0.09
n=0
Print

DoUntilp>=45600*2
p=p*(1+r)
n=n+1
Loop
PrintTab(3);n;"年后"&"能实现国民生产总值翻一番"
EndSub

2）将运行结果的界面截下来粘贴在下面

3）调试过程记录（错误情况及改正方法）

4.编写一个程序