'c(2m+1)存储剩余段元素个数 Private Sub Command1_Click()
Dim i As Integer, p As Integer, L As Integer, LL As Integer '读取n个数据并保存在数组a中,代码略
'读取m个区间的下限和上限并保存在数组b中,代码略 End Sub
'函数IsIn用来判断a(i)值是否属于第p区间 Function IsIn(i As Integer, p As Integer) As Boolean If p>m Then IsIn=False For i=1 To 2*m+1 c(i)=0 Next i i=1:p=1 L=0:LL=0
Do While If IsIn(i, p) Then If IsIn(i, p+1) Then LL=LL+1 Else
LL=0 End If i=i+1 Else c(2*p-1)=L c(2*p)=LL L=0:LL=0 p=p+1 End If Loop If i<=n Then c(2*p-1)=n-i+1 Else c(2*p-1)=L c(2*p)=LL End If
'输出统计结果,代码略
信息技术试卷第11页(共14页)Else
If Then IsIn =True Else IsIn=False End If End Function
2019年4月浙江省普通高校招生选考科目考试信息技术答案解析
1.【答案】D 2.【答案】A 3.【答案】D 4.【答案】B 5.【答案】C 6.【答案】B 7.【答案】A 8.【答案】C 9.【答案】C 10.【答案】B 11.【答案】C 12.【答案】A
13.【答案】(1)=(G3-E3)/E3*100
(2)H3单元格中的真实值大于H4单元格的真实值 (3)A2:A13,E2:E13,G2:G13
信息技术试卷 第12页(共14页)
14.【答案】(1)C (2)ch=Mid(t,i,1) c+Mid(s, n, Len(s)–n+1) (3)“Apple” 15.【答案】(1)C (2)A (3)控制 go to And Play(1) (4)CE (5)数据流 (6)按钮
16.【答案】a(j)>a(j+2) 3 To n
17.【答案】(1)3 (2)i<=n And p<=m L=L+LL+1
a(i)>=b(2*p-1) And a(i)<=b(2*p)
信息技术试卷第13页(共14页)信息技术试卷第14页(共14页)
相关推荐: