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 - 先选择三角型两边a和b，再求第三边c，要求c为整数且也在50以内所以c<=50

2 - PRINT "XXX"后面有，或；则不换行，如没有则换行，这个程序求出随机20个数，每次序数为4的倍数时换行，PRINT后面什么没有就直接换行。另外第一行应该Fori=1:10

3-换行规则和上面一样

4－x Mod 3<>0挑出被3除不余0的数，全部接在字符窜Text1.text后面，最后跑完可以一起印出。

5－a=78.693
a*10=786.93
a*10+0.5=787.43这是为了确定小数点后一位是不是大于等于5，如果是就要进位，+0.5就完成了进位，如果小于5+0.5不会进位。
INT(a*10+0.5)=787
INT(a*10+0.5)/10=78.7
(2)道理一样

6－这里PRINT"a+b",a+b是印出
a+b后面接结果，没有引号直接打印数值，所以x是INT(a+b+0.5)的值

7－先从DATA中读取一个X，n数是第几个读取的数，如果X>0,印出，不然不印，下面看n，如果n<10,还没读到10个，回到第一句再读取

8－a,b为字符串时a+b就是把它们接起来

9－10 To 50 step 10就是10到50，跨度为10，即10，20，30，40，50，再把i累加到x上，最后打出x