Private Sub Form_Click()
Dim a%, b%, c%
Open "d:\pythagorean.txt" For Output As #1
Print #1, "a", "b", "c"
For a = 1 To 100
For b = 1 To 100
For c = 1 To 100
If a ^ 2 + b ^ 2 = c ^ 2 Then
Write #1, a, b, c
End If
Next
Next
Next
Close #1
End Sub
怎样让数字不加逗号 和a,b,c对其啊
|