2020-2021学年浙江省绍兴市诸暨市高三（上）诊断信息技术试卷（12月份）
发布：2024/10/31 5:0:2
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．微信中有语音转文字功能，以下说法正确的是（ ）
组卷：2引用：1难度：0.6 -
2．下列有关网页与浏览器的说法，不正确的是（ ）
组卷：1引用：1难度：0.6 -
3．使用Access软件创建“jsxxb”数据表，其设计视图的部分界面如图所示。
下列说法正确的是（ ）组卷：1引用：1难度：0.5 -
4．某加密算法如下：
（1）以字节为单位对ASCII字符进行加密处理；
（2）8位二进制数最高位不处理；
（3）后7位做如下处理：先按位取反，再右移3位，最高位用右移出的最低位填充；
所得的8位二进制数即为密文的编码。已知某字符的密文为“i”，其对应的原文字符是（ ）组卷：3引用：2难度：0.6 -
5．使用Photoshop软件制作“我的读书梦”作品，部分界面如图所示。
下列说法正确的是（ ）组卷：3引用：1难度：0.7
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
-
15．索引排序是近年来各类模拟考试中的新宠，而“索引排序”是和“物理排序”相对应的概念，所谓物理排序就是改变数组元素存储的物理位置，即直接对数组进行排序；而索引排序通过增加一个索引数组来存储各数组元素的下标，在排序时不需要对原数组进行排序，只需对索引数组排序即可。小明为了探究索引排序，编写VB程序演示索引排序算法，功能如下：在文本框Text1中输入各个数据（用“，”隔开和结尾），单击“读取”按钮Command1，将各个数据依次存储到数组a中；单击“排序”按钮Command2，则对索引数组b重新排列，使得数组a中的元素按升序存储到数组c中，分别将处理后的索引数组b和有序数组c显示在标签Label1和Label2中。部分运行界面如图所示。
请回答下列问题：
（1）下列对象中，无 Caption属性的是（单选，填字母：A.Command1/B.Text1/C.Form1）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
①
②
③
（3）程序加框处代码有错，请改正。
改正：
Dim n As Integer
Dim a（1 To 20）As Integer
Dim b（1 To 20）As Integer
Dim c（1 To 20）As Integer
Private Sub Command1_Click
Dim i As Integer,t As String,ch As String
n=0：t=““
①
Do While i＜=Len（Text1.Text）
ch=Mid（Text1.Text,i,1）
If ch=“，“Then
n=n+1
②
b（n）=n
t=““
Else
t=t+ch
End If
i=i+1
Loop
End Sub
Private Sub Command2_Click
Dim i As Integer,j As Integer,t As Integer
For i=1 To n-1
For j=n To i+1 Step-1
If a（j）＞a（j-1）Then
t=b（j）：b（j）=b（j-1）：b（j-1）=t
End If
Next j
Next i
For i=1 To n
③
Label1.Caption=Label1.Caption+Str（b（i））
Label2.Caption=Label2.Caption+Str（c（i））
Next i
End Sub组卷：0引用：1难度：0.3 -
16．给定n个不同的正整数（小于等于100），将它们分组，使得每组中任意两个数互质（它们的公约数为1）。按照以下算法对n个数进行分组：
n个正整数由文本框Text1输入，依次存储到a数组中，b（1 to 25）中存储100内的素数，c数组存储每一组的数字个数及对应数字，d数组存储每一组内所含的质因子，相同质因子只存储一次，最后分组情况显示在列表框List1中。
c数组初始状态：
d数组初始状态：组别 第一组 第二组 … 位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 … 值 0 0 0 0 0 0 0 0 0 0 0 0 0 0 …
若第一个数据为70，确定分组的过程为：先查找第一组内所含的质因子中是否含有70的质因子，未找到，则c数组中表示第一组数据个数的值加1，并将70添加到c数组的第一组内，同时在d数组第一组中依次添加70所含的各个质因子。组别 第一组 第二组 … 位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 … 值 0 0 0 0 0 0 … 0 0 0 0 0 0 … 0 …
c数组变化情况：
d数组变化情况：组别 第一组 第二组 … 位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 … 值 1 70 0 0 0 0 0 0 0 0 0 0 0 0 …
尝试将第2～n个整数分组。在确定某数分组的过程中，若已有的组内不存在该数所含的质因子，则将其分到第一个符合条件的组；否则，将其分到新生成的组中。组别 第一组 第二组 … 位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 … 值 2 5 7 0 0 0 … 0 0 0 0 0 0 … 0 …
分组完毕后数组存储情况如表。
c数组：
d数组：组别 第一组 第二组 … 位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 … 值 2 70 99 0 0 0 0 3 25 54 11 0 0 0 …
按照上述要求编写一个VB程序，其运行界面如图所示。组别 第一组 第二组 … 位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 … 值 2 5 7 3 11 0 … 0 5 2 3 11 0 … 0 … 
（1）按照上述算法，若有“35、40、26、18、63、77”6个整数，至少分成组（填具体数字）。
（2）请在横线处填入合适的代码。
Const n=6'数据个数
Dim a（1 To n） As Integer'存储原始数据
Dim b（1 To 25）As Integer'存储100以内的素数
Dim c（0 To （n+1）*n） As Integer'存储每一组的数字个数及对应数字
Dim d（1 To 25*n） As Integer'd数组存储每一组内含有的质因子
Private Sub Command1_Click
Dim t As Integer,i As Integer,j As Integer
Dim k As Integer,m As Integer,p As Integer
Dim y As Integer,zu As Integer
Dim st As String
For t=1 To n
k=1
i=1
Do While d（（k-1）*25+i）＜＞0
If a（t） Mod d（（k-1）*25+i）=0 Then
①
i=0
End If
i=i+1
Loop
m=（k-1）*（n+1）'每一组存储数字个数的所在位置
c（m）=c（m）+1
②
For j=1 To 25
If a（t） Mod b（j）=0 Then
③
i=i+1
End If
Next j
Next t
p=0
Do While c（p）＞0
st=““
For i=1 To c（p）
st=st+Str（c（p+i））
Next i
zu=p\（n+1）+1
List1.AddItem“第“+CStr（zu）+“组为：“+st
'Cstr的功能：将数值型转为字符串型
p=p+n+1
y=y+1
Loop
List1.AddItem“至少分：“+CStr（y）+“组“
End Sub
Private Sub Form_Load
'读取文本框Text1中的各个数据依次存储到数组a中，存储100以内的素数到数组b中，代码略
End Sub组卷：0引用：1难度：0.3
