程序填空测试.docVIP

程序填空 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 x200 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 x0 THEN PRINT x IF _____ THEN GOTO a DATA -5,-8,7,68,9,3,-5,-2,-1,34 END 答案n10 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