急急急求100到200之间的弦数

什么是弦数,是勾股弦数吗?
Private Sub Form_Click()
For i = 100 To 200
For j = 100 To 200
For k = 100 To 200
If (i + j > k Or i + k > j Or j + k > i) And i ^ 2 + j ^ 2 = k ^ 2 Then Print i, j, k

Next
Next
Next

End Sub

100 105 145
102 136 170
104 153 185
105 100 145
105 140 175
108 144 180
111 148 185
114 152 190
117 156 195
119 120 169
120 119 169
120 126 174
120 160 200
126 120 174
130 144 194
136 102 170
140 105 175
144 108 180