浙江高考信息技术学科历年选考真题综合程序填空历年选考真题.docx
- 文档编号:6827791
- 上传时间:2023-01-10
- 格式:DOCX
- 页数:24
- 大小:381.56KB
浙江高考信息技术学科历年选考真题综合程序填空历年选考真题.docx
《浙江高考信息技术学科历年选考真题综合程序填空历年选考真题.docx》由会员分享,可在线阅读,更多相关《浙江高考信息技术学科历年选考真题综合程序填空历年选考真题.docx(24页珍藏版)》请在冰豆网上搜索。
浙江高考信息技术学科历年选考真题综合程序填空历年选考真题
综合程序填空历年选考真题
班级姓名
1.【2015.10】【加试题】某数据加密方法描述如下:
(1)以字节为单位进行加密处理;
(2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数;
(3)分别将上述两个4位二进制数转换为十进制数;
(4)将每个十进制数转换为1个加密字符,对应的“密码表”如下:
值(十进制)
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
加密字符
I
l
i
k
e
C
H
N
P
0
s
t
c
a
r
d
小明按照上述方法,设计了一个字符串(仅包含ASCII字符)加密的VB程序,功能如下:
单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符,连接这些加密字符,最后在文本框Text2中输出加密结果。
下表显示了字符串中一个字符的加密过程:
程序运行效果如第17题图所示。
实现上述功能的VB程序如下:
(1)请在划线处填入合适代码。
PrivateSubCommand1_Click()
DimnAsInteger,sAsString,iAsInteger,ssAsString
DimaAsInteger'存储加密前字符的ASCII码
Dimb1AsInteger,b2AsInteger'分别存储分割、转换后的两个十进制数
s=Text1.Text
①
Fori=1Ton
a=Asc(Mid(s,i,1))
b1=a\16
b2=aMod16
ss=ss+Code2Char(b1)+Code2Char(b2)
Text2.Text=ss
Nexti
EndSub
'十进制值转换为加密字符的函数
FunctionCode2Char(cAsInteger)AsString
DimsAsString
s="IlikeCHNpostcard"
Code2Char=②
EndFunction
(2)若将“密码表”中值为“0”对应的加密字符“I”改成“i”,加密后的密文可能无法解密,原因是。
2.【2016.4】【加试题】某数据压缩方法描述如下:
1)原始数据中,某数不为0且相邻无重复,压缩数据用该数据表示;
2)原始数据中,某数为0且相邻无重复,压缩数据用两个数表示,第1个位0,第2个为0;
3)原始数据中,某数据相邻有重复,压缩数据用3个数表示:
第1个位0,第2个为重复数的个数,第3个为该数本身;
根据上述压缩方法,对应的解压缩方法示例如图a所示。
图a
小明编写了一个解压送VB程序,功能如下:
窗体加载时,自动读取压缩数据,依次存储在数组元素a
(1)、a
(2)、a(3)……中,压缩数据的个数存储在变量n中,压缩数据显示咋文本框Text1中。
单击“解压缩”按钮Command1,程序对压缩数据依次进行解压缩处理,解压缩数据显示在文本框Text2中。
程序运行界面如图b所示。
图b
(1)如果压缩数据为“23,0,21,66,0,0,77,0,5,0”,则解压缩数据的个数是。
(2)实现上述功能的VB程序如下。
请在划线处填入合适代码。
Dima(1To100)AsInteger'存储压缩数据,最大处理个数为100
Dimb(1To1000)AsInteger'存储解压缩数据,最大处理个数为1000
DimnAsInteger'存储压缩数据的个数
PrivateSubForm_Load()
'压缩数据由上述压缩方法生成
'本过程用于读取压缩数据并存储在数组a,压缩数据个数存储在变量n中
'代码略
EndSub
PrivateSubCommand1_Click()
DimpaAsInteger'存储压缩数组当前处理位置
DimpbAsInteger'存储解压缩数组当前处理位置
DimfirstdataAsInteger,countAsInteger,iAsInteger
pa=1:
pb=1
DoWhilepa<=n
firstdata=a(pa)
Iffirstdata<>0Then'示例1情况处理
b(pb)=firstdata
pa=pa+1:
pb=pb+1
Else
count=a(pa+1)
Ifcount=0Then'示例2情况处理
b(pb)=0
pa=①:
pb=pb+1
Else'示例3情况处理
Fori=1Tocount
②
Nexti
pa=pa+3:
pb=pb+count
EndIf
EndIf
Loop
Text2.Text=Str(b
(1))
Fori=2To③
Text2.Text=Text2.Text+","+Str(b(i))
Nexti
EndSub
3.【2016.10】小李与小王合作编写一个成绩统计的VB程序:
小王编写一个过程,该过程从数据库读取某一指定科目的相关数据,存储在数组a中;小李编写一个过程,该过程依据数组a中的相关数据统计各班平均分。
小李与小王约定的数组a各元素含义如图所示。
程序功能如下:
在文本框Text1中输入科目名称,单击“读取数据库”按钮Command1,程序从数据库读取数据;单击“开始统计”按钮Command2,程序进行统计处理,结果输出在列表框List1中。
程序运行界面如下图所示。
实现上述功能的VB程序如下,请回答下列问题:
(1)根据程序运行界面中的数据及数组a各元素的含义,数组元素a(5)的值为(填写数值)。
(2)分析程序,可知数据库的文件名为
(3)请在划线处填入合适的代码。
Dima(1To600)AsInteger'数组大小满足处理要求
PrivateSubCommand1_Click()
'本过程由小王完成,从数据库读取指定科目的各相关数据,存储在数组a中
DimconnAsNewADODB.Conncction
DimrsAsNewADODB.Recordset
connConncctionString="provider=Microsoft.ACE.OLEDB.12.0;datasource="+"Score.accdb"
conn.Open
Setrs.ActiveConnection=conn
'本过程的其他语句略
EndSub
PrivateSubCommand2_Click()
'依据数组a中的相关数据统计各班级平均分
DimiAsInteger,jAsInteger,nAsInteger
DimpAsInteger,sumAsInteger,averAsSingle
p=n+2
Fori=1Ton
sum=0
Forj=1Toa(i+1)
p=p+1
Nextj
aver=sum/a(i+1)
List1.AddItemStr(i)+""+Str(a(i+1))+""+Str(aver)
Nexti
EndSub
4.【2017.4】小王编写了一个实现文字查找替换功能的VB程序,运行界面如图所示。
文本框Text1显示原文内容,Text2中输入查找内容,Text3中输入替换内容,单击“全部替换”按钮Command1后,Text4显示查找替换的结果,Text5中显示替换的次数,Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
PrivateSubCommand1_Click()
DimsAsString,resuleAsString,posAsString
DimcountAsInteger,iAsInteger
i=1:
count=0
resule="":
pos=""
DoWhilei<=Len(Text1.Text)
s=Mid(Text1.Text,i,Len(Text2.Text))
Ifs=Text2.TextThen
result=result+Text3.Text
count=count+1
pos=pos+Str(count)
i=i+Len(Text2.Text)
Else
result=result+Text2.Text
i=i+1
EndIf
Loop
Text4.Text=result
Text5.Text=Str(count)
Text6.Text=pos
EndSub
5.【2017.11】【加试题】由数组a生成数组b的方法描述如下:
1)将数组a中的n个元素依次分割出若干个数据块,每个数据块有m×m个元素,m最大值为8,最小值为2。
分割时,按尽可能大的数据块进行分割;
2)对每个分割出的数据块用“方阵转换法”进行转换,每次转换后得到的数据块依次存储在数据b中;
3)数组a分割后的剩余元素(个数小于4),直接依序存储到数组b中。
例如n=140时,可依次分割出3个数据块,元素的个数分别为64(8×8)、64(8×8)、9(3×3),剩余元素为3个。
“方阵转换法”过程如下:
将数据块中m×m个元素按行序排列成一个数字方阵,从该数字方阵中按列序得到转换后元素的次序。
以3×3数据块为例,转换过程如下图所示:
转换前元素次序
转换后元素次序
小明依据上述描述设计了如下VB程序。
请回答下列问题:
(1)当n=120时,分割出的第3个数据块元素个数为。
(2)请在划线处填入合适的代码。
Constn=120
Dima(1Ton)AsInteger
Dimb(1Ton)AsInteger
PrivateSubCommand1_Click()
DimmAsInteger,iAsInteger
DimStartAsInteger'当前未分割数据的第1个元素下标
DimLeftAsInteger'当前未分割数据的个数
DimpaAsInteger'数组a的下标
DimpbAsInteger'数组b的下标
'读取n个转换前的数据,依次存储到a
(1)、a
(2)、……a(n)中,代码略
m=8
Start=1
Left=n
DoWhileLeft>3
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浙江 高考 信息技术 学科 历年 选考真题 综合 程序 填空
![提示](https://static.bdocx.com/images/bang_tan.gif)