御魂忍无修3636:一个VB问题
来源:百度文库 编辑:高校问答 时间:2024/10/02 17:57:57
编辑一个程序,
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.