2015年浙江省温州市高考信息技术模拟试卷（选修）
发布：2024/4/20 14:35:0
一、选择题在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在答题卡上相应的位置．错选、多选或未选均无分．
-
1．下面关于算法的描述，正确的是（ ）
组卷：15引用：6难度：0.9 -
2．能被对象所识别的动作是（ ）
组卷：5引用：2难度：0.9 -
3．在绕地球做匀速圆周运动的宇宙飞船中，航天员绕地球做匀速圆周运动的向心力计算公式为：F=
，若用VB表达式来表示，正确的是（ ）m（g-v2r）组卷：6引用：3难度：0.9 -
4．有如下VB程序段：s=0
For i=1to 21Step 2
s=s+i
Next i
该程序段运行后，共执行的循环次数是（ ）组卷：6引用：2难度：0.7 -
5．一次运动会上，某组6位选手的百米成绩（单位：秒）分别是“14.1、12.3、11.2、14.8、13.9、11.0”，若使用选择排序法将该组的成绩按第一名、第二名、第三名…的顺序排序，则第一次交换数据后的顺序是（ ）
组卷：12引用：3难度：0.9 -
6．下列可以作为Visual Basic变量名的是（ ）
组卷：5引用：2难度：0.7
二、综合题
-
17．会员积分的计算．某超市会根据会员顾客的一次性消费总额给予一定的积分，会员可在年终依据积分换得相应的商品．每次消费时，计算机会自动累加所购商品的总价并折算成积分．
超市折算积分的规则：如果总消费额不足150元，就给1分积分；如果总消费额达150元及以上，那么每40元消费可以获得0.5积分．如，某人消费总额为150元，150/40=3.75，根据规则，积分为3*0.5=1.5分．
下列程序（流程图如图所示）可根据各种已购买商品的费用（已经保存在数组a中），计算总消费金额（total）并折算成积分（ans），最后输出总消费额（显示在标签Label2中）以及所获得的积分总值（显示在标签Label4中）．则程序中横线处应分别填入：
①
②
③
Const n=10
Dim a（n） As Single
Dim i As Integer
Dim ans As Single,total As Single
Private Sub Command1_Click
total=0：ans=0
For i=1To n
①____
Next i
If total＜150Then
②____
Else
ans=Fix（total/40）/2
End If
Label2．Caption=Str（total）
③____
=Str（ans）
End Sub.组卷：6引用：1难度：0.1 -
18．如图1所示程序的功能是把输入的自然数分解为三个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中，其中“开始处理”按钮的名称是“Command1”．例如输入20，单击“开始处理”按钮后，则在列表框中会显示下列数据：
2 5 13
2 7 11
（1）程序中函数f（x）的功能是判断x是否为质数，如果是质数则返回值为True,否则返回False.该函数的算法流程图如图2所示，根据流程图，完善程序中Function f（x）部分．
（2）主程序流程图如图3所示．其中n为输入的自然数，a1、a2、a3为分解出的三个正整数，t为a1、a2、a3是否同时为素数且三数相加是否为n的逻辑值．
则主程序流程图中①处应填写的内容是：．
（3）在主程序Private Sub Command1_Click （ ）中，主要采用的算法是：．
Dim n As Integer,a1As Integer,a2As Integer,a3As Integer
Dim t As Boolean
Function f（x） As Boolean
End Function
Private Sub Command1_Click
n=Val（Text1．Text）
For a1=2To n
For a2=a1+1To n
For a3=a2+1To n
t=（a1+a2+a3=n） And f（a1）And f（a2）And f（a3）
If t Then
List1．AddItem （Str（a1）+““+Str（a2）+““+Str（a3））
End If
Next a3
Next a2
Next a1
End Sub.组卷：6引用：1难度：0.1
