当前位置：文档之家› 南京工业大学VB期末考试复习VB题库2

南京工业大学VB期末考试复习VB题库2

第四套

VisualBasic是一种面向_____的程序设计语言。

A、过程

B、用户

C、工程

D、对象

答案：

一个应用程序_____窗体。

A、可包括多个

B、应该有两个

C、只许有一个

D、可以没有

答案：

VisualBasic中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、_____、查询、图表、

工具、外接程序、窗口和帮助。

A、浏览

B、运行

C、属性

D、查看

答案：

一只白色的足球踢进球门，则白色、足球、踢、进球门是________。

A、对象、属性、方法、事件

B、属性、对象、方法、事件

C、对象、属性、事件、方法

D、属性、对象、事件、方法

答案：

_____在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。

A、事件

B、工程

C、属性

D、方法

答案：

引用列表框(List1)最后一个数据项应使用_____。

A、List1.List(List1.ListCount)

B、List1.Lis(ListCount)

C、List1.List(ListCount-1)

D、List1.List(List1.ListCount-1)

答案：

当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。

A、文本框的MultiLine属性为False

B、文本框中没有内容

C、文本框的MultiLine属性为True

D、文本框的Locked属性为True

答案：

将数据项"China"添加到列表框(List1)中成为第一项应使用_____语句。

A、List1.Addltem 1,"China"

B、List1.Addltem "China",1

C、List1.Addltem "China",0

D、List1.Addltem 0,"China"

答案：

下列控件中，_____控件不能改变大小。

A、Label

B、Frame

C、Timer

D、TextBox

答案：

当一个CheckBox控件的V alue属性为2时，表示该控件_____。

A、未选中

B、以被选中

C、当前不可用

D、未知

答案：

使用_____方法，可取得列表框中的项数。

A、RemoveItem

B、ListCount

C、AddItem

D、Clear

答案：

要使标签所在处透明显示背景，应设置BackStyle属性的值为_____。

A、False

B、True

C、1

答案：

如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。

A、不显示

B、选中

C、禁止

D、不选中

答案：

复选框的Value属性为1时，表示_____。

A、复选框未被选中

B、复选框内有灰色的勾

C、复选框被选中

D、复选框操作有误

答案：

在VisualBasic中最基本的对象是_____，它是应用程序基石，也是其它控件的容器。

A、窗体

B、文本框

C、命令按钮

D、标签

答案：

以下四个说法中不正确的是_____。

A、控件工具箱中可以添加新的控件

B、可以通过双击工具箱中的控件，将控件加入窗体上

C、VB中所有基本控件都可以改变大小

D、在窗体上选中控件，按【Del】键可删除该控件

答案：

使用_____方法可将新的列表项添加到一个列表框中。

A、Clear

B、Print

C、AddItem

D、RemoveItem

答案：

如果要使文本框同时具有水平滚动条和垂直滚动条，应将ScrollBars设置为_____。

A、0

B、3

C、1

D、2

窗体Form1的名称属性为frm，它的Load事件过程名为_____。

A、Me_Load

B、Frm_Load

C、Form_Load

D、Form1_Load

答案：

若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_____属性。

A、BackColor

B、BorderStyle

C、BackStyle

D、ForeColor

答案：

有应用代码：Text1.Text="VisualBasic"，其中的Text1、Text和"VisualBasic"分别代表_____。

A、对象、方法、属性

B、属性、对象、值

C、对象、属性、值

D、对象、值、属性

答案：

存在如下程序：

Private Sub Command1_Click( )

a=Val(InputBox("请输入"))

b=V al(InputBox("请输入"))

x=a+b

If a>b Then

x=a-b

endif

Print x

End Sub

运行后，从InputBox对话框中连续输入3和4，输出结果为_____。

A、3

B、34

C、0

D、7

答案：

下列程序：

Private Sub Form_Click( )

For j=1 To 15

a=a+j Mod 3

Next j

Print a

End Sub

运行后输出的结果是_____。

A、15

B、1

C、90

D、120

答案：

哪个程序段不能分别正确显示1、2、6、24的值_____。

A、For i=1 To 4

n=1

For j=1 To i

N=n*j

Next j

Print n

Next i

B、n=1

For j=1 To 4

N=n*j

Print n

Next j

C、n=1

j=1

Do While j<=4

n=n*j

Print n

j=j+1

Loop

D、For i=1 To 4

For j=1 To i

n=1

n=n*j

Next j

Print n

Next i

答案：

下面程序段，显示的结果是_____。

Dim x

x=Int(Rnd)+5

select Case x

Case 5

print "优秀"

Case 4

print "良好"

Case 3

print "通过"

Case Else

print "不通过"

End Select

A、通过

B、不通过

C、良好

D、优秀

答案：

在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click()

Dim k As Integer

Dim entry As String, item As String

entry = "EDCBA"

For k = Len(entry) To 1 Step -1

item = LCase(Mid(entry, k, 1)) & k

List1.AddItem item

Next k

End Sub

运行此程序，单击窗体,列表框第4行为_____。

A、d2

B、b2

C、b4

D、d3

答案：

以下程序段运行后，消息框的输出结果是

a=sqr(5)

b=sqr(3)

c=a>b

Msgbox c+2

A、2

B、-1

C、1

D、出错

答案：

下列循环能正常结束循环的是_____。

A、i=5

i=i+1

Loop Until i<0

B、i=6

i=i-2

Loop Until i=1

C、i=1

i=i+2

Loop Until i=10

D、i=10

i=i+1

Loop Until i>0

答案：

假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候

窗体上将输出_____个字母"a"。

Private Sub Timer1_Timer()

For i = 1 To 10

Print "a"

Next i

End Sub

A、10次

B、10000次

C、以上都不对

D、1 000次

答案：

Dim y As Integer

m = 1

Do While m <= 3

m = m + 1

Print m;

Loop

A、2

B、2 3 4

C、2 3

D、2 3 4 5

答案：

设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示

的结果与执行语句a=s:Text1=a的结果相同的有_____个。

①a=Int(s):Text1=a

②a=Fix(s):Text1=a

③a=CInt(s):Text1=a

④a=Format(s,"#####"):Text1=a

A、4

B、1

C、2

D、3

答案：

在窗体中添加一个命令按钮，并编写如下程序代码：

Private Sub Command1_Click( )

Dim y As Integer

y = 0

Do While y<7

y=y+3

Loop

MsgBox y

End Sub

程序运行后，消息对话框中显示_____。

A、8

B、9

C、7

D、6

答案：

在窗体上面一个文本框（其中Name属性为Text1），然后编写如下事件过程：

Private Sub Command1_Click ( )

Text1.Text=""

For i=1 To 10

Sum=Sum+i

Next i

Text1.Text=Sum

End Sub

上述程序的运行结果是_____。

A、在文本框中Text1中输出0

B、出错

C、在文本框中Text1中输出不定值

D、在文本框中Text1中输出55

答案：

用"冒泡"法将数组a中的10个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。

n=1O

For i= 1 to n-1

For j= 1 to n-i

If ____________ Then

……'互换语句

End If

Next j

Next i

A、a(i)

B、a(j)>a(j+1)

C、a(i)>a(j)

D、a(i)

答案：

以下程序的输出结果是_________。

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer, p(3) As Integer

k=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

p(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

Print k

End Sub

A、28

B、35

C、33

D、37

答案：

某过程的说明语句中，正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer

Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer

B、③④

C、①②④

D、①③④

答案：

以下程序输出的结果是____________。

Dim a

a=Array(1,2,3,4,5,6,7)

For i=Lbound(a)To Ubound(a)

a(i)= a(i)*a(i)

Next i

Print a(i)

A、49

B、程序出错

C、不确定

D、0

答案：

下列语句可以用来正确地声明一个动态数组的是_____。

A、Private A(n) As Integer

B、Dim A() As Integer

C、Dim A(1 to n)

D、Dim A(,) As Integer

答案：

在窗体模块的通用声明处有如下语句，会产生错误的语句是___。

①Const a as Integer=25

②Public St As String * 8

③ReDim B(3) As Integer

④Dim Const X As Integer=10

A、①③

B、②③④

C、①②③

D、①②

答案：

在窗体上画一个命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click( )

Dim a As Variant

a = Array(1,2,3,4)

j = 1

For i = 4 To 1 Step -1

j = j * 10

Next i

Print s

End Sub

运行上面的程序，单击命令按钮，其输出结果是_____________。

A、1234

B、34

C、12

D、4321

答案：

填空

==================================================

文本框的_____属性用来设置在文本框中显示的最多字符个数。

答案：

空1:

MaxLength

_____属性决定了按Tab键时，焦点在各个控件移动的顺序。

答案：

空1:

TabIndex

当文本框中的内容改变时，将会发生_____事件。

答案：

空1:

Change

输入一个三位的正整数，将之反向输出。如输入123，则输出321，完善下列程序。Private Sub Command1_Click( )

Dim a As Integer, b As Integer, c As Integer, m As Integer

m = InputBox("输入一个正整数")

a = m\100

b = (m-a * 100)\10

c =_____

MsgBox "结果="+ Str(c*100+b*10+a)

End Sub

空1:

m mod 10

表示"A和B之一为零但不同时为零"的VB表达式为_____。

答案：

空1:

A=0 xor b=0

A=7，B=3，C=4，则表达式A MOD 3+B^3/C\5的值为_____。

答案：

空1:

有如下程序代码:

Private Sub Command1_Click()

m$ = "XYZ"

n$ = "xyz"

k$ = LCase$(m$)

j$ = UCase$(n$)

MsgBox Asc(k$ + j$)

End Sub

程序运行后消息对话框显示_____。

答案：

空1:

120

以下程序段产生100个1-4之间的随机整数，并进行统计。数组元素s(i)的值表示等于i的随机数的个数，要求输出如下格式：

s(1)=……

s(2)=……

s(3)=……

s(4)=……

将程序补充完整。

Private Sub Form_Click()

Dim s(4) As Integer

Randomize

_____

x = Int(Rnd * _____ + 1)

s(x) = s(x) + 1

Next i

_____

Print _____

Next i

答案：

空1:

for i=1 to 100

空2:

空3:

for i=1 to 4

空4:

"s(" & i & ")=";s(i)

以下程序的功能是求3行4列矩阵a的鞍点。所谓鞍点指的是行的最大值且在所在列是最小值。

'设前面程序段已定义并初始化数组a（3，4）

Dim i As Integer, j As Integer, k As Integer

Dim max As Integer, maxj As Integer

Dim flag As Boolean

flag = False

For i = 1 To 4

max = a(i, 1)

For j = 1 To 5

If a(i, j) >= max Then

max = a(i, j)

maxj =_____

End If

Next j

For k = 1 To 4

If _____ < max Then Exit For

Next k

If k = 5 Then

flag = _____

Exit For

End If

Next i

If flag Then

Text1 = "鞍点" + CStr(max) + "位于第" + CStr(i) + "行第" + CStr(maxj) + "列!"

Else

Text1 = "数组a没有鞍点！"

End If

答案：

空1:

空2:

a(k, maxj)

空3:

真

打印如下图所示的杨辉三角形。1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

完善下列程序。

Private Sub Command1_Click( ) Dim P(5, 5) As Integer, i As Integer Dim j As Integer, n As Integer

For i = 1 To 5

P(i, 1) = 1

P(i, i) = 1

Next i

For i = _____

For j = 2 To i - 1

P(i, j) = _____

Next j

Next i

For i = 1 To 5

For j = 1 To i

s = Str(P(i, j))

Print Space(4 - n); P(i, j);

Next j

Next i

End Sub

答案：

空1:

3 To 5

空2:

P(i - 1, j - 1) + P(i - 1, j)

第五套

单项选择

==================================================

VisualBasic是用于开发_____环境下的应用程序的工具。

A、UNIX

B、Windows

C、DOS

D、DOS和Windows

答案：

以下关于事件的说法，正确的是_____。

A、用户可以根据需要建立新的事件

B、事件是由系统预先定义好的，能够被对象识别的动作

C、不同类型的对象所能识别的事件一定不相同

D、事件的名称是可以改变的，由用户预先定义

答案：

以下说法正确的是_____。

A、A、B都正确

B、属性是对象的一部分

C、事件是对象的一部分

D、方法是对象的一部分

答案：

VisualBasic集成的主窗口中包括_____。

A、标题栏

B、工具栏

C、菜单栏

D、以上三者均有

答案：

在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的

窗口是____________。

A、立即窗口

B、代码窗口

C、窗体布局窗口

D、监视窗口

答案：

如果文本框的Enabled属性被设置为False,则运行时_____。

A、文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容

B、文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容

C、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上

D、文本框中的文本将变成灰色，用户仍能改变文本框中的内容

答案：

对于一个含有计时器控件的窗体，每经过一段由_____属性指定的时间间隔，就会产生一个Timer事件。

A、Interval

B、Enabled

C、Name

D、Caption

答案：

在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中_____

一定可以将Hello显示在当前窗体上。

A、Form2.Print "Hello"

B、Me.Print "Hello"

C、Form1.Print "Hello"

D、Debug.Print "Hello"

答案：

Picture控件AutoSize属性设置为_____，在运行时当往图片框加载或复制图片时，VB会自动扩展该控件

到恰好显示整个图片为止。

A、False

B、3

C、无

D、True

答案：

下列控件中，可以接收焦点的是_____。

A、图像框

B、文本框

C、形状

D、框架

答案：

决定控件上文字的字体、字型、大小、效果的属性是_____。

A、Name

B、Font

C、Text

D、Caption

答案：

使用_____方法，可以将列表框List1中的所有项删除掉。

A、AddItem

B、RemoveItem

C、List1.Txt=""

D、Clear

答案：

某过程有语句Frm1.Caption="Hello",在界面设计时，该窗体的标题属性取缺省值，则执行该语句前后，

标题、属性值分别为_____。

A、Form,Hello

B、Form1,Hello

C、Frm1,Hello

D、Form1,Frm1

答案：

_____属性用来设置将出现在窗体标题条中的标题。

A、Style

B、Name

C、Caption

D、Text

答案：

以下不属于标签属性的是_____。

A、Index

B、Value

C、Caption

D、Font

答案：

窗体Form1的名称属性为frm，它的Load事件过程名为_____。

A、Me_Load

B、Frm_Load

C、Form_Load

D、Form1_Load

答案：

将数据项"China"添加到列表框(List1)中成为第一项应使用_____语句。

A、List1.Addltem 1,"China"

B、List1.Addltem "China",1

C、List1.Addltem "China",0

D、List1.Addltem 0,"China"

答案：

设置标签边框的属性是_____。

A、Alignment

B、Backstyle

C、Borderstyle

D、Autosize

答案：

要使某控件在运行时不可显示，应对_____属性进行设置。

A、BackColor

B、Visible

C、Caption

D、Enabled

答案：

在程序中可以通过复选框和单选框按钮的_____属性值来判断它们的当前状态。

A、Checked

B、Value

C、Selected

D、Caption

答案：

要使一个标签透明且具有边框，则应_____。

A、将其BackStyle属性设置为1，BorderStyle属性设置为1

B、将其BackStyle属性设置为0，BorderStyle属性设置为1

C、将其BackStyle属性设置为0，BorderStyle属性设置为0

D、将其BackStyle属性设置为1，BorderStyle属性设置为0

答案：

有如下程序：

Private Sub Command1_Click( )

score=65

select Case score

Case Is<60

a$="F"

Case 60 To 69

a$="D"

Case 70 To 79

a$="C"

Case 80 To 89

a$="B"

Case else

a$="A"

End Select

MsgBox a$

End Sub

程序运行后，消息对话框中显示的内容为_____。

A、D

B、B

C、A

D、C

答案：

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( )

Dim a As Integer,b As Integer

Do While b <100

b=b+5

a=a+b

If b>20 Then Exit Do

Loop

Print a,b

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。

A、75 20

B、75 25

C、50 20

D、50 25

答案：

有如下程序代码：

Private Sub Command1_Click( )

s=Sin(3.1415926/2)

MsgBox s

End Sub

程序运行后，消息对话框显示_____。

A、1

B、1.5708

C、0

D、2

答案：

执行了下面的程序后，列表框中的数据项有_____。Sub Form_Click()

For i = 1 To 6

List1.AddItem i

Next i

For i = 1 To 3

List1.RemoveItem i

Next i

End Sub

A、2

B、1

C、1

D、4

答案：

下面语句运行后的输出结果是_____。

Private Sub Command1_Click()

x=0

Do While x<10

x=x+1

x=x*x

Loop

Print x

End Sub

A、30

B、12

C、6

D、25

答案：

下列程序运行后的输出结果是_____。

Private Sub Command1_Click()

For i=1 TO 3

For j=0 TO i-1