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

更新时间:2023-08-16 04:44:01 阅读量: 教学研究 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

实验四 循环结构程序设计(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

Top