Question

一些计算机的程序的计算问题！有答案，但不知道是怎么解的，求详解？最好能一步一个解释！谢谢！

程序填空

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
答案 c<=50
2、以下程序是用来输出20个在开区间（10，87）上的随机整数R，每行输出4个整数。请完成程序。
Private Sub Command1_Click()
For i=1 To 10
R=Int(Rnd*76+11)
Print R;
If ____ Then Print
next i
End Sub
答案 i Mod 4=0
3、根据结果完善以下程序。
PRINT "NO.","NAME","CLASS"
PRINT "001",
____________
END
运行结果为:
NO. NAME CLASS
001 LIST 9013
答案 PRINT "LIST","9013"
4、下面程序是输出100~~200之间不能被3整除的数。请完成程序。
Private Sub Form_load()
x=100
Do Until x>200
If ____ Then
Text1.Text = Text1.Text & Str(x)
End If
x=x+1
Loop
End Sub
答案 x Mod 3<>0
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
答案n<10
8、在窗体Form1中有两个文本框(Text1和Text2）和一个命令按钮Command1。在Command1_Click过程中要将两个文本框中的字符串连接成一个字符串，请完成程序。
Private Sub Command1_Click()
Print ____
End Sub
答案Text1.Text + Text2.Text
9、以下程序是计算10+20+……+50的值，请完成程序。
Dim x As Integer
Dim i As Integer
x=0
For i= ____ step 10
x=x+i
Next i
Print x
答案10 To 50
问题是我连着些英文表达的是什么也不懂，不知道是什么东东！由于计算机过级需要！这是复习题！不会，不明白~求详解！

Answer 1

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
答案 c<=50
===================================
【注】如果斜边c也小于50 且为整数，则满足！
===================================
2、以下程序是用来输出20个在开区间（10，87）上的随机整数R，每行输出4个整数。请完成程序。
Private Sub Command1_Click()
For i=1 To 10
R=Int(Rnd*76+11)
Print R;
If ____ Then Print
next i
End Sub
答案 i Mod 4=0
===================================
【注】如果i能被四整除，说明此行已满四个，换行！
===================================
3、根据结果完善以下程序。
PRINT "NO.","NAME","CLASS"
PRINT "001",
____________
END
运行结果为:
NO. NAME CLASS
001 LIST 9013
答案 PRINT "LIST","9013"
===================================
【注】不全另两个输出，这个没什么好解释的。
===================================
4、下面程序是输出100~~200之间不能被3整除的数。请完成程序。
Private Sub Form_load()
x=100
Do Until x>200
If ____ Then
Text1.Text = Text1.Text & Str(x)
End If
x=x+1
Loop
End Sub
答案 x Mod 3<>0
===================================
【注】如果x不能被3整除。
===================================
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
===================================
【注】
（1） 先把数放大10倍，然后直接四舍五入，再缩小10倍
（2） 先把数放大100倍，然后直接四舍五入，再缩小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
答案n<10
===================================
【注】如果未满10个数，继续。
===================================
8、在窗体Form1中有两个文本框(Text1和Text2）和一个命令按钮Command1。在Command1_Click过程中要将两个文本框中的字符串连接成一个字符串，请完成程序。
Private Sub Command1_Click()
Print ____
End Sub
答案Text1.Text + Text2.Text
===================================
【注】字符串连接用“+”或者“&”
===================================
9、以下程序是计算10+20+……+50的值，请完成程序。
Dim x As Integer
Dim i As Integer
x=0
For i= ____ step 10
x=x+i
Next i
Print x
答案10 To 50
===================================
【注】限定数据范围10~~50
===================================