最新VB考试题目及答案
一、选择题
第1部分
1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是
A、Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B、Private Sub Command1_Click()
Caption = "计算机等级考试"
End Sub
C、Private Sub Form_Click()
Text1.Caption = "计算机等级考试"
End Sub
D、Private Sub Command1_Click()
Text1.Text = "计算机等级考试"
End Sub
2、在一行内写多条语句时，每个语句之间用（）符号分隔。
A、,
B、：
C、.
D、；
3、下面（）是合法的变量名。
A、X_YZ
B、123ABC
C、INTEGER
D、X-Y
4、下面（）是合法的字符常量。
A、ABC$
B、“ABC”
C、…ABC?
D、ABC
5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。
A、14
B、4
C、20
D、2
6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是
A、b=Left(a,10)
B、b=Mid(a,10)
C、b=Right(a,10)
D、b=Mid(a,11,10)
7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为
A、"a"
B、"b"
C、"B"
D、"A"
8、在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为
A、123
B、456
C、579
D、123456
9、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（）。
A、AND->NOT->OR
B、NOT->AND->OR
C、OR->NOT->AND
D、NOT->OR->AND
10、下面程序段运行时内层循环的循环总次数（）。
FOR X=1 TO 2
FOR Y=1 TO X
NEXT Y
NEXT X
A.、1 B、2 C、3D、4
11、在VB中，复写框（Check）的Value值有三种，分别是（）。
A、-1，0，1
B、0，1，2
C、1，2，3
D、True，False，0
12、若要退出For循环，可使用的语句为（）。
A、Exit
B、Exit Do
C、Time
D、Exit For
13、利用VB设计程序的基本步骤可分四步：
（1）设计用户界；（2）（）；（3）运行调试程序；（4）生成执行文件。
A、编写代码
B、设计算法
C、信息反馈
D、系统集成
14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是
()
A、Form1.Caption “时钟”
B、Form1.Caption=“时钟”
C、Caption=“时钟”
D、Fopm1.Caption( “时钟”)
15、保存文件时，窗体的所有数据存储格式为( )
A、*．PRG
B、*．FRM
C、*．VBP
D、*．EXE
16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1._______
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在_____处应填入的内容是
A、Enabled = True
B、Enabled = False
C、Visible = True
D、Visible = False
17、把窗体的KeyPreview属性设置程为True，然后编写如下事件过程
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序运行后，按键盘上的“A“键，则在窗体上显示的内容是
A、A
B、B
C、C
D、D
18、VB中的变量如果没有显示声明其数据类型，则默认为（）
A、日期型
B、数据型
C、字符型
D、变体型
19、在VB中，通过改变列表框（）属性的值，可以为列表框添加项目。
A、List
B、（名称）
C、Caption D 、Text
20、已知A$=”12345678”，则表达式Val(left$(a$,4)+Mid$(a$,4,2))的值为（）。
A、12345
B、123445
C、8 D. 6
21、下面程序段显示的结果是（）。
Dim x
If x then print x else print x+1
A、1
B、0 C.、-1 D、显示出错信息
22、用来测试指定文件结束状态的函数是（）
A、Eof
B、FreeFile
C、Loc
D、Open
23、当Long类型数据与Single类型运算时,运算结果的类型为（）。
A、Integer
B、Long
C、Single
D、Double
24、某一VB工程含F1、F2两个窗体，执行“F1．Show：F2．Hide”语句后，F1、
F2窗体显示的结果为（）。
A、都显示
B、都不显示
C、仅显示F1窗体
D、仅显示F2窗体
25、数学关系3=〈x〈10表示成正确的VB表达式为（）
A、3〈=x〈10
B、3=〈x AND x〈10
C、x〉=3 OR x〈10
D、3〈=x AND〈10
26.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click()
Dim arr(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3))
End Sub
程序运行后，单击窗体，在标签中显示的内容是
A、12
B、13
C、14
D、15
27.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
https://www.wendangku.net/doc/f516258801.html,= List1.ListIndex
End Sub
C、Private Sub List1_Click()
https://www.wendangku.net/doc/f516258801.html, = List1.Text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
28、设a=5，b=4，c=3，d=2，下列表达式的值是
3>2*b Or a=c And b<>c Or c>d
A、1
B、True
C、False
D、2
30、下列操作不能打开代码窗口的是( )
A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B、选中对象,双击鼠标左键
C、按F7键
D、按F4键
第2部分
1、VB语言的语法规定，多条语句放在同一行中，语句之间用（）分隔。
A、逗号
B、冒号
C、分号
D、单引号
2、在VB中，执行“A=18 MOD 4”语句后，A的值为（）。
A、2
B、4
C、6
D、8
3、A为True，B为False，则“A and B”和“ A Or B”的值分别是（）。
A、True True
B、True False C 、False True D 、False False
4、在VB中，执行“Dim A,B As String” 语句后，A，B的数据结构为（）。
A、整型数
B、实型数
C、字符型
D、字节型
5、在VB中，执行“A=123：B=Str$(A)”语句后，B的数据结构为（）。
A、整型数、
B、字节型
C、实型数
D、字符型
6、在VB中，复写框（Check）的Value值有三种，分别是（）。
A、-1，0，1
B、0，1，2
C、1，2，3
D、True，False，0
7、若要退出For循环，可使用的语句为（）。
A、Exit
B、Exit Do
C、Time
D、Exit For
8、利用VB设计程序的基本步骤可分四步：
（1）设计用户界；（2）（）；（3）运行调试程序；（4）生成执行文件。
A、编写代码
B、设计算法
C、信息反馈
D、系统集成
9、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是()
A、Form.C ap tion“时钟”
B、Form.Caption=“时钟”
C、Caption=“时钟”
D、Fopm.Caption( “时钟”)
10、保存文件时，窗体的所有数据存储格式为（）。
A 、*．PRG
B 、*．FRM C、*．VBP D、*．EXE
11、窗体初始化程序应写在( )事件中。
A、Load B 、Unload C、Activate D、GotFocus
12、某一VB工程含F1、F2两个窗体，执行“F1．Show:F2．Hide”语句后，F1、F2窗体显示的结果为（）。
A、都显示
B、都不显示
C、仅显示F1窗体
D、仅显示F2窗体
13、VB的数据类型分为（）
A、数值型、字符型、布尔型、日期型
B、数值型、字符型、对象型、日期型
C、基本类型、扩展类型
D、整型、实型、字符型、日期型、布尔型
14、VB中的变量如果没有显示声明其数据类型，则默认为（）
A、日期型
B、数据型
C、字符型
D、变体型
15、在VB中，通过改变表框（）属性的值，可以为列表框添加项目。
A、List
B、（名称）
C、Caption
D、Text
16、在VB中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（）。
A、AND->NOT->OR
B、NOT->AND->OR
C、OR->NOT->AND
D、NOT->OR->AND
17、下面程序段运行时内层循环的循环总次数（）。
FOR X=1 TO 2
FOR Y=0 TO X-1
NEXT Y
NEXT X
A、1
B、2
C、3
D、4
18、正确的算术表达式是（）。
A、-3/8+5\INT24.6
B、8 * 3 / 5
C、[(X+Y)*Z]/30
D、(X^2+Y/3)*X3
19、若A=2, B=3, C=4, 则值为真的关系式是（）。
A. 12/A+2=B^2B、3>2*B OR A=C AND B>C OR A>B
C、A>B AND B<=C OR 3*A > C
D、A*B > C+3
20、当Long类型数据与Single类型运算时,运算结果的类型为（）。
A、Integer
B、Long
C、Single
D、Double
21、下面关于顺序文件的描述正确的是（）。
A. 每条记录长度必须相同
B. 可通过编程对文件中的某条记录方便的修改。
C. 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示。
D. 文件的组织结构复杂。
22、下列（）不属于VB的控件。
A、窗体
B、数据
C、形状
D、直线
23、下面（）是合法的变量名。
A、X_YZ
B、123+ABC
C、INTEGER
D、X-Y
24、下面的程序段，输入9后，输出结果是（）。
X=inputbox(“输入一个数”)
Select case x
Case 1 to 5
Y=-1
Case 5 to 10
Y=0
Case 10 to 15
Y=1
End select
A、0B、1 C、-1 D、2
25、下列说法中正确的是（）。
A、数组只具有数组名，而没有数组类型
B、数组只具有数组类型，而没有数组名
C、数组的类型和数组元素的类型不同
D、数组和变量一样，都有名称和类型这两种属性
26、创建公用数组的方法是（）。
A、在模块中用Private语句声明
B、在模块中用Public语句声明
C、在过程中用Private语句声明D语句声明
27、Visual Basic 6.0
A、传值
B、传地址
C、传值和传地址
D、从实参到形参
28、已知A$=”12345678”，则表达式Val(left$(a$,4)+Mid$(a$,4,2))的值为（）。
A、12345
B、123445
C、8
D、6
29、下面正确的赋值语句是（）
A、x+y=30
B、y= *r*r
C、y=x+30
D、3y=x
30、要保留动态数组原有的内容，应当使用（）语句。
A、Redim Preserve
B、Redim
C、Public
二、填空题（每空2分，共20分）
1、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。请在有（）的地方填上适当的语句或表达式。(8分)
Private Sub Command1_Click()
Dim s As Single
Dim i As Single
s=（0 ）
For i=1 to 100 （step 2 ）
S=（s + i ）
(next i )
Print s
End Sub
2、在下列程序的（）内写上适当的内容，使能输出如下图形。
*
* *
* * *
* * * *
* * * * *
* * * * * *
程序如下：
Private Sub Command1_Click()
For i=1 to （6 ）
For j=1 to （i-6）
Print （“*”）
Next j
（Print String(i, "*")）
Next i
End Sub
3、写出下列程序的执行结果
Private Sub Form_Click()
Dim a(1 To 10) As Integer
Dim b(1 To 10) As Integer
Dim c(1 To 10) As Integer
For i = 1 To 10
a(i) = i
Next i
b(1) = 10
For j = 9 To 1 Step -1
b(10 - j + 1) = j
Next j
For k = 1 To 10
c(k) = a(k) + b(k)
Next k
For l = 1 To 10
Print c(l);
If l = 5 Then
End If
Next l
End Sub
结果：11 11 11 11 11
11 11 11 11 11
4、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.text="VB程序设计"
End Sub
Private Sub Text1_Change()
Picture1.Print"VB Programming"
End Sub
程序运行后，单击窗体，在文本框显示的内容是__ VB程序设计____，而在图片框显示的内容是__ VB Programming ____。
5、下列程序输出的值是多少？
Private Sub Command1_Click()
s = 0
For i = 9 To 42 Step 11
s = s + i
Next i
If i > 50 Then
s = s + i
Else
s = s - i
End If
Print s
End Sub
结果是：_______155_________。
6、设有如下程序：
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是计算1到8的累加。程序运行后，单击窗体，输出结果为_36___。
7、设有如下程序：用Array 函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer,i As Integer
arr1=Array(12,435,76,-24,78,54,866,43)
For i=2 To 8
If
Next i
Print "最小值是：";
End Sub
8、在名称为Form1 的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine 属性设置为True，然后编写如下的事件过程：以下程序的功能是，把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
Private Sub Form_Click()
Open"d:\test\smtext1.txt"For Input As #1
Do While Not eof(1)
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open "d:\test\smtext2.txt"For Output As #1
Print #1,text1.text
Close #1
End Sub
三、程序设计题
1、编写一个函数计算1*2*…*n的值，函数名为fact()
Private Function fact(n As Integer) As Integer
Dim i As Integer
Dim r As Integer
r = 1
For i = 1 To n
r = r * i
Next i
fact = r
End Function
End Sub
2、编写一个过程,求成1*2*3*…*N的值，过程名为NA。
3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox()函数输入框。当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。
提问：（1）、应该对窗体的什么事件进行编程？
（2）、编写程序代码，实现上述功能。
应该对窗体的单击（Click）事件进行编辑
Private Sub Command1_Click()
Dim a(15), i As Integer
For i = 1 To 15
a(i) = InputBox("请输入15个整数，单击确定按钮.", "", "")
Next
For i = 1 To 15
Print a(i); " ";
If i Mod 5 = 0 Then Print
Next i
End Sub
4、已知三角形的三条边，编写一个函数求其面积，函数名自命名。
Private Sub Command1_Click()
Dim a, b, c, l, S
a = Val(InputBox("请输入第一条边的长："))
b = Val(InputBox("请输入第二条边的长："))
c = Val(InputBox("请输入第三条边的长："))
l = (a + b + c) / 2
If l <= a Or l <= b Or l <= c Then
MsgBox "输入的数据不能组成三角形!"
Exit Sub
End If
S = Sqr(l * (l - a) * (l - b) * (l - c))
Print S
End Sub