浙江省信息技术学考VB模块基础检测(附参考答案)

VB模块基础检测（高一）

班级姓名分数

一、选择题（本大题共20小题，每小题3分，共60分）

每小题4个选项中只有一个符合题目要求，不选、错选、多选均不得分。请将选项直接写在各小题相应位置。1．某算法的自然语言描述与流程图表示分别如下：

则流程图中空白处理框①和②处应填入的是（）

A．①y ←x2– 1 ②x ←2x – 1

B．①y ←x2– 1 ②y ←2x – 1

C．①y ←2x – 1 ②y ←x2– 1

D．①x ←x2– 1 ②y ←2x – 1

2．字符串变量a的值为“Hello,world!”，下列VB表达式的值是“world”的是（）

A．Len(a)B．Mid(a, 6, 5)C．Mid(a, 7, 4)D．Mid(a, 7, 5)

3．产生[-20，20] 范围内某一随机整数的表达式是（）

A．Int(Rnd * 41) B．Int(Rnd * 41) - 20

C．Int(40 * Rnd) - 20D．Int(-40 * Rnd) + 20

4．在VB中，若a = 4，b = 3，语句If a > b Then a = a - 2 Else b = b + 1执行后，

下列说法正确的是（）

A．执行了语句a = a - 2B．先执行a = a - 2，再执行c = b + 1

C．执行了语句b = b + 1D．先执行b = b + 1，再执行a = a - 2

5．数学表达式1 ≤ b ≤ 100写成VB表达式，正确的是（）

A．1 <= b <= 100B．1 ≤ b ≤ 100

C．1 <= b And b <= 100D．1 <= b Or b <= 100

6．在VB代码编辑窗口中，输入了“List1.”后出现了如第6题图所示的信息，

其中的“Clear”是List1的（）

A．属性名B．事件名C．对象名D．方法

7．在VB数组说明语句Dim a(11) As Single中，数组a的元素个数是（）A．0 B．12 C．1 D．11

8．下列VB表达式的值等于100的是（）

A．Val("96") + 4 B．Len("40") + 60 C．Sqr(81) + 19 D．Str(20) + "80" 9．若x为正整数，同时能被5整除，则下列VB表达式的值一定为真的是（）A．x / 5 = 0 B．x Mod 5 = 0 C．Int(x \ 5) = 0 D．5 Mod x = 0第6题图

第1步：输入一个实数x

第2步：判断x与0的大小关系，若x≥0，则y=x2-1，否则y=2x-1

第3步：输出y

第4步：结束

10．若x、y都是正整数，且关系表达式x \ y = 1为真，则下列VB表达式值一定为真的是（）A．x Mod y = 0B．x < y C．x * y Mod 2 = 0D．x >= y And x < 2 * y

11．有如下VB程序段：

For i = 1 To 1000

a = Int(Rnd * 100 + 1)

b = Int(Rnd * 100 + 1)

x = a + b

y = a - b

c = Sqr(x)

第11题图

d = Sqr(y)

Next i

调试时出现如第11题图所示的错误提示，产生此错误的语句是（）

A．x = a + b B．y = a - b C．c = Sqr(x)D．d = Sqr(y)

12．有如下VB程序段：

m = a(10)

For i = 9 To 1 step -1

If m > a(i) Then m = a(i)

Next i

该程序段执行后，变量m中存储的是（）

A．a(1)至a(10)中的最大值B．a(1)至a(10)中的最小值

C．a(2)至a(10)中的最大值D．a(2)至a(10)中的最小值

13．某VB程序段如下：

Dim a(1 To 20) As Integer

Dim i As Integer

a(1) = 1

For i = 1 To 20

a(i) = a(i - 1) * i

Next i

运行该程序段，首先会出现的错误提示为（）

A．下标越界B．子程序或函数未定义

C．要求对象D．溢出

14．已知文本框对象Text1的Text属性值发生改变时，会驱动下面事件处理过程Private Sub Text1_Change()

If Val < 500 Then = + "2"

End Sub

开始时，在Text1中输入6，Text1最后显示值是（）

A．622B．2222

C．62D．226

15. 某VB程序的代码如下：

Private Sub Command1_Click()

a=Val

b=Val

s=a*b

=Str(s)

End Sub

运行程序，单击命令按钮Command1后弹出图中所示出错信息提示，引起该错误的语句是（）A．a=Val B．b=Val C．s=a*b D．=Str(s)

16. 下列V B表达式中，值为字符串型的是( )

①str(x) ② ③ ④Chr(x) ⑤Asc(x)

A．①③⑤B．①②④C．②④⑤D．②③④

17．下列能计算Sum = 1 + 2 / 3 + 3 / 5 + …… + 50 / 99的VB程序段是（）

A．Sum = 1

For i = 1 To 49

Sum = Sum + i / (2 * i - 1) Next i B．Sum = 0

For i = 1 To 99

Sum = i / (2 * i - 1) Next i

C．Sum= 0

i = 1

Do While i <= 50

Sum = Sum + i / (2 * i - 1)

i = i + 1

Loop D．Sum= 0

i = 1

Do While i <= 50

Sum = Sum + i / (2 * i - 1) Loop

18．对称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:

Dim n As Integer, i As Integer, j As Integer, k As Integer

Dim s As String, c1 As String, c2 As String

s =

n=Len(s)

k=0 : j=n

For i = 1 To n/2

Next i

If k = 0 Then ="对称" Else = "不对称"

方框中的代码由以下三部分组成：

①j = j - 1

②If c1 <> c2 Then k = k + 1

③c1= Mid(s,i,1) : c2 = Mid(s,j,1)

代码顺序正确的选项是

A．①③②B．②③①C．③②①D．②①③

19．某数列前三项分别为：a1 = 2、a2 = 3、a3 = 4，以后每项都满足：a k = a k-3 + a k-1（k>3）,