VB编程问题

个数的关系是：a^2+b^2=c^2。编写程序，输入20以内满足上述关系的整数组合，例如3，4，5 就是一个整数组合。  
还有的一个问题就是：
我国现有的人口为13亿，设年增长率为1% ，编写程序，计算多少年后增加到20亿，请写出程序vb代码，并且注释一下。

追问：对， 我忘记了n = n + n * 0.01，把它写成了n=n*0.01 忘记把n=13亿的人口加上了.谢谢.

答案：第一题：
Dim a, b, c As Integer
For a = 1 To 20
For b = 1 To 20
For c = 1 To 20
If c ^ 2 = a ^ 2 + b ^ 2 Then
MsgBox a & "," & b & "," & c
End If
Next
Next
Next
运行时会出现重复数组 如3,4,5和4,3,5
过滤重复数组可以把For b = 1 To 20改成For b = a To 20
For语句是循环的
For……Next构成循环体
要循环的命令是放在For和Next之间的 而不是放在外面
第二题：
Dim i As Integer, n As Double
n = 13
i = 0
Do While n <= 20 '或 Do Until n>20
n = n + n * 0.01
i = i + 1
Loop
MsgBox i
绝不应该写n=n*0.01
n永远也大于不了20
注意n的变量类型是Double或Single，用Long或Integer会取数值的整数部分（13+13*0.01=13.13取整13，永远得不出结果）
谁还在用VB？？

其实不管什么语言，只要知道程序思路就OK
比如那个增加到20亿的例子。
可以使用循环语句，while。设定条件到达什么就终止循环，再设定一个循环因子（一般是一个变量i），这样最后输出这个循环因子，那不就知道多少年了么？

如果你还明白，我再给你写程序。首先我觉得还是要自己思考下，现在你不会，那么只有给你说思路，如果有思路你还不会，那么你就别学程序设计了哈！一个忠告！

上一个：VB编程题
下一个：关于VB编程