问题
填空题
以下程序找出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)
解析： a、b、c为直角三角形的三条边，由题意知a和b是限制在50以内的整数，为了使a、b的值不重复交替出现，限制b的取值范围为a～50。c的取值必须满足两个条件，即“c＜=50”和“c=Int(c)”。