2017年浙江省杭州市萧山区高考信息技术模拟试卷（3）
发布：2024/4/20 14:35:0
一、选择题（本大题共9小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分．）
-
1．关于智能处理的说法，以下不正确的是（ ）
组卷：6引用：1难度：0.9 -
2．“全民K歌”APP是一款熟人社交K歌应用．我们可以通过手机客户端下载歌曲后配音录制，并应用特效进行处理后上传分享．此外，该APP还有集合练歌模式、好友PK等特色功能，还能和好友互发弹幕互动．小明使用该APP分享作品的环节属于（ ）
组卷：13引用：1难度：0.9 -
3．小丽用UltraEdit软件观察“G20，2016，中国”这几个字，显示的十六进制内码如图所示．则“2017”这几个字对应的内码用十六进制表示是（ ）
组卷：14引用：1难度：0.9 -
4．某Access数据表中的记录与字段的数据类型如图所示．下列操作可行的是（ ）
组卷：14引用：2难度：0.9 -
5．有算法流程图如图所示：执行该算法，当x的值为5时（ ）
组卷：4引用：1难度：0.7
【加试题】
-
16．小明用VB编写计算20位以内2个正整数相减程序．程序功能如下：在文本框Text1中输入被减数，在文本框Text2中输入减数，单击“计算”按钮Comnand1，将相减的结果输出到文本框Text3中．运行界面如图所示．
实现上述功能的VB程序如下，但加框处代码有错，请改正．
Private Sub Command1_Click （ ）
Dim c（1To 50）As Integer
Dim jiewei As Integer'存储向高位借位
Dim ad As Integer,bd As Integer'存储被减数和减数的每一位值
Dim e As Integer,alen As Integer,blen As Integer
Dim a As String,b As String,s As String
a=Text1．Text：b=Text2．Text
'将大数存储在a中
If Len（a）＜Len（b） Then
s=a：a=b：b=s
ElseIf Len（a）=Len（b） Then
ad=Val（Mid（a,1，1））
bd=Val（Mid（b,1，1））
If ad＜bd Then
s=a：a=b：b=s
End If
End If
alen=Len（a）：blen=Len（b）
For i=1To alen
If i＜=blen Then
ad=Val（Mid（a,alen-i+1，1））
bd=Val（Mid（b,blen-i+1，1））
e=ad+10-bd-1+jiewei
Else
ad=Mid（a,alen-i+1，1）
e=ad+10+jiewei-1
End If
jiewei=e\10
Next i
If c（alen）＜＞0Then s=Str（c（alen））
For i=alen-1To 1Step-1
s=s+CStr（c（i））
Next i
Text3．Text=s
End Sub.组卷：12引用：1难度：0.1 -
17．编写一个统计公司地区销售数据库中每个销售员销售额的VB程序，实现如下功能：
（1）在文本框Text1中输入要统计的销售地区，单击“读取数据”按钮Command1，该过程从数据库读取该销售地区所有的销售员姓名和销售数据，分别存储在数组xm和xse中；
（2）在文本框Text2中输入需要统计销售排名的数组存储在变量pm中，单击“统计”按钮Command2，求出销售额排名前m位的销售人员并显示在List1中（销售额相同则排名也相同）；
（3）计算输出该地区平均销售额（保留2位小数，不要求四舍五入），程序运行界面如图所示：
Dim xm（1to 30000）as long'存储销售员工的姓名数据，最大处理个数为30000
Dim xse（1to 30000）as string'存储销售员工的销售量数据，最大处理个数为30000
Dim mc（1to 30000）as integer'存储销售员工的排名
Dim num as integer
Dim pm as integer,sum as single
Private Sub command1_click （ ）
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\data.jye.ai“'打开到数据库的链接
conn.Open
strSQL=“select*from tab where'dq=“+Text1．Text+“'“
Set rs.ActiveConnection=conn'设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL'打开记录集，将从表student中读取的结果集保存到记录集rs中
List1．Clear
num=0
Do while not rs.EOF
xse（num）=rs.Fields（“销售额“）：xm（num）=rs.jye.ai（“姓名“）
num=num+1
rs.MoveNext
loop
For i=1to num
mc（i）=0：xse（i）=xse（i）/10000
①
next i
rs.Close
conn.close
End Sub
Private Sub command1_click （ ）'统计数据的过程
Dim max as single,ave as single
Dim i as integer,flag as integer
pm=val（text1．text）
dq=text1．text
For j=1to pm
max=xse（j）
flag=j
②
If xse（i）＞max then max=xse（i）：flag=i
Next i
If flag＜＞j then
t=xse（j）：xse（j）=xse（flag）：xse（flag）=t
st=xm（j）：xm（j）=xm（flag）：xm（flag）=st
Endif
Next j
mc（1）=1
For i=2to pm
if xse（i）=xse（i-1）then mc（i）=mc（i-1）else mc（i）=i
Next i
List1．clear
For i=1to pm
List1．additem str（mc（i）+““+xm（i）+““+str（xse（i））
Next i
ave=③
label1．caption=str（ave）
End Sub
（1）分析程序代码，当前处理的数据库文件名为．
（3）程序中①横线处应填入代码；程序中②横线处应填入代码；程序中③横线处应填入代码．组卷：6引用：1难度：0.1
