2018-2019学年浙江省名校新高考研究联盟高三(下)第二次联考信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.每小题给出的四个选项中,只有一个符合题目要求,不选、多选、错选均不得分)
-
1.下列关于信息的说法不正确的是( )
组卷:54引用:1难度:0.5 -
2.下列属于静态图象压缩标准的是( )
组卷:5引用:2难度:0.7 -
3.使用 Word 软件编辑某文档,部分界面如图所示。
下列说法正确的是( )组卷:23引用:2难度:0.4 -
4.使用Access软件编辑数据表,其设计视图的部分界面如图所示。下列说法正确的是( )
组卷:11引用:2难度:0.5 -
5.某算法的部分流程图如图所示。执行这部分流程,输出的s和i的值分别是( )
组卷:12引用:4难度:0.4
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.对于一组升序不重复的正整数,在任意数字位置分成两段,并交换前后两段的位置,存入数组a。例如6、17、25、36、44、58,在数字6处分成两段,交换位置后为:
a(1) a(2) a(3) a(4) a(5) a(6) 6 17 25 36 44 58 a(1) a(2) a(3) a(4) a(5) a(6) 44 58 6 17 25 36
Private Sub Command1_Click ( )
Const n=6
Dim a(1 To n) As Integer
Dim i As Integer,j As Integer,m As Integer
’读取数据,按上述规则存入数组a中,代码略
i=1:j=n
IfThen Text1.Text=Str(a(i))'(1)
Do While i<=j
m=(i+j)\2
If a(m)<a(j) Then
Else
i=m+1
End If
Loop
Text1.Text=a(j)
End Sub组卷:6引用:1难度:0.5 -
17.输入一个正整数N,寻找一个比N大且最接近N的整数,要求这个数的每位数字之和与N的每位数字之和相同。例如N=1231,则满足上述条件的最接近N的整数为1240.为了解决此问题,设计算法如下:
①从右往左扫描,找第一个非0数字,将改数字减1后移到最后面。
②继续扫描,找第一个非9的数字,若遇到,将该数字加1,结束;若遇到9,将其移到最后面,重复执行②。
③若扫描完没有加1,则最前面补“1“。
例如:N=199000,按照上述算法的处理过程是:199000→190008→100089→200089,满足条件的最接近的数是200089。
(1)若输入N=99900,则满足条件的最接近的数为
(2)实现上述功能的VB代码如下,请在横线处填入适当的代码:
Private Sub Command1_Click ( )
Dim a(1 To 50)As String
Dim n As String,step1 As Boolean,step2 As Boolean
Dim i As Integer,length As Integer,zero As Integer,cnt As Integer
n=Text1.Text
length=Len(n)
'将数字串n从右往左依次存储在数组a中。
For i=1 To length
a(i)=①
Next i
step1=True:step2=False'step1对应步骤①,step2对应现步骤②
zero=0:cnt=1
For i=1 To length
If step1=True Then
If a(i)=“0“Then
zero=zero+1
Else
②
If zero>0 Then
a(cnt)=a(i)
a(i)=“0“
End If
step1=False
step2=True
End If
ElseIf step2=True Then
If a(i)=“9“Then
If zero=0 Then
t=a(cnt+1):a(cnt+1)=a(cnt):a(cnt)=t
cnt=cnt+1
If i<>cnt Then
a(i)=a(i-1)
End If
Else
③
a(cnt)=“9“
a(i)=“0“
cnt=cnt+1
End If
Else
a(i)=a(i)+1
step2=False
Exit For
End If
End If
Next i
'最前面补“1“
If step2 Then
length=length+1
a(length)=“1“
End If
'输出结果,代码略。
End Sub组卷:7引用:1难度:0.3