|

楼主 |
发表于 2023-1-23 12:57
|
显示全部楼层
本帖最后由 ysr 于 2023-1-23 05:32 编辑
改了一下程序代码如下:
Private Sub Command1_Click()
Dim a, b, c
a1 = Val(Text2)
a = 1
Do While a ^ 2 <= a1 ^ 3
b = 1
Do While b ^ 2 <= a1 ^ 3
c = 1
Do While c ^ 2 <= a1 ^ 3
y = a ^ 2 + b ^ 2 + c ^ 2
If y = a1 ^ 3 And InStr(Sqr(a ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(c ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(a ^ 2 + c ^ 2), ".") = 0 Then
s = s & a1 & "^3=" & a & "^2+" & b & "^2+" & c & "^2" & vbCrLf
s1 = s1 + 1
ElseIf InStr(Sqr(a ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(c ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(a ^ 2 + c ^ 2), ".") = 0 Then
s3 = s3 + 1
s2 = s2 & "/g=" & Sqr(a ^ 2 + b ^ 2 + c ^ 2) & "d=" & Sqr(a ^ 2 + b ^ 2) & "e=" & Sqr(c ^ 2 + b ^ 2) & "f=" & Sqr(a ^ 2 + c ^ 2) & "a=" & a & "b=" & b & "c=" & c & vbCrLf
Else
s = s
End If
c = c + 1
Loop
b = b + 1
Loop
a = a + 1
Loop
If s1 > 0 Then
Text1 = "完美长方体有" & Val(s1) & "组解:" & s
Else
Text1 = "完美长方体有" & Val(s1) & "组解:" & s & "不完美长方体有" & Val(s3) & "组:" & s2
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
|
|