查人人中国名人网粮食是怎么来的:一个VB问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 20:13:35
编辑一个程序，
121+a的平方=b的平方，且a、b均为整数
求a、b的值
多谢。。。
121+a的平方=b的平方，且a、b均为整数
求a、b的值
多谢。。。
枚举法：
dim a as integer
dim b as integer
b=0
a=0
S1:
if a^2+121= b^2 then
text1.text=text1.text & "a=" & a & " b=" & b & vbnewline
goto S1
这从数学角度考虑可看作解直角三角形边长问题，除楼上所说a=0是一解外，a=60是另一解，代码如下：
Option Explicit
Dim a As Integer
Dim b As Double
Private Sub Command1_Click()
For a = 1 To 200
b = Sqr(a ^ 2 + 121)
If b - Int(b) = 0 Then Exit For
Next
Text1 = b
Text2 = a
End Sub
三种结果：
A －－－－－－－－ B
-60－－－－－－－－61
0 －－－－－－－－－11
60 －－－－－－－－ 61
程序：
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Me.Cls
For a = -10000 To 100000
b = Sqr(a ^ 2 + 121)
If b - Int(b) = 0 Then
Me.Print a, b
End If
Next
End Sub
A,B起码有个范围吧。应该有很多的结果，例如A=0,B=11.