1、 取1元、2元、5元纸币共10张，使其总和为24元，用流程图描述、并用VB写出算法。
2、 包装600个变形金刚，要求：
（1）包装的规格分别是：小盒（每盒2个）、中盒（每盒5个）和大盒（每盒8个）；
（2）每种规格的盒数都不能为0。
用VB设计此算法。
3、试设计一个算法实现下图的打印
*
**
***
****
4、用VB写一个算法，列举出100以内的所有勾股数。
參考答案:1.
'设1元纸币 x 张,2元纸币 y 张,5元纸币 z 张
Private Sub Command1_Click()
For x = 1 To 8
For y = 1 To 8
For z = 1 To 8
If (x * 1 + y * 2 + z * 5 = 24) And (x + y + z = 10) Then
Print "1元纸币" + Str(x) + "张 2元纸币" + Str(y) + "张 5元纸币" + Str(z) + "张"
End If
Next z
Next y
Next x
End Sub