浙江省诸暨中学2018-2019学年高二上学期10月（期中）阶段性考试信息技术试题
诸暨中学2018学年第一学期高二阶段性考试技术试卷
第一部分信息技术（共50分）
一、选择题（本大题共13小题，每小题2分，共26分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分。）
1.在VB中，下列表达式的值为5的是（）
A．Sqr(5.2) B．Abs(5.2) C．Fix(5.2) D.Len("5.2")
2.假设变量a=4，b=5，执行a=a*b:b=a/b:a=a/b语句以后，a和b的值分别是（）
A．5 和4 B．4 和5 C．20 和20 D．4 和4
3.在VB中，设整型变量x、y的值分别是3、6，则下列语句中，能实现在标签Label1中显示“s = 18”的语句是（）
A．Label1.Caption = "s = x * y"
B．Label1.Caption = "s = " + Str(x * y)
C．Label1 = "s = " (x + y)＾ 2
D. Label1.Caption = "s = " + Val(x * y)
4.在Visual Basic中，能随机产生一个小写字母的表达式是（）
A．Asc(Int(Rnd()*25+97)
B．Chr(Int(Rnd()*25+65)
C．Chr(Int(Rnd()*26+97)
D. Asc(Int(Rnd()*26+65)
5．某算法的流程图如第5题图所示。执行这部分流程后，输出S的结果是（）
A.45 B.6 C.10 D. 15
6.有如下VB 程序段：
S = 0
i = 5
Do While i < 12
If s <6 Then s = s+i else s = s-3
i = i+1
Loop
执行以上程序后，变量ｉ和ｓ的值分别为（ ）第5题图
A．11 5 B．11 8 C．12 8 D.12 5
7.运行如下ＶＢ程序，单击命令按钮Command1，出现如第7题图所示的出错信息。发
生“下标越界”错误时所执行的语句是（ ）
Private Sub Command1_Click()
Dim a（0 To 7） As Integer
Dim i As Integer＇①
a（0）=1
For i = 1 
To 7 ＇②
a（i）= 2 * a（i-1）+ 1 ＇③
Next i
Text1.Text = Str(a(i))＇④第7题图
End Sub
A．① B．② C．③ D.④
8.某VB程序代码如下：
Dim n As Integer，s As String
n = 64 :s = ""
Do While n > 0
s = Str(n Mod 7) + s
n = n \ 7
Loop
执行该程序段后，变量s的值是（）
A."121" B. 121 C. "211" D. 211
9.在VB中设计了如第9题图a所示的界面，图b为所选对象的属性面板，图c为工程资源管理窗口，以下说法正确的是( )
第9题图a 图b 图c
①所选对象名称是Circle，属于Shape类；②该窗体所存储的文件名是“草图．frm”；③该VB工程名是工程1；④所选对象运行时不可见。
A．①② B．①②③ 
C．①③④ D．①③
10.对于实数ｘ，保留2位小数且第3位四舍五入的ＶＢ表达式是（ ）
A．Int(x*100)/100B．Int(x*1000)/100
C．Int(x*100+0.5)/100D.(x*1000+5)\100
11.执行
各选项的VB程序段后，变量s的值为“99以内所有正偶数之和”的是（）
A．S=0B．For i = 2 To 98
For i = 2 To 99 Step 2s = s + i
s = s + 2 i = i + 2
Next i Next i
C．s = 0 D.i = 2
Do While i<= 98 Do While i<100
i = i + 2 s = s + i
s = s + i i = i + 2
Loop Loop
12.某VB程序段如下：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Boolean[来源:学科网]
a = (a + 1) * 2
b = a - 1
print a:print b
End Sub
程序运行时，单击命令按钮Command1后，变量a和b的值分别是（ ）
A．2 1 B．2 trueC．4 -1 D.4 False
13.某算法的VB程序段如下:
i = 1: j = 7: s = ""
key = 34
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then
s = s + "2": Exit Do 'Exit Do 表示退出循环
ElseIf key < a(m) Then
j = m - 1: s = s + "1"
Else
i = m + 1: s = s + "3"
End If
Loop
Text1.Text = s
数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（）
A. 31 B. 132 C. 313 D. 1312