桐乡第一中学《VB基本运算和语句》专题测试
2010.4
班级: 高一（ ）班 学号： 姓名：
一、选择题（每题3分）
1、下列不属于VB基本运算的是（ ）
A.函数运算 B.算术运算 C.关系运算 D.逻辑运算
2、在Visual Basic 中，下列优先级最高的运算符是( )
A.* B.\ C.< D.Not
3、Visual Basic 6.0中编程时，当双击窗体上的某个控件时，所打开的窗口是( )
A.工程资源管理器窗口 B.代码窗口 C.工具箱窗口 D.属性窗口
4、下列正确的Visual Basic注释语句是( )
A. Dim a(10) As Integer 定义一个数组
B. Dim a(10) As Integer “定义一个数组
C. Dim a(10) As Integer ‘定义一个数组
D. Dim a(10) As Integer “定义一个数组”
5、数学关系式3≤x<10表示成正确的VB表达式为( )
A. 3<=x<10 B. 3<=x AND <10 C. x>=3 OR x<10 D. 3<=x AND x<10
6、下面正确的赋值语句是( )
A. y=x+30 B. pi*r*r=y C. x+y=30 D. x=3y
7、表达式ASC("F")的类型是( )
A.算术表达式 B. 关系表达式 C. 逻辑表达式 D.字符表达式
8、表达式Int(2.5)、Fix(2.5)、Int(-2.5)、Fix(-2.5)的运算结果分别是( )
A. 2、2、-2、-2 B. 2、2、-3、-2 C. 3、2、-2、-2 D. 2、2、-3、-3
9、如果变量 a=7、b=6、c=4、d=5，则表达式 a<d OR b>c AND c<>d 的值为( )
A. Yes B. No C. True D. False
10.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是( )
A. xyz=1 B. x=1,y=1,z=1 C. x=y=z=1 D. x=1∶y=1∶z=1
11、如果变量a=2,b=3,c=4,d=5，表达式NOT a>b AND NOT d<>c的值是( )
A. False B. True C. 1 D. 0
12、表达式Int(198.555*100+0.5)/100的值为( )
A. 198.56 B. 199.6 C. 198 D. 200
13、函数Mid("123456789",3,4)的值是( )
A. "456" B. "3456" C. 3456 D. 456
14、以下程序代码能执行的是( )
A. If a=1 Then b=0 Else c=0 End If
B. If a=1 Then : B=0: ElseIf C=0 Then : D=0
D. If a = 1 Then
b = 0
Else If c = 0
d = 0
End If
C. If a = 1 Then b = 0
ElseIf c = 0 Then
d = 0
End If
15、下列程序段的循环结构执行后，i的值和y的值是( )
Dim y as Integer, i as integer
y = 0
For i = 1 To 10 Step 2
y = y + i
Next i
A.10、 25 B. 10、36 C. 11、16 D.11、25
16、（浙江高考·2009）将数学表达式写成VB表达式，正确的是( )
A．log(x)/(a+b) B．log(x)/a+b C．ln(x)/(a+b) D．ln(x)/a+b
17、（浙江高考·2009）有如下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)
第17题图
d=Sqr(y)
Next i
调试时出现如第17题图所示的错误提示，产生此错误的语句是( )
A． d=Sqr(y) B．y=a-b C．c=Sqr(x) D．x=a+b
18、（浙江高考·2009）在VB窗体中有一个对象．该对象的属性窗口如图所示。下列说法中不正确的是( )
A．1680为属性值
B．根据“Timer1 Timer”可判断窗体名为Timer
C．该对象的名称为Timer1
第18题图
D．Interval为属性名19、在条件语句If x=1 Then y=2中，下列说法正确是( )
A. x=1和y=2均为赋值语句 B. x=1和y=2均为关系表达式
C. x=1为关系表达式，y=2为赋值语句 D. x=1为赋值语句，y=2为关系表达式
20、下列程序中 s = s + j 语句共执行了多少次，最终s的值为多少？( )
Dim s As Integer，i As Integer, j As Integer
For i = 1 To 10 Step 2
For j = 1 To 5 Step 2
s = s + j
Next j
Next i
A. 12、36 B. 12、20 C. 10、20 D. 15、45
二、综台题：
21、（浙江高考·2009）（每空2分）下列VB程序运行时，在文本框Text1中输人数据6，在文本框Text2中输入数据9，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_C1ick ()
Dim As Integer, b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
a=a*b : b=a/b : a=a/b
Text1.Text=Str(a)
Text2.Text=Str(b)
End Sub
22、填写下面各程序段执行之后对应变量的值（涉及的变量均已定义）（每空3分）
X=5
For i = 1 to 10 Step 2
X = X + i\5
Next I
变量X的值为 ②
s＝5
For i＝3 to 5
i=i+1
s=s+1
Next i
变量s的值为 ①
Dim x(3,5) as integer
For i=1 to 3
For j=1 to 5
x(i,j)=i+j
Next j
Next i
变量x(3,4)的值为 ④
Dim ch as String
ch = "A"
ch = Chr( Asc(ch)+1 )
字符变量ch的值为 ③
A=75
If A>60 Then i = 1
If A>70 Then i = 2
变量i的值为 ⑤
A=75
If A>90 then
i = 1
ElseIf A>80 Then
i = 2
ElseIf A>70 Then
i = 3
ElseIf A>60 Then
i = 4
End If
变量i的值为 ⑦
a = 100
b = 20
a = a + b
b = a - b
a = a - b
变量a的值为 ⑥
x = 6
y = 3
If x > y Then
t = x
x = y
y = t
End If
23、（本题3分）阅读下面的程序段(程序涉及的变量均已定义) 该程序的实现的功能是：
24、下面窗体模块（如图所示）的功能是：用随机函数产生50个不大于1000的整数存入一维数组a中，并出这组数中最大数和最小数，分别存储在变量max和min中。在横线上填上适当内容。（每空4分）
Private Sub Command1_Click()
Dim i As Integer, max As Integer, min As Integer
Const n = 50
Dim a(1 To n) As Integer '定义数组a,大小为50个元素
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000 + 1) '随机产生整数，并赋给数组a(i)
Next i
max = a(1)
min = a(1)
For i = 2 To n
If Then max = a(i)
If Then min = a(i)
Next i
Text1.Text = Str(max)
Text2.Text =
End Sub
第24题图
VB基本运算和语句专题测试参考答案
一、 选择题（每题3分）
题号 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
答案 | A | A | B | C | D | A | A | B | C | D |
题号 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 |
答案 | A | A | B | C | D | A | A | B | C | D |
二、综台题：
21、 9 vb程序设计教程答案第四版刘炳文、 6 （每空2分）
22、 ① 7 、② 8 、③ "B" 、 ④ 7 、
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论