11微机期末考试题
新疆师范大学-交通工程就业前景
d) AB_7 答案：D
2012-2013学年第二学期期末考试试卷
班级：11计算机 科目：visual
basic 命题：赵强
一、选择题：
1) 下列各项不是Visual
Basic的基本数据类型的是_____。
a) Char
b)
String
c) Integer
d) Double
2) 下列运算结果中，值最大的是 ______。
a) 34
b) 34
c) 4 mod 3
d) 3 mod 4
3) 17 mod 3的运算结果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：D
4) 变量X=32769，则变量声明时不能将其声明为_____。
a)
Intrger
b) Variant
c) Long
d) Single 答案：A
5) 下列符号是Visual
Basic中合法变量名的是_____。
a) IF
b) 7AB
c) A[B]7
6) 使窗体自动向下移动的语句是Move_____。
a) Left, Top+100
b) Top+100
c) Top+100
d) Top=Top+100 答案：A
7) x是小于100的非负数，用vb表达式正确的是______。
a) 0
b) 0<=x<100
c) x>=0 AND x<100
d) 0<=x OR x<100 答案：C
8)
a=5,b=8,则int((b-a)*rnd+a)的结果是介于_____之间的整数。
a) [5,8)
b) (0,5)
c) [3,5)
d) (0,3] 答案：A
9) Boolean
类型的数据由几个字节组成_______。
a) 1
b) 2
c) 3
d) 4 答案：B
10)
Cint函数返回值类型是_____。
a) 整型
b) 字符串
c) 变体
d) 双精度浮点型 答案：A
11) ControlBox属性只适用于窗体，当窗体的______属性设置为0-None时，
则ControlBox属性不起作用。
a) Borderstyle
b) Autoredraw
c)
Windowstate
d) Enabled
12) dim
a(-3 to 3)所定义的数组元素个数是_____。
a) 6
b) 7
c) 8
d) 9
13)
确定一个窗体大小的属性是_____。
a) Width和Height
b) Width和Top
c) Top和Left
d)
Top和Height
14) 能显示窗体的方法是______。
a) Visible
b) show
c) Hide
d) open
15)
如果要改变窗体的标题,需要设置窗体对象的________属性。
a) Name
b) Caption
c) BackColor
d) BorderStyle
16)
若要将窗体从内存中卸载出去，应该使用的方法是
______。
a)
Show
b) UnLoad
c) Load
d) Hide
17) 设置标签边框的属性是______。
a) BorderStyle
b) BackStyle
c)
AutoSize
d) Alignment
18)
Visual basic采用了_____编程机制。
a) 面向过程
b) 面向对象
c) 事件驱动
d) 可视化
19) 下面的运算符中，哪个是算术运算符_______。
a) Mod
b) =
c) Eqv
d) Xor
20) 以下程序段执行后整型变量n 的值为_____。
N=0
for I=1 to 20 step 5
n=n+1
next I
a) 3
b) 4
c) 5
d) 2
21) 以下程序输出的结果为______。
X=1
y=4
Do Until y>4
x=x*y
y=y+1
Loop
Print x
a) 4
b) 8
c) 12
d) 16
22、以下关于窗体的描述中，错误的是( )。
A、执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B、窗体的Load事件在加载窗体时发生
C、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁
止
D、窗体的Height、Width属性用于设置窗体的高和宽
23、假定窗体的名称为Form1,则把窗体的标题设置为“VB_Test”的语句为
(
)。
A、Form1=“VB_Test” B、n=“VB_Test”
C、=“VB_Test” D、=“VB_Test”
24、设有变量声明:Dim
TestDate As Date,为变量TestDate正确赋值的表达
方式是( )。
A、TextDate=#112002#
B、TestDate=#“112002”#
C、TextDate=date(“112002”)
D、TestDate=Format(“mdyy”,“112002”)
25、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的
值，则应使用(
)关键字在过程中定义局部变量。
A、Dim
B、Private
C、Public
D、Static
二、填空题。
1)
假定当前日期为2002年7月12日，星期六，则执行语句Print
day(now)后，输出结
果是______。
2)
语句a%=3.14156:Print a%的输出结果是______。
3)
Visual Basie中的常量分为两种，一种是值常量，一种是____常量。
4)
下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。
For j=1
to 10
s=s+j
If s>=10
then______。
Next j
5)
表达式36*5的值是_______。
三、判断题
1) 在Select
case结构中应至少包含一个1子句。
2) 属性是指对象的名字、大小、位置和颜色等特性。
3) 在一个语句行内写多条语句时，语句之间应该用逗号分隔。
4)
用面向对象的编程思想观点来看，一只黑色的台球被打进袋内，则台球是对象、黑色
是方法。
5) 事件是Visual Basic预先定义的对象能识别的动作。
四、写出下列程序的运行结果。
1) 下面程序段执行后的结果是_____。
X=10
For I=6.3 to 4.9 Step -0.3
x=x-1
Next
Print x
2)
在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码：
Private Sub CommAnd1_Click()
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print
M(2+M(x))
End Sub
程序运行后，单击命令按钮，输出结果是______。
3)
下列程序的执行结果是_____。
Private Function P(N As
Integer)
For I = 1 To N
SUM =
SUM + I
Next I
P = SUM
End
Function
Private Sub Command1_Click()
S = P(1) + P(2) + P(3) + P(4)
Print S;
End Sub
4. Sub Swap1(ByVal x%, ByVal y%
)
Dim t%
t = x: x = y: y =
t
End Sub
Sub Swap2(ByRef x%, ByRef
y%)
Dim t%
t = x: x = y: y
= t
End Sub
Sub Command1_Click()
Dim a%, b%
a = 10: b = 20
Print a; b
Call Swap1(a, b)
Print a; b
a = 10: b = 20
Call Swap2(a, b)
Print a; b
End Sub
五、程序填空
1)
以下程序计算2到50间所有偶数的和，请补充完该程序
Sub mult()
Dim
Sum As Integer
Sum=0
Dim I as integer
For___to 50
If I MOD 2=___Then___
Next I
Print sum
End Sub
2、输入任意
长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEF”变换成
“FEDCBA”。请将
程序补充完整。
Private Sub Command1_Click()
Dim
a$$, i%, c$$, n% 'n存放字符串的长度
a = InputBox(
n = [Len(a) ]
For i = 1 To Int(n 2)
c = Mid(a, i, 1)
Mid(a, i, 1) = [
Mid(a,n-i+1,1) ]
Mid(a, n - i + 1, 1) = c
Next
i
End Sub
答题纸
1. 选择题：(50’)
1-5_________6-10__________11-15___________
16-20____________21-25____________
2.填空题：(10’)
1._________ 2.__________
3.____________
4.__________
5.___________
3.判断题：(10’)
1-5____________
4.写结果：（30’）
1.________
2.________
3.________
4._________
五、程序填空
d) AB_7 答案：D
2012-2013学年第二学期期末考试试卷
班级：11计算机 科目：visual
basic 命题：赵强
一、选择题：
1) 下列各项不是Visual
Basic的基本数据类型的是_____。
a) Char
b)
String
c) Integer
d) Double
2) 下列运算结果中，值最大的是 ______。
a) 34
b) 34
c) 4 mod 3
d) 3 mod 4
3) 17 mod 3的运算结果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：D
4) 变量X=32769，则变量声明时不能将其声明为_____。
a)
Intrger
b) Variant
c) Long
d) Single 答案：A
5) 下列符号是Visual
Basic中合法变量名的是_____。
a) IF
b) 7AB
c) A[B]7
6) 使窗体自动向下移动的语句是Move_____。
a) Left, Top+100
b) Top+100
c) Top+100
d) Top=Top+100 答案：A
7) x是小于100的非负数，用vb表达式正确的是______。
a) 0
b) 0<=x<100
c) x>=0 AND x<100
d) 0<=x OR x<100 答案：C
8)
a=5,b=8,则int((b-a)*rnd+a)的结果是介于_____之间的整数。
a) [5,8)
b) (0,5)
c) [3,5)
d) (0,3] 答案：A
9) Boolean
类型的数据由几个字节组成_______。
a) 1
b) 2
c) 3
d) 4 答案：B
10)
Cint函数返回值类型是_____。
a) 整型
b) 字符串
c) 变体
d) 双精度浮点型 答案：A
11) ControlBox属性只适用于窗体，当窗体的______属性设置为0-None时，
则ControlBox属性不起作用。
a) Borderstyle
b) Autoredraw
c)
Windowstate
d) Enabled
12) dim
a(-3 to 3)所定义的数组元素个数是_____。
a) 6
b) 7
c) 8
d) 9
13)
确定一个窗体大小的属性是_____。
a) Width和Height
b) Width和Top
c) Top和Left
d)
Top和Height
14) 能显示窗体的方法是______。
a) Visible
b) show
c) Hide
d) open
15)
如果要改变窗体的标题,需要设置窗体对象的________属性。
a) Name
b) Caption
c) BackColor
d) BorderStyle
16)
若要将窗体从内存中卸载出去，应该使用的方法是
______。
a)
Show
b) UnLoad
c) Load
d) Hide
17) 设置标签边框的属性是______。
a) BorderStyle
b) BackStyle
c)
AutoSize
d) Alignment
18)
Visual basic采用了_____编程机制。
a) 面向过程
b) 面向对象
c) 事件驱动
d) 可视化
19) 下面的运算符中，哪个是算术运算符_______。
a) Mod
b) =
c) Eqv
d) Xor
20) 以下程序段执行后整型变量n 的值为_____。
N=0
for I=1 to 20 step 5
n=n+1
next I
a) 3
b) 4
c) 5
d) 2
21) 以下程序输出的结果为______。
X=1
y=4
Do Until y>4
x=x*y
y=y+1
Loop
Print x
a) 4
b) 8
c) 12
d) 16
22、以下关于窗体的描述中，错误的是( )。
A、执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B、窗体的Load事件在加载窗体时发生
C、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁
止
D、窗体的Height、Width属性用于设置窗体的高和宽
23、假定窗体的名称为Form1,则把窗体的标题设置为“VB_Test”的语句为
(
)。
A、Form1=“VB_Test” B、n=“VB_Test”
C、=“VB_Test” D、=“VB_Test”
24、设有变量声明:Dim
TestDate As Date,为变量TestDate正确赋值的表达
方式是( )。
A、TextDate=#112002#
B、TestDate=#“112002”#
C、TextDate=date(“112002”)
D、TestDate=Format(“mdyy”,“112002”)
25、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的
值，则应使用(
)关键字在过程中定义局部变量。
A、Dim
B、Private
C、Public
D、Static
二、填空题。
1)
假定当前日期为2002年7月12日，星期六，则执行语句Print
day(now)后，输出结
果是______。
2)
语句a%=3.14156:Print a%的输出结果是______。
3)
Visual Basie中的常量分为两种，一种是值常量，一种是____常量。
4)
下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。
For j=1
to 10
s=s+j
If s>=10
then______。
Next j
5)
表达式36*5的值是_______。
三、判断题
1) 在Select
case结构中应至少包含一个1子句。
2) 属性是指对象的名字、大小、位置和颜色等特性。
3) 在一个语句行内写多条语句时，语句之间应该用逗号分隔。
4)
用面向对象的编程思想观点来看，一只黑色的台球被打进袋内，则台球是对象、黑色
是方法。
5) 事件是Visual Basic预先定义的对象能识别的动作。
四、写出下列程序的运行结果。
1) 下面程序段执行后的结果是_____。
X=10
For I=6.3 to 4.9 Step -0.3
x=x-1
Next
Print x
2)
在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码：
Private Sub CommAnd1_Click()
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print
M(2+M(x))
End Sub
程序运行后，单击命令按钮，输出结果是______。
3)
下列程序的执行结果是_____。
Private Function P(N As
Integer)
For I = 1 To N
SUM =
SUM + I
Next I
P = SUM
End
Function
Private Sub Command1_Click()
S = P(1) + P(2) + P(3) + P(4)
Print S;
End Sub
4. Sub Swap1(ByVal x%, ByVal y%
)
Dim t%
t = x: x = y: y =
t
End Sub
Sub Swap2(ByRef x%, ByRef
y%)
Dim t%
t = x: x = y: y
= t
End Sub
Sub Command1_Click()
Dim a%, b%
a = 10: b = 20
Print a; b
Call Swap1(a, b)
Print a; b
a = 10: b = 20
Call Swap2(a, b)
Print a; b
End Sub
五、程序填空
1)
以下程序计算2到50间所有偶数的和，请补充完该程序
Sub mult()
Dim
Sum As Integer
Sum=0
Dim I as integer
For___to 50
If I MOD 2=___Then___
Next I
Print sum
End Sub
2、输入任意
长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEF”变换成
“FEDCBA”。请将
程序补充完整。
Private Sub Command1_Click()
Dim
a$$, i%, c$$, n% 'n存放字符串的长度
a = InputBox(
n = [Len(a) ]
For i = 1 To Int(n 2)
c = Mid(a, i, 1)
Mid(a, i, 1) = [
Mid(a,n-i+1,1) ]
Mid(a, n - i + 1, 1) = c
Next
i
End Sub
答题纸
1. 选择题：(50’)
1-5_________6-10__________11-15___________
16-20____________21-25____________
2.填空题：(10’)
1._________ 2.__________
3.____________
4.__________
5.___________
3.判断题：(10’)
1-5____________
4.写结果：（30’）
1.________
2.________
3.________
4._________
五、程序填空