vb题库及答案.docx

最新 VB题库及答案

一、选择题

第 1 部分

1、在窗体（名称为 Form1）上画一个名称为Text1 的文本框和一个名称为Command1

的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字

符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事

件过程是

A、Private Sub Text1_Change()

=" 计算机等级考试 "

End Sub

B、Private Sub Command1_Click()

Caption = "计算机等级考试"

End Sub

C、Private Sub Form_Click()

=" 计算机等级考试 "

End Sub

D、Private Sub Command1_Click()

=" 计算机等级考试 "

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 +

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、2C、3 D、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、“时钟”

B、=“时钟”

C、Caption= “时钟”

D、(“时钟” )

15、保存文件时，窗体的所有数据存储格式为( )

A、 * ．PRG

B、 * ．FRM C 、 * ． VBP D 、 * ．EXE

16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1 和 Timer1 ，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。

以下是实现上述操作的程序：

Private Sub Command1_Click()

End Sub

Private Sub Timer1_Timer()

= 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.、-1D、显示出错信息

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

=Str(arr(2, 2) + arr(3, 3))

End Sub

程序运行后，单击窗体，在标签中显示的内容是

A、 12 B 、 13 C、14D、15

27.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名

称。下列能正确实现上述操作的程序是

A、Private Sub List1_Click()

=

End Sub

B、Private Sub List1_Click()

=

End Sub

C、Private Sub List1_Click()

=

End Sub

D、Private Sub List1_Click()

=

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 为A、True True B False ，则“A and B”和“ A Or

、True False C、False True

B”的值分别是

（ 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、aption“时钟”

B、=“时钟”

C、Caption= “时钟”

D、(“时钟” )

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 、1B、2 C 、 3D、4

18、正确的算术表达式是（）。

A、 -3/8+5\ 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^2 B 、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、1C、-1D、2

25、下列说法中正确的是（）。

A、数组只具有数组名，而没有数组类型

B、数组只具有数组类型，而没有数组名

C、数组的类型和数组元素的类型不同

D、数组和变量一样，都有名称和类型这两种属性

26、创建公用数组的方法是（）。

A、在模块中用Private语句声明C、在过程中用Private语句声明

B、在模块中用

D、在过程中用

Public

Public

语句声明

语句声明

不是B 就是D

27、Visual Basic

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 、 Dim C、Public

不是 A 就是B

二、填空题（每空 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

Print

End If

Next l

End Sub

结果：11 11 11 11 11

11 11 11 11 11

4、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

="VB 程序设计 "

End Sub

Private Sub Text1_Change()

"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)

Min= arr1(1)

For i=2 To 8

If arr1(i)

Next i

Print "最小值是：" ;min

End Sub

8、在名称为 Form1 的窗体上画一个文本框，其名称为 Text1 ，在属性窗口中把该

文本框的 MultiLine 属性设置为 True ，然后编写如下的事件过程：以下程序

的功能是，把磁文件的内容到内存并在文本框中示出来，然后把文本框中的内容存入磁文件。

Private Sub Form_Click()

Open"d:\test\"For Input As #1

Do While Not eof(1)

Line Input #1,aspect$

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

=whole$

Close #1

Open "d:\test\"For Output As #1

Print #1,

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