作业帮程序填空1、以下程序是找出50以内所有能构成直角三角形的整数组.请完成程序.Private Sub Command1_Click()For a=1 To 50For b=a To 50c=Sqr(a^2+b^2)If ____ And c=Int(c) Then Print a;b;cNext bNext aEnd SubIf ____ ThenText1.Text
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 16:16:16
程序填空1、以下程序是找出50以内所有能构成直角三角形的整数组.请完成程序.Private Sub Command1_Click()For a=1 To 50For b=a To 50c=Sqr(a^2+b^2)If ____ And c=Int(c) Then Print a;b;cNext bNext aEnd SubIf ____ ThenText1.Text
程序填空
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
程序填空1、以下程序是找出50以内所有能构成直角三角形的整数组.请完成程序.Private Sub Command1_Click()For a=1 To 50For b=a To 50c=Sqr(a^2+b^2)If ____ And c=Int(c) Then Print a;b;cNext bNext aEnd SubIf ____ ThenText1.Text
1 - 先选择三角型两边a和b,再求第三边c,要求c为整数且也在50以内所以c0,印出,不然不印,下面看n,如果n