2017年浙江省普通高校高考信息技术模拟试卷（5）
发布：2024/4/20 14:35:0
一、选择题（本大题共9小题，每小题2分，共24分．每小题列出的四个备选项中只有一个符合题目要求，不选、多选、错选均不得分）
-
1．小叶利用手机12306软件网上购买火车票，部分界面如图所示，从图中可以获取到的正确信息是（ ）
组卷：10引用：1难度：0.9 -
2．小敏查看了某购物网站卖家的信用评价等信息，其部分页面如图所示，图中好评率“99.19%”代表的含义是（ ）组卷：8引用：4难度：0.9 -
3．如图所示，由图a得到图b,采用的操作是（ ）
组卷：6引用：1难度：0.9 -
4．字符“A”比“a”的ASCII码值小32（十进制），已知字符“K”的二进制为1001011，则字符“k”的二进制ASCII码值是（ ）
组卷：16引用：6难度：0.7 -
5．如图所示是一个使用Access软件创建的数据表，该表记录了部分教材的情况．
下列说法正确的是（ ）组卷：9引用：2难度：0.5
四、解答题（共2小题，满分13分）
-
16．有序序列合并．
将两个不下降有序序列合并为一个不下降有序序列．下面程序模拟该功能，程序界面如图所示，单击“生成序列一”按钮Command1生成10个有序数字，并在List1中显示，单击“生成序列二”按钮Command2生成10个有序数字，并在List2中显示，单击“序列合并”按钮Command3，将两组数据进行合并，并在List3中显示．
序列一中的数据存储在a数组中，序列二中的数据存储在b数组中，合并后的数据存储在c数组中．
实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim a（1To 10）As Integer
Dim b（1To 10）As Integer
Dim c（1To 20）As Integer
Private Sub Command1_Click
'生成10个不下降有序数字，存储在a（1）到a（10）中，并在List1中显示
'代码略
End Sub
Private Sub Command2_Click
'生成10个不下降有序数字，存储在b（1）到b（10）中，并在List2中显示
'代码略
End Sub
Private Sub Command3_Click'将数a组和b数组合并，存储在c数组中
Dim i As Integer,j As Integer,k As Integer
i=1'变量i表示a数组中第1个未处理的数
j=1'变量j表示b数组中第1个未处理的数
t=0'变量t表示c数组中已加入的数的个数
Do While
'第（1）处错误
t=t+1
If a（i）＜b（j）Then
c（t）=a（i）
i=i+1
Else
c（t）=b（j）
j=j+1
End If
Loop
If i＜=10Then
For k=i To 10
t=t+1
'第（2）处错误
Next k
End If
If j＜=10Then
For k=j To 10
t=t+1
c（t）=b（k）
Next k
End If
List3．Clear
For i=1To 20
List3．AddItem（Str（c（i）））
Next i
End Sub.组卷：11引用：1难度：0.1 -
17．小明想用VB编程制作一个名次计算器，首先将同学的成绩录入到计算机中，同时存放在数组a中，显示在左边列表框中．点击“排序”按钮后，程序会将成绩从高到低依次排序显示在右边的列表框中．运行界面如图所示，请在两个横线处填入代码．
Dim a（1To 100）As Single
Dim shu As Integer
Private Sub Command1_Click
Dim i,j,k As Integer
Dim t As Single
For i=1To shu-1
k=i
For j=i+1 To shu
If ①Then
t=a（j）：a（j）=a（k）：a（k）=t
End If
Next j
Next i
For i=1 To shu
List2．AddItem“第“& Str（i） &“名：“& Str（a（i））
Next i
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
Dim cj As Single
If KeyAscii=13Then
cj=Val（Text1．Text）
If cj＞0Then
②
List1．AddItem Str（shu） &“：“& Str（cj）
a（shu）=cj
End If
Text1．Text=““
End If
End Sub.组卷：9引用：2难度：0.1
