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

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片瓦，大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？

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