Private Sub Command1_Click()
Dim a, b, c
a = Val(Text1)
s = 1
Do While Val(s) < Val(a)
t = s + 1
Do While Val(t) < Val(1 + 2 ^ 0.5) * s
m1 = 6 * t ^ 2 * s ^ 2 + t ^ 4 + s ^ 4 + 4 * t * s ^ 3 - 4 * t ^ 3 * s
m = Sqr(m1)
If InStr(m, ".") = 0 Then
s1 = s1 + 1
s2 = s2 & "s=" & s & " t=" & t & " m=" & m & vbCrLf
Else
s2 = s2
End If
t = t + 1
Loop
s = s + 1
Loop
If Val(s1) > 0 Then
Text2 = s2
Else
Text2 = "s=" & s & " wu jie"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""