2019-2020学年浙江省嘉兴一中高三(上)期中信息技术试卷
发布:2024/12/1 17:30:2
一、选择题(共12小题,每小题2分,满分24分)
-
1.下列有关信息的说法,不正确的是( )
组卷:8引用:1难度:0.6 -
2.下列有关网络资源的说法,不正确的是( )
组卷:4引用:1难度:0.6 -
3.下列应用中,体现了人工智能技术的是( )
组卷:2引用:1难度:0.6 -
4.关于Access数据库,下列说法正确的是( )
组卷:5引用:3难度:0.5 -
5.用UltraEdit软件观察“Windows10中文版”这几个字符的内码如图所示:下列描述中正确的是( )
组卷:11引用:1难度:0.4
二、解答题(共4小题,满分26分)
-
15.数组a存储降序排列的m个数据,数组b中存储的是升序排列的n个数据,且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中,使c数组的数据为左右交替上升,如表所示:
当窗体 Form1加载时,自动产生a、b数组的数据,并分别显示在列表框List1与List2中,单击合并按钮Command1后,在c数组中保存按规则合并后的a、b数组的数据,并显示在列表框List3中。程序截图如下所示:
实现该功能的 VB 程序如下:
Const m=5
Const n=6
Dim a(1 To m) As Integer
Dim b(1 To n) As Integer
Dim c(1 To m+n) As Integer
‘窗体加载时,生成数组 a、b 中的数据,并按要求排序后显示在列表框中,代码略
Private Sub Command1_Click ( )
Dim pa As Integer,pb As Integer,pc As Integer,s As Integer,flag As Boolean
pa=m:pb=1:pc=1
flag=True
Do While
If a(pa)<b(pb) Then
s=a(pa)
pa=pa-1
Else
s=b(pb)
pb=pb+1
End If
c(pc)=s
If flag Then
pc=m+n-pc+1
Else
pc=-pc
End If
Loop
‘处理 a、b 数组中剩余数据,并在列表框 List3 中输出数组 c,代码略
End Sub
(1)窗体加载的事件处理过程名为
(2)加框处代码有错,请改正。
(3)在横线处填入合适的代码。组卷:0引用:1难度:0.5 -
16.小蓝设计了一个数字字符串的简单加密解密小程序,该程序的加密规则是计算连续升序子串的长度,将该长度字符插入到相应子串后面。例如:
输入2350123456783,先将字符串拆成三段,分别是235,012345678,3要求每一段必须严格有序,如果无法实现连续升序,则单独作为一个拆分。原字符串 235 012345678 3 连续升序字符数 3 9 1 密文 235 3 012345678 9 3 1
在文本框Text2中输入密文,单击“解密”按钮,可在文本框Text3中输出原文。
(1)程序运行时,在文本框Text2中输入“1233012345678910”,则在Text3中显示的内容为
(2)实现上述功能的VB代码段如下,请在横线处填上合适代码。
Private Sub Command1_Click ( )'
加密过程
Dim a(1 To 100)As String
Dim s1,s2 As String:Dim tmp As Integer
tmp=1:s1=Text1.Text
For i=1 To Len(s1)
a(i)=Mid(s1,i,1)
Next i
s2=a(1)
For i=2 To Len(s1)
If
s2=s2+a(i):tmp=tmp+1
Else
s2=s2+LTrim(Str(tmp))'LTrim
s2=s2+a(i)
End If
Next i
s2=s2+LTrim(Str(tmp)):Text2.Text=s2
End Sub
Private Sub Command2_Click ( )'解密过程
Dim b(0 To 100)As String
Dim k As String,t As Integer,n As Integer
Dim s As String,s3 As String,j As Integer
s=Text2.Text:n=Len(s)
For i=1 To n
b(i)=Mid(s,i,1)
Next i
t=n-1:k=Val(b(n))
Do While t>0
If k<>0 Then
For j=1 To k
t=t-1
Next j
k=Val(b(t))
t=t-1
Else
k=10
t=t-1
End If
Loop
Text3.Text=s3
End Sub组卷:0引用:1难度:0.5