以下程序找出50以内所有能构成直角三角形的整数组。请在程序【15】处填上正确内容。
Private Sub Command1_ Click()
for a = 1 To 50
for b = a To 50
c = Sqr(a ^2 + b ^2)
if 【15】 then Print a; b; c
Next b
Next a
End Sub

【参考答案】

[15]c＜=50 And c=Int(c)

以下程序找出50以内所有能构成直角三角形的整数组。请在程序 【15】 处填上正确内容。Private Sub Command1_ Click() for a = 1 To 50 for b = a To 50 c = Sqr(a ^2 + b ^2) if 【15】 then Print a; b; c Next b Next aEnd Sub