一些计算机的程序的计算问题!最好能一步一个解释!

一些计算机的程序的计算问题!最好能一步一个解释!
程序填空
1、以下程序是找出50以内所有能构成直角三角形的整数组.请完成程序.
Private Sub Command1_Click()
For a=1 To 50
For b=a To 50
c=Sqr(a^2+b^2)
If ____ And c=Int(c) Then Print a;b;c
Next b
Next a
End Sub
If ____ Then
Text1.Text = Text1.Text & Str(x)
End If
x=x+1
Loop
End Sub
x Mod 30
5、下面程序实现使数78.693保留到小数点后一位和二位____.
a=78.693
x1= (1)
x2= (2)
PRINT "x1=";x1,"x2=";x2
END
(1)INT(a*10+0.5)/10 (2) INT(a*100+0.5)/100
6、将任意组数的和进行四舍五入.
INPUT a,b
___________
PRINT "a+b";a+b
PRINT "INT(a+b+0.5)=";x
END
x=INT(a+b+0.5)
7、以下程序用来输出10个数中的正数,请将正确的选项填入____中.
a:READ x
n=n+1
IF x>0 THEN PRINT x
IF _____ THEN GOTO a
DATA -5,-8,7,68,9,3,-5,-2,-1,34
END