2017年浙江省高考仿真信息技术试卷（3）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．关于算法的三种基本模式，下列说法正确的是（ ）
组卷：22引用：2难度：0.9 -
2．某算法流程图如图所示：
执行该算法，当s的值为0时（ ）组卷：5引用：6难度：0.9 -
3．枚举算法的使用范围是（ ）
组卷：38引用：2难度：0.9 -
4．下列关于对象的描述中，错误的是（ ）
组卷：26引用：4难度：0.9 -
5．下列VB表达式的值等于3的是（ ）
组卷：15引用：10难度：0.9
二、非选择题（本大题共5小题，其中第13小题4分，第14小题4分，第15小题5分，第16小题8分，第17小题5分，共26分）
-
16．郑均收集了某公司生猪生长各阶段的产肉比数据，他设计了如下Visual Basic程序进行数据处理．程序运行界面如图所示，左边列表框List1中显示生猪生长的各阶段编号及对应的产肉比，单击“排序”按钮Command1后，右边的列表框List2中显示按产肉比从高到低排序后的数据．所收集到的不同生长阶段编号和对应的产肉比数据已分别保存在数组a和数组b中．
排序部分程序如下：
Dim a（1To 10）As String′数组a用于存储阶段编号
Dim b（1To 10）As Single′数组b用于存储产肉比
Private Sub Command1-Click （ ）
Dim i As Integer,j As Integer,k As Integer,t As Single,s As String
For i=1To 9
k=i
For j=i+1To 10
If ① Then k=j
Next j
If k＜＞i Then
s=a（i）：a（i）=a（k）：a（k）=s
t=b（i）：②：b（k）=t
End If
Next i
For i=1To 10
List2．AddItem a（i）+””+Str（b（i））
Next i
End Sub
Private Sub Form Load （ ）′此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略
End Sub
（1）解决此问题采用的算法是．（填“选择排序”或“冒泡排序”）
（2）在程序①和②画线处填入适当的语句或表达式，将程序补充完整：
程序中①画线处应填入．
程序中②画线处应填入．组卷：20引用：3难度：0.1 -
17．编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组A中删除该数（该数后面的数组元素都前移一位），并在标签Label2中显示删除后的结果（运行效果如图所示）；否则，在标签Label2中显示“该数没有找到”．
实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim A（1To 10）As Integer′用于保存10个按从小到大顺序排列的整数
′Form-Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示
Private Sub Form-Load （ ）
′代码略
End Sub
Private Sub Command1-Click （ ）
Dim I As Integer,j As Integer,m As Integer,k As Integer
Dim x As Integer,f As Boolean′变量f用于标记是否在数组中找到x
x=Val（Text1．Text）
i=1：j=10
f=False
Do While （i＜=j）And （f=False）
m=Int（（i+j）/2）
If A（m）=x Then f=True
If
Then i=m+1Else j=m-1′（1）
Loop
If f=True Then
For k=m To 9
′（2）
Next k
Label2．Caption=””
For k=1to 9
Label2．Caption=Label2．Caption+Str（A（k））+””
Next k
Else
Label2．Caption=”该数没有找到”
End If
End Sub.组卷：3引用：3难度：0.1
