青岛科技大学vb答案实验四

实验四 循环结构程序设计（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值", 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 时的运行结果的界面截下来粘贴在下面：

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

Next b

Text1.Text = c

End Sub

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

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. 编写一个程序，点击窗体时在窗体上输出所有水仙花数（水仙花数是指一个三位十进制正整数，该数的各位数字的立方和等于该数本身，例如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片瓦，大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？

要求：单击窗体将结果显示在窗体上。

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; "大马" & a & "匹"; Tab; "小马" & b & "匹"; Tab; "马驹" & c & "匹" Print "************************************"

End If

Next b

Next a

Print "共有" & d & "种方法"

End Sub

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

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

错误 For a = 0 To 100

For b = 0 To (100 - a)

For c = 0 To (100-a-b)

If (3 * a + 2 * b + c / 2) = 100 Then

d = d + 1

Print d; Tab; "大马" & a & "匹"; Tab; "小马" & b & "匹"; Tab; "马驹" & c & "匹" Print "************************************"

End If

Next c

Next b

Next a

运行后结果远远超出范围，总数也不是一百匹马

改正：c不是循环结构，而是确定的值c = 100 - a - b

本文来源：https://www.bwwdw.com/article/16oj.html