实验四 循环结构程序设计（4个学时）
一 、实验目的
1. 掌握For循环语句的使用。 2. 掌握单Do循环语句的使用。
3. 掌握如何控制循环条件，防止死循环或不循环。
二 、实验内容
1. 设计一个程序：用For 循环语句计算1~ n (正整数)的所有的偶数之和。
要求: 程序运行后，单击窗体弹出一个输入框由用户输入n的值，然后在窗体上显示计算的结果。 1）代码设计如下
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer a = InputBox(\请输入n值\For b = 2 To a
If b Mod 2 = 0 Then c = c + b End If Next b Print c End Sub
2）将输入100 时的运行结果的界面截下来粘贴在下面：
1
3）调试过程记录（错误情况及改正方法）
2．设计程序：求100 以内所有19的倍数的数。并求这些数的和。 要求：点击“显示”按钮时，将结果显示在窗体上。
点击“求和”按钮时，将结果显示在一个文本框中。
1）代码设计如下
Dim b As Integer, c As Integer Private Sub Command1_Click() For b = 1 To 100 If b Mod 19 = 0 Then Print b End If Next b End Sub
Private Sub Command2_Click() For b = 1 To 100 If b Mod 19 = 0 Then c = c + b End If
2
Next b
Text1.Text = c End Sub
2）将运行结果的界面截下来粘贴在下面
3
3）调试过程记录（错误情况及改正方法）
3. 设计一个程序：我国今年的国民生产总值为45600亿元，若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？
要求：单击“计算”按钮时，将计算的结果显示在窗体上。
1）代码设计
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Integer a = 45600: b = 2 * a: c = 0 Do While a <= b a = 1.09 * a c = c + 1 Loop Print c End Sub
2）将运行结果的界面截下来粘贴在下面
3）调试过程记录（错误情况及改正方法）
4. 编写一个程序，点击窗体时在窗体上输出所有水仙花数（水仙花数是指一个三位十进制正整数，
4
该数的各位数字的立方和等于该数本身，例如153是个水仙花数，因为1^3+5^3+3^3 =153）。
1）代码设计
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9
If (100 * a + 10 * b + c) = (a ^ 3 + b ^ 3 + c ^ 3) Then Print a & b & c End If Next c Next b Next a End Sub
2）将程序运行的结果图截下粘贴在下面。
3）调试过程记录（错误情况及改正方法）
5. 编写一个程序解百马百瓦古题：大、小马和马驹共100匹，共驮100片瓦，大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？ 要求：单击窗体将结果显示在窗体上。
5
1）代码设计
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer d = 0
For a = 1 To 100
For b = 1 To (100 - a) c = 100 - a - b
If (3 * a + 2 * b + c / 2) = 100 Then d = d + 1
Print d; Tab; \大马\匹\小马\匹\马驹\匹\ End If Next b Next a
Print \共有\种方法\End Sub
2）将程序运行的结果图截下粘贴在下面。
3）调试过程记录（错误情况及改正方法）
6
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库青岛科技大学VB上机答案-实验四在线全文阅读。
相关推荐：