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

第四套

VisualBasic是一种面向_____的程序设计语言。 A、过程 B、用户 C、工程 D、对象 答案： D

一个应用程序_____窗体。 A、可包括多个 B、应该有两个 C、只许有一个 D、可以没有 答案： A

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

工具、外接程序、窗口和帮助。 A、浏览 B、运行 C、属性 D、查看 答案： B

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

A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法 D、属性、对象、事件、方法 答案： D

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

A、事件 B、工程 C、属性 D、方法 答案： A

引用列表框(List1)最后一个数据项应使用_____。 A、List1.List(List1.ListCount) B、List1.Lis(ListCount)

C、List1.List(ListCount-1)

D、List1.List(List1.ListCount-1) 答案： D

当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。 A、文本框的MultiLine属性为False B、文本框中没有内容

C、文本框的MultiLine属性为True D、文本框的Locked属性为True 答案： A

将数据项\添加到列表框(List1)中成为第一项应使用_____语句。 A、List1.Addltem 1,\B、List1.Addltem \C、List1.Addltem \D、List1.Addltem 0,\答案： C

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

A、Label B、Frame C、Timer D、TextBox 答案： C

当一个CheckBox控件的Value属性为2时，表示该控件_____。 A、未选中 B、以被选中 C、当前不可用 D、未知 答案： C

使用_____方法，可取得列表框中的项数。 A、RemoveItem B、ListCount C、AddItem D、Clear 答案： B

要使标签所在处透明显示背景，应设置BackStyle属性的值为_____。 A、False B、True C、1

D、0 答案： D

如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。 A、不显示 B、选中 C、禁止 D、不选中 答案： B

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

A、复选框未被选中 B、复选框内有灰色的勾 C、复选框被选中 D、复选框操作有误 答案： C

在VisualBasic中最基本的对象是_____，它是应用程序基石，也是其它控件的容器。 A、窗体 B、文本框 C、命令按钮 D、标签 答案： A

以下四个说法中不正确的是_____。 A、控件工具箱中可以添加新的控件

B、可以通过双击工具箱中的控件，将控件加入窗体上 C、VB中所有基本控件都可以改变大小

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

使用_____方法可将新的列表项添加到一个列表框中。 A、Clear B、Print C、AddItem D、RemoveItem 答案： C

如果要使文本框同时具有水平滚动条和垂直滚动条，应将ScrollBars设置为_____。 A、0 B、3 C、1 D、2

答案： B

窗体Form1的名称属性为frm，它的Load事件过程名为_____。 A、Me_Load B、Frm_Load C、Form_Load D、Form1_Load 答案： C

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

A、BackColor B、BorderStyle C、BackStyle D、ForeColor 答案： C

有应用代码：Text1.Text=\，其中的Text1、Text和\分别代表_____。 A、对象、方法、属性 B、属性、对象、值 C、对象、属性、值 D、对象、值、属性 答案： C

存在如下程序：

Private Sub Command1_Click( ) a=Val(InputBox(\请输入\ b=Val(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 答案： D

下列程序：

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 答案： A

哪个程序段不能分别正确显示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 答案： D

下面程序段，显示的结果是_____。 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、优秀 答案： D

在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click() Dim k As Integer Dim entry As String, item As String entry = \ 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

以下程序段运行后，消息框的输出结果是 a=sqr(5) b=sqr(3) c=a>b

Msgbox c+2 A、2 B、-1 C、1 D、出错 答案： C

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

A、i=5 Do i=i+1

Loop Until i<0 B、i=6 Do i=i-2

Loop Until i=1 C、i=1 Do i=i+2

Loop Until i=10 D、i=10 Do i=i+1

Loop Until i>0 答案： D

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

窗体上将输出_____个字母\。 Private Sub Timer1_Timer() For i = 1 To 10 Print \ Next i End Sub A、10次 B、10000次 C、以上都不对 D、1 000次 答案： A

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 答案： B

设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,\A、4 B、1 C、2 D、3 答案： C

在窗体中添加一个命令按钮，并编写如下程序代码： 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 答案： B

在窗体上面一个文本框（其中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 答案： D

用\冒泡\法将数组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)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 答案： C

某过程的说明语句中，正确的数组说明语句是____________。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

A、②③ B、③④ C、①②④ D、①③④ 答案： B

以下程序输出的结果是____________。 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 答案： B

下列语句可以用来正确地声明一个动态数组的是_____。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n)

D、Dim A(,) As Integer 答案： B

在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①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、①② 答案： B

在窗体上画一个命令按钮，然后编写如下事件过程： 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

s = s + a(i)*j j = j * 10 Next i Print s End Sub

运行上面的程序，单击命令按钮，其输出结果是_____________。 A、1234 B、34 C、12 D、4321 答案： A 填空

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

文本框的_____属性用来设置在文本框中显示的最多字符个数。 答案： 空 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 \结果=\End Sub

答案： 空 1: m mod 10

表示\和B之一为零但不同时为零\的VB表达式为_____。 答案： 空 1:

A=0 xor b=0

A=7，B=3，C=4，则表达式 A MOD 3+B^3/C\\5的值为_____。 答案： 空 1: 2

有如下程序代码:

Private Sub Command1_Click() m$ = \n$ = \

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

End Sub 答案： 空 1:

for i=1 to 100 空 2: 4 空 3:

for i=1 to 4 空 4:

\

以下程序的功能是求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 = \鞍点\位于第\行第\列!\ Else

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

End If 答案： 空 1:

j 空 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 Print 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 答案： B

以下关于事件的说法，正确的是_____。 A、用户可以根据需要建立新的事件

B、事件是由系统预先定义好的，能够被对象识别的动作 C、不同类型的对象所能识别的事件一定不相同 D、事件的名称是可以改变的，由用户预先定义 答案： B

以下说法正确的是_____。 A、A、B都正确

B、属性是对象的一部分 C、事件是对象的一部分 D、方法是对象的一部分 答案： A

VisualBasic集成的主窗口中包括_____。 A、标题栏 B、工具栏 C、菜单栏

D、以上三者均有 答案： D

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

窗口是____________。

A、立即窗口 B、代码窗口 C、窗体布局窗口 D、监视窗口 答案： B

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

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

C、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上 D、文本框中的文本将变成灰色，用户仍能改变文本框中的内容 答案： C

对于一个含有计时器控件的窗体，每经过一段由_____属性指定的时间间隔，就会产生一个Timer事件。 A、Interval B、Enabled C、Name D、Caption 答案： A

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

一定可以将Hello显示在当前窗体上。 A、Form2.Print \ B、Me.Print \ C、Form1.Print \D、Debug.Print \ 答案： B

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

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

A、False B、3 C、无 D、True 答案： D

下列控件中，可以接收焦点的是_____。 A、图像框 B、文本框 C、形状 D、框架 答案： B

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

A、Name B、Font C、Text D、Caption 答案： B

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

A、AddItem B、RemoveItem C、List1.Txt=\ D、Clear 答案： D

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

标题、属性值分别为_____。

A、Form,Hello B、Form1,Hello C、Frm1,Hello D、Form1,Frm1 答案： B

_____属性用来设置将出现在窗体标题条中的标题。 A、Style B、Name C、Caption D、Text 答案： C

以下不属于标签属性的是_____。 A、Index B、Value C、Caption D、Font 答案： A

窗体Form1的名称属性为frm，它的Load事件过程名为_____。 A、Me_Load B、Frm_Load C、Form_Load D、Form1_Load 答案：

C

将数据项\添加到列表框(List1)中成为第一项应使用_____语句。 A、List1.Addltem 1,\B、List1.Addltem \C、List1.Addltem \D、List1.Addltem 0,\答案： C

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

A、Alignment B、Backstyle C、Borderstyle D、Autosize 答案： C

要使某控件在运行时不可显示，应对_____属性进行设置。 A、BackColor B、Visible C、Caption D、Enabled 答案： B

在程序中可以通过复选框和单选框按钮的_____属性值来判断它们的当前状态。 A、Checked B、Value C、Selected D、Caption 答案： B

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

A、将其BackStyle属性设置为1，BorderStyle属性设置为1 B、将其BackStyle属性设置为0，BorderStyle属性设置为1 C、将其BackStyle属性设置为0，BorderStyle属性设置为0 D、将其BackStyle属性设置为1，BorderStyle属性设置为0 答案： B

有如下程序：

Private Sub Command1_Click( ) score=65 select Case score Case Is<60 a$=\ Case 60 To 69

a$=\ Case 70 To 79 a$=\ Case 80 To 89 a$=\ Case else a$=\ End Select MsgBox a$ End Sub

程序运行后，消息对话框中显示的内容为_____。 A、D B、B C、A D、C 答案： A

在窗体上画一个命令按钮，名称为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 答案： B

有如下程序代码：

Private Sub Command1_Click( ) s=Sin(3.1415926/2) MsgBox s End Sub

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

B、1.5708 C、0 D、2

答案： A

执行了下面的程序后，列表框中的数据项有_____。 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 4 6 B、1 3 5 C、1 5 6 D、4 5 6

答案： B

下面语句运行后的输出结果是_____。 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 答案： D

下列程序运行后的输出结果是_____。 Private Sub Command1_Click() For i=1 TO 3 For j=0 TO i-1

k=k+1 next j next i print k End Sub A、3 B、5 C、4 D、6 答案： D

计算机算法可以分为两大类：一类是_____算法，另一类是_____算法。 A、计算机辅助设计、财务 B、排序、查找 C、步骤管理、通信

D、数值计算、非数值计算 答案： D

给出下面的程序

Private Sub Command1_Click( ) Dim Check ,Counter Check = True: Counter = 0 Do Counter = Counter + 1 If Counter = 10 Then Check = False: Exit Do Loop Until Check = False MsgBox Counter End Sub

程序最后弹出的消息对话框的内容是_____ 。 A、False B、True C、20 D、10 答案： D

以下语句中，不能正确执行的是_____。

A、Check1.Value=True B、If Optionl.Value Then

C、If Optionl.Value=True Then D、Check1.Value=0 答案： A

执行以下程序段，在窗体上显示的结果是_____。

Private Sub Form_Click()

Dim S As String, i As Integer S = \

For i = Len(S) To 1 Step -1

Print Chr( Asc ( Mid ( S , i , 1 ) ) + i ) Next I End Sub A、db B、cb C、cc

D、fd 答案： A

下列程序

Private Sub Command1_Click( ) a=InputBox(\请输入\ b=InputBox(\请输入\ Print a+b End Sub

运行时输入3和4输出的结果是 _____ 。 A、7 B、3+4 C、出错 D、34 答案： D

下面语句错误的是_____。 A、If a=1 Then c=2

ElseIf a=2 Then c=3 End If

B、If a=1 And b=2 Then c=3 End If

C、If a=1 Then c=2

ElseIf a=2 Then c=3 End If

D、If (a=1,2,3 ) Then c=2 答案： D

用\冒泡\法将数组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)a(j+1) C、a(i)>a(j) D、a(i)

以下程序输出的结果是____________。 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 答案： B

下列语句中的语句可以用来正确地声明一个动态数组。 A、Dim A() As Integer B、Private A(n) As Integer C、Dim A(,) As Integer D、Dim A(1 to n) 答案： A

以下有关控件数组的说法中错误的是________。

A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每个元素的下标由控件的Index属性指定 C、同一控件数组中的元素只能有相同的属性设置值 D、控件组中的每一个控件共享同样的事件过程 答案：

C

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

If ____________ Then ??'互换语句 End If Next j Next i

A、a(i)a(j+1) C、a(i)a(j) 答案： B

下列程序段的输出结果是____________。 Dim i As Integer Dim a(8) As Integer y = 18: i = 0 Do

a(i) = y Mod 2 i = i + 1 y = y \\ 2

Loop Until y< 1

For j = i - 1 To 0 Step -1 Print a(j) Next j

A、0 0 1 1 0 B、1 0 0 0 C、1 0 1 0 0 D、1 0 0 1 0 答案： D

以下程序的输出结果是_________。 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 答案： C 填空

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

可使用列表框的_____方法向列表框中增加一个项目。 答案： 空 1: AddItem

列表框的_____属性决定列表框中项目在程序运行期间是否按字母顺序排列，如果该属性为True，则按字

母顺序排列显示，False则按项目加入的先后顺序排列显示。 答案： 空 1: Sorted

文本框的_____属性用来表示文本框中被选定的字符长度。 答案： 空 1: SelLength

表示\小于10，且x-y要大于0\的VB表达式为_____。 答案： 空 1:

X+Y<10 And X-Y>0

本文来源：https://www.bwwdw.com/article/42x7.html