发布时间 : 星期三 文章2016年浙江省高中信息技术选考卷模拟卷更新完毕开始阅读
2016年浙江省高中信息技术选考卷模拟卷（共50分）：
一、选择题（本大题共15小题，每小题2分，共30分。在每小题给出的四个选项中，只有一个 符合题目要求）
1．下列可作为VB变量名的是( ) A．3D B．X_Y C．X+Y D．And 2．某算法的流程图如第2题图所示：
开始 s←1 输入a N s < 10 ？ Y s←s?a 输出s 结束
第2题图
执行该算法，依次输入a的值为3，5，2后，算法的输出结果为( ) A.3 B.5 C.15 D.30 3．在VB中，设x=389，能得到其百位数字“3”的VB表达式是( ) A. Int(x/10)*10B. Int(x/100)*100C. x-Int(x/10)*10D. Int(x/100) 4．有如下VB程序段
m=a(1)
For i=2 to 1000
If a(i) > m then m=a(i) Next i
该程序段执行后，变量m中存储的是( ) A．累加值 B．计数值 C．最大值 D．最小值
5．变量c中存储着一个字符，能够正确判断出该字符为数字字符”0”~”9”的VB表达式是( )
A．Asc(c)>=0 Or Asc(c)<=9 B．c>=”0” Or c<=”9” C．Asc(c)>=0 And Asc(c)<=9 D．c>=”0” And c<=”9”
6．在VB中，若将500名献血志愿者的血型信息 (如“A型”)全部存储在数组data中，则下列最合适的说明语句是( )
A. Dim data(1 To 500) As Integer B. Dim data(1 To 500) As Single C. Dim data(1 To 500) As String D. Dim data(1 To 500) As Boolean 7．字符串变量a的值为”ZheJiangHangZhou”，下列VB表达式的值是”Jiang”的是( ) A．Mid(a,4,5) B．Mid(a,4,8) C．Mid(a,5,4) D．Mid(a,8,4) 8．有如下VB程序段
x=0
For i=1 to 8 step 2 x=x+i Next i
该程序段执行后，变量x的值是( ) A．9 B．16 C．25 D．36
9．小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现
如第9题图所示的错误信息： n = 0 m = 0
For i = 1 To 100 If Rnd> 0．5 Then n = n + 1 Else
m = m + 1
第9题图
Next i ??
小金仔细分析该程序段后，发现其中缺少了( ) A．For B．End If C．Next D．If 10．第10题图是VB控件工具箱的部分截图，其中“标签”控件工具是( ) A．1 B．2C．3 D．4
第10题图 第11题图
11．一个VB工程的部分设计界面如第11题图所示。下列说法正确的是( ) ①工程文件名是“工程1.vbp” ②该工程只有1个窗体
③窗体文件名是“MyForm” ④窗体名称是“对象识别”
A.①② B. ②③C. ①③ D. ②④
12．窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是( ) A. Command1_Click B.Form_Load C. Form_Click D.Form_DblClick 13．已知数组a有100个元素，下列VB程序段用于在数组a中寻找能被7整除的数的个数: ?
n＝0 ′变量n用于存放能被7整除的数的个数 For i=1 To 100
Next i ?
则方框中最合适的应填入的语句是( )
A.Ifa(i) Mod 7 = 0 Then n = n + 1 B.If a(i) Mod 7 <> 0 Then n = n + 1 C.Ifa(i) / 7 = 0 Then n = n + 1 D.If a(i) \\ 7 = 0 Then n = n + 1 14．某一段VB程序段如下：
For i = 1 To 2 k = i
For j = i + 1 To 5
If a(j) > a(k) Then k = j Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t End If Next i
数组元素a(l)到a(5)的数据依次为“10，41，75，12，63”。则此程序运行完成后数组元素a(l)到a(5)的数据依次是( ) A．75, 63, 41, 12, 10 B．10, 12, 41, 63, 75 C．10, 12, 75, 41, 63 D．75, 63, 10, 12, 41
15．7位学生的身高（单位cm）从高到低依次为：178，177，175，172，170，165，162。用对分查找法找到178的过程中，依次被访问到的数据是( ) A．178 B．172,175,178 C．172，177, 178 D．172,175,177,178
二．综合题（本大题4小题，其中第16小题1.5分，第17小题3分，第18小题7.5分，第19小题8分，共20分。）
16．下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer c = 0: n = 10 For i = 1 To 10
If n Mod i = 0 Then c = c + 1 Next i
Text1.Text = Str(c) End Sub
17．现要求编写VB程序实现如下功能：在文本框Text1中输入正整数n，单击命令按钮
Command1后，在文本框Text2中会显示一个有规律的数字串，形式为“1 2 3 ? n-1 n n-1?3 2 1”。 例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1”。按此要求编写的程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String n = Val(Text1.Text) s = \
For i = 1 To 2 * n If i> n Then s = s + Str(2 * n - i) Else s = s + Str(i) Next i
Text1.Text = s End Sub
18．设计一个“奇数迁移”的VB程序界面如第18题-1图所示，运行程序后，将在左边列表框List1中产生10个两位正整数，同时清空右边的列表框List2中的内容。单击“迁移”按钮Command1，将列表框Listl中的所有奇数“迁移”到列表框List2中。
List1 List2
第18题-1图
（1）为了在程序界面上显示如第18题-1图所示的左右列表框，应在如第18题-2图所示的“控件工具箱”中选择 _________（填写相应编号）控件，属于 类。若要调整左边列表框List1的高度，在属性窗口中，通过设置的属性值来实现。
第18题-2图
（2）解决此问题的程序代码如下:
Dim a(1 To 10) As Integer '数组a用来存放随机产生的10个两位正整数 Dim i As Integer
Private Sub Form_Load() Randomize List2.Clear For i = 1 To 10