高中信息技术学业水平考试算法与程序设计题、填空题、分析题小抄版含答案.docVIP

一、解决问题有解析法、穷举法、递归法、冒泡排序法，根据问题选择选择合适的算法。 1. 列举所有可能的情况，逐个判断有哪些是符合问题所需要的条件，从而是得到问题的解答，这是 穷举法 的思路。 2. 一个玻璃球从高处到自由落体运动。在达到地面时，速度为98m/s，请问玻璃求从高处开始下落地面用多长时间？ 解析法 3、水仙花数是一个三位数，其各位立方和等于该数本身，如153=1*1*1+5*5*5+3*3*3选择的算法是 穷举法 4、一张单据上有一个5位数的号码67__ __8，其中百位和十位的数字看不清楚了，但知道该数能够被78整除，也能被67整除，设计一个算法求出该号码。 穷举法 5.已知：f (1)=1 f (2)=3 当n2时：F(n)=2f (n -1)+3f (n-2)编程求f (100)的值。答案：递归法 6.求解“百鸡问题”已知公鸡每只3元，母鸡每只5元，每3只小鸡1元，用100元买100只鸡，问每种鸡应各买多少？ 答案：穷举法___ 7.国内特快专递每200g为一个为一个计费单位。200g以内20元，200g以上每续200g（不足200g按200g计算16元，现在要编写一个程序输入包裹自动计算出价格。答案：解析法 8.动员成绩进行公布现在要编写一个程序自动完成编排,请问最好采用哪种答案：冒泡排序法 二、分析程序写出运行结果或补全程序。 1. Dim a as integer ,b as interge a=1:b=0 Do while a=3 a=a+1 b=b+a*a Loop Print a ,b 4 29 2、Dim ch As String , i As Integer ch=”abc” i=1 Do while i=3 Ch=chRight(“DEF”,i) i=i+2 Loop Print ch End sub 运行结果是： abcFD 3、Dim s ,I asinteger S=0 I=1 For I=1 to 4 S=s+i^2 Next i Print “s=”;s 运行结果是： s=30 4、Private sub command 1_click() S=0 For i=1 to 3 s=s+2*i next i print “s=”;s End sub 运行结果是 s=12 5、dim s as integer, I as integer S=0 For I = 1 to 10 step 2 S=s+i Next i Print “s=”;s 运行的结果是： s=25 6、程序填空，计算1+1/3+1/5. . . . . . 1/49的值 For i =1 to 49 step 2 S= S+1/i Next i 7、计算1+3+5+7+……+99的值 Dim I ,s as integer S=0 For I = 1 to 50 S=s+(2*i-1) Next I Print “s=”;s 8、已知Ｓ=1+2+3+…+N，找出一个最大的整数Ｎ，使得Ｓ300. Private Sub S=0 N=0 Do while S300 N=N+1 S=S+N Loop N=N-1 End sub 9、Private Sub Form-Activate ( ) Dim I ,S As Integer S=1 For I=1 to 4 S=S*I Print “S=”; S End Sub 运行结果: S=24 10、Private Sub Form-Activate ( ) Dim I Integer ,S As Integer For I =2 To 6 S=S+I Next I Print “S=”; S 运行结果: S=20 11、Private Sub Form-Load Dim X As Integer, Y