实验四-循环结构程序设计.doc

实验四 循环结构程序设计（4个学时）
一 、实验目的
1. 掌握For循环语句的使用。
2. 掌握单Do循环语句的使用。
3. 掌握如何控制循环条件，防止死循环或不循环。

二 、实验内容

1. 设计一个程序：用For 循环语句计算1~ n (正整数)的所有的偶数之和。
要求: 程序运行后，单击窗体弹出一个输入框由用户输入n的值，然后在窗体上显示计算的结果。

1）代码设计如下

Option Explicit
Dim n As Integer, sum As Integer, m As Integer
Private Sub Form_Load()
Show
n = Val(InputBox("请输入n的值"))
sum = 0
For m = 1 To n
If m Mod 2 = 0 Then sum = sum + m
Next m
Print " 1-n间所有偶数这和为： "; sum
End Sub

2）将输入100 时的运行结果的界面截下来粘贴在下面：

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

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

1）代码设计如下

Option Explicit
Dim n As Integer, sum As Integer
Private Sub Command1_Click()
For n = 1 To 100
If n Mod 19 = 0 Then Print n: sum = sum + n
Next n
End Sub

Private Sub Command2_Click()
Text1.Text = sum
End Sub

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

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

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

1）代码设计

Option Explicit
Dim n As Integer, s As Double
Private Sub Command1_Click()
s = 45600
n = 0
Do Until s >= 2 * 45600
s = s * 1.09
n = n + 1
Loop
Print n
End Sub

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

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

4. 编写一个程序，点击窗体时在窗体上输出所有水仙花数（水仙花数是指一个三位十进制正整数，该数的各位数字的立方和等于该数本身，例如153是个水仙花数，因为1^3+5^3+3^3 =153）。

1）代码设计

Option Explicit
Dim m As Long, a As Integer, b As Integer, c As Integer
Private Sub Form_Load()
Show
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
m = a * 100 + b * 10 + c * 1
If m = a ^ 3 + b ^ 3 + c ^ 3 Then Print m
Next c
Next b
Next a

End Sub

2）将程序运行的结果图截下粘贴在下面。

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

5. 编写一个程序解百马百瓦古题：大、小马和马驹共100匹，共驮100片瓦，大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？
要求：单击窗体将结果显示在窗体上。

1）代码设计

Option Explicit
Dim a As Integer, b As Integer, c As Integer

Private Sub Form_Load()
Show
For a = 1 To 100
For b = 1 To 100
For c = 1 To 100
If 3 * a + b * 2 + 0.5 * c = 100 And a + b + c = 100 Then Print a; b; c
Next c
Next b
Next a

End Sub

2）将程序运行的结果图截下粘贴在下面。

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

9