2017年浙江省普通高校招生信息技术仿真模拟试卷（选考）（一）（4月份）
发布：2024/4/20 14:35:0
一、选择题（本题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．如图是某软件管家对系统工具类软件提供的评价排名，这种评价属于（ ）
组卷：14引用：2难度：0.9 -
2．小张在打开一个网站上点击了一个超链接，却发现打开了outlook进入邮件撰写界面．由此可见小张点的超链接可能是（ ）
组卷：9引用：1难度：0.9 -
3．如图所示，下列说法正确的是（ ）
组卷：9引用：1难度：0.9 -
4．如图所示，下列描述正确的是（ ）
组卷：10引用：1难度：0.9 -
5．下列流程图是为了统计键盘输入数字的个数，输入-1代表结束．则①处应填入（ ）
组卷：6引用：1难度：0.5
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
-
16．公司年会，领导要小李编写一个小程序，用于抽奖，小李将参加年会的人员姓名、手机号保存在一个access数据库中库名：年会嘉宾．accdb 数据表名为：联系人
程序设计的主要思路是：窗体装入时读出所有嘉宾的姓名和手机号，保存在两个数据中，从text1中取得要抽奖的人数，用随机函数产生1～num间的数作为中奖号，从数据中读出对应的姓名和手机号，手机号中间4位用“新年快乐”代替．已抽中过的姓名和手机号从数据中删除，以防止重复中奖．
Dim sname（1To 1000）As String‘用于保存嘉宾姓名
Dim phone（1To 1000）As String‘用于保存嘉宾手机号
Dim num As Integer‘未抽奖人数
Private Sub Command1_Click （ ）
Dim n As Integer‘拟抽奖人数
Randomize
n=Val（Text1．Text）
List1．Clear
If（1） Then
For i=1To n
k=Int（Rnd*num）+1
List1．AddItem Str（i）+““+sname（k）+““+（2）
For j=k To num
sname（j）=sname（j+1）
phone（j）=phone（j+1）
Next j
num=（3）
Next i
Else
List1．AddItem“剩余的数据不足！“
End If
End Sub
Rem 下列程序段用于从数据库中读取嘉宾的姓名和手机号，分别保存在全局变量sname （ ）和phone （ ）两个数组中，设嘉宾个数不超过1000个．
Private Sub Form_Load （ ）
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.oledB．12.0；data source=“& App.Path &“\年会嘉宾．accdb“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from 联系人“
num=0
Do While Not rs.EOF And num＜1000
num=num+1
phone（num）=rs.Fields（“联系电话“）
sname（num）=rs.Fields（“姓名“）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub.组卷：5引用：1难度：0.1 -
17．小张学习了冒泡排序后，觉得还可以再改进，用K指向要排序的数的头部，用m指向要排序的数的尾部，每一轮先从前向后扫描k～m-1，比较相邻若逆序则交换，找出本轮最大数放到本轮数据的尾部，再从后到前扫描剩下的序列m～k+1，比较相邻若逆序则交换，找出本轮最小数放到本轮数据头部．直到k=m结束程序．以下是改进后的程序请补充完整．
Dim n As Integer‘数字的个数
Rem 以下程序段为产生n个[10，99]之间的随机整数并在list1中显示
Private Sub Command1_Click （ ）
Randomize Time
n=50
For i=1To n
List1．AddItem Str（Int（Rnd*90）+10）
Next
End Sub
Rem 以下程序段为从list1中取出数并进行排序，最后在list2中显示排序后的数
Private Sub Command2_Click （ ）
Dim a（50）As Integer
Dim k As Integer,m As Integer,i As Integer,j As Integer
For i=1To n
a（i）=Val（List1．List（i-1））
Next i
m=n：k=1
Do While①
J=m-1：m=1
For i=k To j
If a（i+1）＜a（i） Then t=a（i）：a（i）=a（i+1）：a（i+1）=t：m=i
Next i
j=②
k=1
For i=m To j Step-1
If a（i）＜a（i-1）Then t=a（i）：a（i）=a（i-1）：a（i-1）=t：③
Next i
Loop
For i=1To n
List2．AddItem④
Next i
End Sub.组卷：4引用：1难度：0.1
