高中信息技术 算法与程序设计总复习测试题 教科版选修1.docVIP

算法与程序设计总复习测试题 一、分析并填写程序运行结果 1、 Dim a, b, c AS Integer a=15;b=60;c=38 if a<b then m=a else m=b endif if m>c then m=c end if Print “M=”;m End Sub 运行结果:_____________”” X=99;Y=98; M=X If X<Y then M=Y end if Text1.caption=M End Sub 运行结果:__________、分析程序，写出计算结果 Dim i,S as integer S=1 For i=1 to 4 S=S*i Next i Print “S=”;S End Sub 运行结果:______________ 、分析程序，写出计算结果 Dim I,S as integer S=0 For I=2 to 6 S=S+I Next I Print “S=”;S End Sub 运行结果:_____________ p=1 For i=1 to 5 p=p+i next i print “I,P 分别为：”; i,p 输出：I，P 分别为：____,______ 6．Sum=0 For i=1 To 100 sum=sum+2 Next i print “Sum=”; sum 输出：__________ 7．a=1; b=0 Do while a<=5 b=b+a*a a=a+1 Loop Print a, b 屏幕上显示的内容是：______ ，______ 8. 题目中是一个求二次函数曲线顶点坐标的VB程序，在运行是Text1、Text2、Text3分别输入3、6、9三个数，请问Text4、Text5输出结果分别就应为多少？（每空4分，共8分） 9．写程序结果： Text2 = “34” a = ( Val ( Text2 ) – 32 ) * 5 / 2 Print a 答案：____________ 二、分析程序并补充完整 1、用程序实现函数：y=|x| Dim X AS Integer，Y AS Interger Text1.Text=”” X=InputBox(“X=?”) if then Y=X Else End If Text1.Text=Y End Sub 2、计算1+2+3+……+100的值。 Dim i, s AS Integer s=0 For i=1 TO s= Next i Print “S=”; s End Sub 3、计算1+3+5+……+99的值。 Dim i, s AS Integer s = 0 for i =1 to Step 2 s = Next i Print “S=”;s End Sub 4、 计算1+1/2+……+1/50的值。 Dim i,s as integer s=0 or i=1 to _______________ s=___________ Next i Print “S=”;s End Sub 5．完善程序，打印如下图形 * ** *** **** ***** ****** For i=1 To 6 For j＝1 To ____ Print “*” Next j ________________ 6．执行下列程序段后，变量x 的值为：（ ） x=3;y=77 DO WHILE x<sqr(y) x=x+2 LOOP 7．p=0;n=5 For i=1 to n p=p+i*2 IF p>=10 Then Exit for Next I Print p 答案：______ 8．Ch=”DEF” For i=1 to 3 ch=ch&mid(ch,i,1) Next i Print ch