VB考试试题及答案

一、填空题
1、根据数据的编码方式，文件可分为文件和文件。

ASCII、二进制
2、根据数据的存取方式和结构，文件可分为文件和文件。

顺序、随机
3、工程文件的扩展名是，窗体文件的扩展名是。

Vbp、Frm
4、Visual Basic应用程序通常由窗体模块、模块和模块三类组成。

标准、类
5、Visual Basic中的控件分为标准控件、和。

ActiveX控件、可插入对象
6、Visual Basic中的菜单有两种形式，分别是形式和形式。

直接执行、打开对话框
7、一个控件在窗体上的位置由和属性决定。

Top、Left
8、Visual Basic字符采用编码方式，每个字符用个字节编码。

统一、二
9、控件和窗体的Name属性只能通过期间设置，不能在期间设置。

设计、运行
10、在Visual Basic中，字符串常量要用括起来，日期/时间常量要用括起来。

“、#
11、以下程序段的输出结果是。

9
X=8.6
Y=Int(X+0.5)
Print Y
12、要想在文本框中显示垂直滚动条，必须把属性设置为2，同时把属性设置为。

ScrollBars、MultiLine、True
13、控件数组的名字由属性指定，而数组中的每个元素由属性指定。

Name、 Index
14、在KeyDown和KeyUp事件过程中，当参数Shift的值为、、
,分别代表、、键。

1、2、4、Shift、Ctrl、Alt
15、以下语句的输出结果是。

3
A%=3.14156
Print A%
16、为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为，并把BackStyle属性设置为。

0、1
17、由Array函数建立的数组名字必须是类型。

数组作过程形参时，调用方式为调用。

变体、传址
18、在MouseDown和MouseUp事件过程中，当参数Button的值为、、
时，分别代表鼠标的、、键。

1，2，4、左、右、中
二、选择题
1、语句Print 5*5\5/5的输出结果是（）B
A、5
B、25
C、0
D、1
2、实现字符的Unicode编码方式与ANSI编码方式相互转换的函数是( )B
A、Str
B、StrConv
C、Trim
D、Mid
3、为了窗体的大小可以改变，必须把它的BorderStyle属性设置为（）B
A、1
B、2
C、3
D、4
4、下列不能激活属性窗口的操作是（）D
A、用鼠标双击窗体的任何部件
B、执行“工程”菜单中的“属性窗口”命令
C、按Ctrl+F4键
D、按F4键
5、要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为（）B
A、0
B、1
C、2
D、其他
6、为了在按下回车健时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）C
A、Value
B、Cancel
C、Default
D、Enabled
7、使用Picture1和Text1分别作为图片框和文本框的名称，下列不正确的语句是（）C
A、Print 25
B、Picture1.Print 25
C、Text1.Print 25
D、Debug.Print 25
8、下列可作为Visual Basic的变量名是（）A
A、Filename
B、A(A+B)
C、254D
D、Print
9、下列不能打开代码窗口的操作是（）D
A、双击窗体上的某个控件
B、双击窗体
C、按F7键
D、单击窗体或控件
10、确定一个窗体或控件大小的属性是（）B
A、width或Height
B、width和Height
C、Top或Left
D、Top和Left
11、在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是（）C
A、顺序输入方式
B、顺序存取方式
C、随机存取方式
D、二进制方式
12、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）A
A、MenuItem.Enabled=False
B、MenuItem.Enabled=True
C、MenuItem.Visible=True
D、MenuItem.Visible=False
13、编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Integer,_
Y As Integer)
If Shift=6 And Button=2 Then
Print “BBBB”
End if
End Sub
程序运行后，为了在窗体上输出“BBBB”，应执行的操作是（）D
A、同时按下Shift键和鼠标左键
B、同时按下Shift键和鼠标右键
C、同时按下Ctrl、Alt键和鼠标左键
D、同时按下Ctrl、Alt键和鼠标右键
14、用下面的语句所定义的数组元素个数是（）C
Dim Array(3 To 5,-2 To 2) As Integer
A、20
B、12
C、15
D、24
15、为了使用列表框中的项目分为多列显示，需要设置的属性为（）A
A、Columns
B、Style
C、List
D、MultiSelect
16、为了在按下ESC时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）B
A、Value
B、Cancel
C、Default
D、Enabled
17、下列不能打开菜单编辑器的操作是（）D
A、按Ctrl+E键
B、单击工具栏中的“菜单编辑器”按钮
C、执行“工具”菜单中的“菜单编辑器”命令
D、按Shift+Alt+M键
18、决定窗体有无控制菜单的属性是（）A
A、ControlBox
B、MinButton
C、Enabled
D、MaxButon
19、编写如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If (Button And 3)=3Then
Print “AAAA”
End if
End Sub
程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键是（）D
A、右
B、左
C、同时按下左、右
D、按什么键都不显示
20、与传统的程序设计语言相比，Visual Basic最突出的特点是（）C
A、结构化程序设计
B、程序开发环境
C、事件驱动编程机制
D、程序调试技术
21、为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（）B
A、1
B、2
C、3
D、4
22、实现字符的Unicode编码方式与ANSI编码方式相互转换的函数是（）B
A、 Str
B、StrConv
C、 Trim
D、 Mid
23、语句Print Sgn(-6^2)＋Abs(-6^2)＋Int(-6^2）的输出结果是（）C
A、-36
B、1
C、-1
D、-72
24、.为了使列表框中的项目分为多列显示，需要设置的属性为（）a
A、 Columns
B、Style
C、List
D、Multiselect
25、用下面的语句所定义的数组元素个数是（）D
Dim Array(-3 To 5) As Integer
A、6
B、7
C、8
D、9
三、分析下列程序，写出程序的运行结果。

（每题5分，共20分）
1、
Sub Inc(A As Integer)
Static X As Integer
X=X+A
Print X;
End Sub
Private Sub Form_Click( )
Inc 2
Inc 3
Inc 4
End Sub
程序运行后，单击窗体，则输出结果是：。

2 5 9
2、在窗体上画一个命令按钮，然后编写如下程序：
Function M(X As Integer,Y As Integer) As Intger M=IIF(X>Y,X,Y)
End Function
Private Sub Command1_Click( )
Dim A As Integer,B As Integer
A=4
B=3
Print M(A,B)
End Sub
程序运行后，单击命令按钮，输出结果是。

4
3、
Private Sub Form_Click( )
Dim K,N,M As Integer
N=10
M=1
K=1
Do While K<=N
M=M*2
K=K+1
Loop
Print M
End Sub
程序运行后，单击窗体，输出结果为_____。

1024
4、
Private Sub Form_Click()
num = 0
Do While num <= 2
num = num + 1
Print num
Loop
End Sub
程序运行后，单击窗体，输出结果是：
1
2
3
5、
Private Sub Form_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
程序运行后，单击窗体，输出结果是。

4
6、
Option Base 1
Privae Sub Form_Click()
Dim A
A=Array(3,2,1,5)
J=1
For I=4 to 1 Step –1
S=S+A(I)*J
J=J*10
Next I
Print S
End Sub
运行该程序，单击窗体，输出结果是。

5123 7、
Private SUB Form_Click( )
A=0
For I=1 To 2
For J=1 To 4
If J Mod 2<>0 Then
A=A+1
End If
A=A+1
Next J
Next I
Print A
End Sub
程序运行后，单击窗体，输出结果是。

12
8、
Option Base 1
Private Sub Form_Click( )
Dim A(4,4)
For I=1 To 4
For J=1 To 4
A(I,J)=(I-1)*3+J
Next J
Next I
For I=1 To 4
For J=1 To 4
Print A(J,I);
Next J
Print
Next I
End Sub
程序运行后，单击窗体，输出结果是
9 12
10 13
四、编程题
1、编写程序，输出100~200之间的所有素数。

Private Form_Click()
Dim a, b, c, temp As Integer
Cls
a = InputBox("请输入a的值")
b = InputBox("请输入b的值")
c = InputBox("请输入c的值")
Print "排序前为"
Print "a="; a, "b="; b, "c="; c
If a < b Then temp = a: a = b: b = temp
If a < c Then temp = a: a = c: c = temp
If b < c Then temp = b: b = c: c = temp
Print "排序后为："
Print "a="; a, "b="; b, "c="; c
End Sub
2、编写程序，从键盘输入三个数给a,b,c，按由大到小输出。

Private Sub Form_Click()
For n = 101 To 200 Step 2
k = Int(Sqr(n))
i = 2
swit = 0
While i <= k And swit = 0
If n Mod i = 0 Then
swit = 1
Else
i = i + 1
End If
Wend
If swit = 0 Then
d = d + 1
If d Mod 5 = 0 Then
Print n; " "
Else
Print n; " ";
End If
End If
Next n
End Sub
3、在窗体上建立3个文本框（text1、text2、text3）和一个命令按钮。

程序运行后，单击命令按钮，在第一个文本框中显示由Commandl Click事件过程设定的内容（例如"Microsoft Visual Basic同时在第二、第三个文本框中分别用小写字母和大写字母显示第一个文本框中的内容。

Private Sub Command1_Click()
Text1.Text = " Microsoft Visual Basic "
End Sub
Private Sub Text1_Change()
Text2.Text =LCase$(Text1.Text)
Text3.Text = UCase$(Text1.Text)
End Sub
4、从键盘上输入10个数，并放入一个一维数组中，然后将其前5 个元素与后5个元素互换，即第1 个元素与第10个元素互换，第2个元素与第9个元素互换……第5 个元素与第6个元素互换。

分别输出原来各元素的值和对换后元素的值。

Option Base 1
Private Form_Click( )
Dim A(10) AS Integer
For I=1 To 10
A(I)=Val(InputBox(“请输入数据：”))
Next I
Print “交换前数据为：”
For I=1 To 10
Print A(I);” ”;
Next I
print
For I=1 To 5
T=A(I):A(I)=A(11-I):A(11-I)=T
Next I
Print “交换后数据为：”
For I=1 To 10
Print A(I);” ”;
Next I
End SUB
5、编写程序，从键盘输入n，求1!+2!+3!+……+n!
Private Form_Click( )
S=0
I=1
P=1
N=val(inputbox(“请输入n:”))
For i=1 to n
P=p*i
S=s+p
Next i
Print “n=”+str(n,2),“s=”+str(s,,0)
End Sub
6、编写程序，从键盘输入两个整数m和n，求它们的最大公约数。

Private Form_Click( )
M=val(inputbox(“请输入m:”))
N=val(inputbox(“请输入n:”))
Print “m=”+str(m,4),”n=”+str(n,4)
R=m mod n
Do While r<>0
M=n:n=r:r=m mod n
enddo
Print “r=”+str(n,5)
End Sub。