几个vb小程序

ysr

a1=200 s=9
a=8 b=19 x=27
a=8 b=56 x=64
a=8 b=117 x=125
a=27 b=37 x=64
a=27 b=98 x=125
a=27 b=189 x=216
a=64 b=61 x=125
a=64 b=152 x=216
a=125 b=91 x=216
其中x=a+b.
通过以上数据可以看出来，a，b和a+b之中总有两个是3，4，5，……，n次相邻数（这需要严格证明的，用初等方法就可以证明的，应该容易证明的），所以，a，b和a+b三者不会同时为3，4，5，6，……，n次方数。所以，费马方程的解只能在勾股数中找了，勾股数中没有就没有了。

ysr

a1=100 s=16
a=1 b=1 x=2
a=1 b=8 x=9
a=1 b=27 x=28
a=1 b=64 x=65
a=8 b=1 x=9
a=8 b=8 x=16
a=8 b=27 x=35
a=8 b=64 x=72
a=27 b=1 x=28
a=27 b=8 x=35
a=27 b=27 x=54
a=27 b=64 x=91
a=64 b=1 x=65
a=64 b=8 x=72
a=64 b=27 x=91
a=64 b=64 x=128
其中x=a+b.

ysr

通过以上数据可以看出来，a，b和a+b之中最多有两个是3，4，5，……，n次方数（这需要严格证明的，用初等方法就可以证明的，应该容易证明的）

ysr

Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
a = 1
Do While a <= a1
b = 1
Do While b <= a1
x = a + b
y = b
z = a
p = 2 * b
q = a ^ 2 + b ^ 2
X1 = x ^ (1 / 3): Y1 = Abs(y) ^ (1 / 3): z1 = z ^ (1 / 3): p1 = p ^ (1 / 3): q1 = q ^ (1 / 3)
If InStr(z1, ".") = 0 And InStr(z1, ".") = 0 And InStr(Y1, ".") = 0 And InStr(Y1, ".") = 0 Then
s = s + 1
s1 = s1 & "a=" & a & " b=" & b & " x=" & x & 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

ysr

a1=100 s=9
a=1 b=1 x=2
a=1 b=16 x=17
a=1 b=81 x=82
a=16 b=1 x=17
a=16 b=16 x=32
a=16 b=81 x=97
a=81 b=1 x=82
a=81 b=16 x=97
a=81 b=81 x=162
其中x=a+b.
通过以上数据可以看出来，a，b和a+b之中总有两个是3，4，5，……，n次相邻数（这需要严格证明的，用初等方法就可以证明的，应该容易证明的用二重数学归纳法就可以），所以，a，b和a+b三者不会同时为3，4，5，6，……，n次方数。所以，费马方程的解只能在勾股数中找了，勾股数中没有就没有了。

ysr

Public Function DeleteSpace1(Tmp As String) As String
  '删掉字符串中的换行符和空格的程序
  Dim a As String, b As String
Dim i As Long, j As Long, k As Long

a = Tmp
b = ""
k = Len(a)
For i = 1 To k
j = Asc(Mid(a, i))
If j <> 10 And j <> 13 And j <> 32 And j <> Asc(" ") Then '最后一个百条件是全角空格
b = b & Chr(j)
End If
Next
DeleteSpace1 = b
End Function