浙江省名校协作体2017-2018学年高三下学期信息技术11月联考试卷
年级： 学科：信息技术（信息科技） 类型：月考试卷 来源：91题库
一、选择题 （共12小题）
以下说法正确的是（ ）
Dim a(5) As Integer
Dim i As Integer, j As Integer, t As Integer
a(1) = 52: a(2) = 15: a(3) = 37: a(4) = 22: a(5) = 35
i = 1
Do While i < 5
t = i: j = i + 1
Do While j <= 5
If a(j) > a(t) Then t = j
j = j + 1
Loop
x = a(t): a(t) = a(i): a(i) = x
i = i + 1
Loop
Text1.Text = Str(a(2))
运行该段代码后，文本框Text1中显示的内容为（ ）
以下说法正确的是（ ）
以下说法正确的是（ ）
以下说法正确的是（ ）
另存后文件的存储容量约为（ ）
二、非选择题 （共5小题）
请回答下列问题：
Private Sub Command1_Click()
Dim r As Integer，k1 As Integer，k2 As Integer
Dim s As String，n As Integer
① ‘从文本框TxtIn中获取字符串
Randomize
r=Int(Rnd()*10)+1 ‘随机生成洗牌次数
n=Len(s)
Do While r>=1 ‘洗牌操作
k1=Int(Rnd()*(n-2))+2
k2=Int(Rnd()*(n-k1+1))+k1
s= ② +Mid(s，1，k1-1)+Mid(s，k2+1，n-k2)
r=r-1
Loop
‘在文本框TxtOut中输出结果
End Sub
① ②
B . 
C . 
D . 
欣欣用Flash软件制作动画，其中“sorry”场景的界面如图2所示，“story”场景的制作脚本如下：
| 场景名：story 类别序号：2 | 进入方式： 由“Load”场景单击“Play”按钮进入 |
| 呈现方式： ①直接出现背景图片，音乐自动播放； ②梁山伯实例从舞台外左侧移动到舞中间(从小到大，移动速度越来越快)；祝英台实例从舞台外右侧移动到舞台中间(从小到大，移动速度越来越快)； ③舞台下方先后出现文字“小弟姓祝名英台，乃上虞祝家村人氏，敢问仁兄……”“会稽梁山伯”（从无到有）； ④“退出”按钮位于舞台右下角，点击后退出动画的播放。 | 呈现顺序说明： ①一开始就显示背景图片，播放音乐； ②同时，梁山伯和祝英台分别从舞台左侧和右侧移动到舞台中间； ③梁山伯和祝英台会话； ④文字“小弟姓祝名英台，乃上虞祝家村人氏，敢问仁兄……”“会稽梁山伯”淡入； ⑤最后动画停止播放，并出现“退出”按钮。
|
小敏编写了一个VB程序，用来求一个偶数（6到100之间）可能存在多少这样是素数岁（注：A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可，运行界面如图所示，程序代码如下。但加框处代码有错误，请改正。
Dim IsPrime(100)As B00lean ‘用来存储是否素数，True为素数，False为非素数
privatw Suh Command1_Click()
Dim x As Integer，y As Integer，i As Integer，num As Integer
Call Init ‘调用Init函数
x=Val(Text1．Text)
y=x＼2
num==0
For i==3 To y Step 2
If 
Then ‘①
num=num+1
List1．AddItem Str(x)+“=”+Str(i)+“+”+Str(x-i)
End If
Next i
Label2.Caption=“偶数”+Str(x)+“共有”+Str(num)+“个素数对。”
End Sub
Sub Init() ‘初始化IsPrime数组的值
Dim i As Integer．j As Integer，X As Integer
For i=3 To 100 Step 2
X=Int(Sqr(i))
For 
Step 2 ‘②
If i Mod j=0 Then Exit For
Next j
If i>x Then IsPrime(i)-True Else IsPrime(i)=False
Next i
End Sub
①处加框代码应该为 。
②处加框代码应该为 。
做法是比较中点与当前查找范围第1个数大小关系，用对分法使查找范围逼近拐点；当余下数组只有两个元素时，可根据此二元素大小关系得到拐点的位置。
依据上述描述设计了VB程序，界面如图所示。请回答下列问题：
Dim a(1 To 20)As Integer
Private Sub Command1_Click()
Dim Low As Integer，High As Integer
Low=1
High=20
Do While High>Low
If ① Then
If ② Then
Label1.Caption=“拐点元素为”+Str(a(1))+“，下标为”+Str(1)
Else
Label1.Caption=“拐点元素为”+Str(a(High))+”，下标为”+Str(High)
End If
Exit Do
End If
m=(Low+High)＼2
If a(m)>=a(Low)Then
Low=m
Else
③
End If
Loop
End Sub
Private Sub Form_Load()
‘生成循环递增的数组a，代码略
End Sub
① ② ③