|

楼主 |
发表于 2024-7-23 20:27
|
显示全部楼层
代码如下:
Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
a = 2
Do While a <= a1
b = 1
Do While b <= a1
x = a + b
y = a - b
z = a
p = 2 * b
q = a ^ 2 + b ^ 2
X1 = x ^ (1 / 2): Y1 = Abs(y) ^ (1 / 2): z1 = z ^ (1 / 2): p1 = p ^ (1 / 2): q1 = q ^ (1 / 2)
If InStr(Y1, ".") = 0 And InStr(z1, ".") = 0 And InStr(X1, ".") = 0 And InStr(X1, ".") = 0 Then
s = s + 1
s1 = s1 & "a=" & a & " b=" & b & " x=" & x & " y=" & y & " z=" & z & " p=" & p & " q=" & q & vbCrLf
Else
s = s
End If
b = b + 1
Loop
a = a + 1
Loop
If s > 0 Then
Text2 = "a1=" & a1 & " s=" & s & vbCrLf & s1
Else
Text2 = "wu jie"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub |
|