一个关于VB的程序编写!!在线等!!

花了我好长时间……

Private

Sub

Form_Click()

Dim

i

As

Long

Dim

a(1

To

1000)

As

Long

For

i

=

1

To

1000

a(i)

=

i

*

i

If

Len(CStr(a(i)))

-

Len(CStr(i))

<>

0

And

Mid(CStr(a(i)),

Int(Len(CStr(a(i)))

-

Len(CStr(i))

+

1),

Len(i))

=

i

Then

Print

i

End

If

Next

i

End

Sub

不懂的地方我会帮你解释的

Private Sub Form_Load()

Dim i As Integer, j As Integer, k As Integer

Dim s As String

For i = 1 To 100

For j = 1 To 100

For k = 1 To 100

If i * i + j * j = k * k and i<>j Then

s = VBA.Format(i, "0") & "," & VBA.Format(j, "0") & "," & VBA.Format(k, "0") & Chr(13) & Chr(10)

Text1.Text = Text1.Text & s

End If

Next k

Next j

Next i

End Sub

---