程序填空1、以下程序是找出50以内所有能构成直角三角形的整数组.请完成程序.Private Sub Command1-C

程序填空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 = Text1.Text & Str(x)End Ifx=x+1LoopEnd Subx Mod 305、下面程序实现使数78.693保留到小数点后一位和二位____.a=78.693x1= (1)x2= (2)PRINT "x1=";x1,"x2=";x2END(1)INT(a*10+0.5)/10 (2) INT(a*100+0.5)/1006、将任意组数的和进行四舍五入.INPUT a,b___________PRINT "a+b";a+bPRINT "INT(a+b+0.5)=";xENDx=INT(a+b+0.5)7、以下程序用来输出10个数中的正数,请将正确的选项填入____中.a:READ xn=n+1IF x>0 THEN PRINT xIF _____ THEN GOTO aDATA -5,-8,7,68,9,3,-5,-2,-1,34END