VB程序设计试题及答案(一)_vb程序设计试题及答案

VB程序设计试题及答案(一)由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb程序设计试题及答案”。

VB程序设计试题及答案

（一）一、单选题

1.VB6.0是一种面向 B 的编程环境。

(A)机器(B)对象

(C)过程(D)应用

2.要使FormI窗体的标题栏显示“欢迎使用VB”，以下 D 语句是正确的。

(A)Forml.Caption=“欢迎使用VB”

(B)Forml.Caption='欢迎使用VB'

(C)Forml.Caption=欢迎使用VB

(D)Forml.Caption=“欢迎使用VB”

3.若要使命令按钮不可操作，要对 A 属性进行设置。

(A)EnabIed(B)Visible

(C)Backcolor(D)Caption

4.如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。

(A)Change(B)LostFocus

(C)KeyPre(D)GotFocus 5.下面 A 是合法的变量名。

(A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下关系表达式 中，其值为False的是 A。

(A)“ABC”>“AbC”(B)“女”>“男”

(C)“BASIC”=UCase(“basic)(D)”123“

7.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 A。

(A)x=1:y=1:z=1(B)x=1,y=1,z=

1(C)x=y=z=1(D)xyz=1

8.VB提供了结构化程序设计的三种基本结构，三种基本结构是 D。

(A)递归结构、选择结构、循环结构

(B)选择结构、过程结构、顺序结构

(C)过程结构、输入输出结构、转向结构

(D)选择结构、循环结构、顺序结构

9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D。

(A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l

(B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l

(C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l

(D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l

10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D。(A)Do While…Loop循环和Do…Loop Until循环至少都执行一次(B)Do While…Loop循环和Do…Loop Until循环可能都不执行

(C)Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行

(D)Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次

11.以下 B 是正确的For…Next结构。

(A)For x=1 To Step 10(B)For x=3 To-3 Step-3

…

…

Next x Next x(C)For x=1 To 10(D)For x=3 to 10 stepre: … …

Next x Next y

If i=10 Then GoTO re

12.如下数组声明语句，B 是正确的。

(A)Dim a[3,4] As Integer

(B)Dim a(3,4)As Integer

(C)Dim a(n,n)As Integer

(D)Dim a(3 4)As Integer

13.下列语句中（假定变量n有值），能正确声明可变长数组的是 A。

(A)Dim a()As Integer(B)Dim a()As Integer

ReDim a(n)ReDim a(n)As String

(C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10)

ReDim Preserve a(4, 4)

14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是

C。

(A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%)

(C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%)

15.设有如下程序段：

Public Sub F1(n%)

…

n=3*n+…

End Sub

Private Sub Command1_Click()

Dim n%, m%

n=3

m=4

…

‘调用F1语句

…

End Sub

则在Command1_Click事件中有效的调用语句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5)

16.用来设置粗体字的属性是 C。

(A)FontItalic(B)FontName(C)FontBold(D)FontSize

17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D。

Dim x As Integer

Sub Timer1_Timer()

For i=1 to 10

x=x+Next i

End Sub

(A)1000(B)10000(C)10(D)以上都不对

18.在下列关于通用对话框的叙述中，错误的是 B。

(A)CommonDialog1.ShowFont显示“字体”对话框

(B)在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回

(C)在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回

(D)

19.当用户按下并且释放一个键后会触发KeyPre、KeyUp和KeyDown事件，这三个事件发生的顺序是 C。

(A)KeyPre、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPre(C)KeyDown、KeyPre、KeyUp

(D)没有规律

20.在下面关于顺序文件的描述中，正确的是 C。(A)顺序文件中每行的长度都是相同的。(B)可以通过编程对文件中的某行方便地进行修改

(C)数据以ASCII码的形式存放在文件中，所以可通过记事本打开(D)文件的组织结构复杂 21.随机文件是因为 C。

(A)文件中的内容是通过随机数产生的(B)文件中的记录号通过随机数产生的(C)可对文件中的记录根据记录号随机地读/写(D)文件的每条记录的长度是随机的22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 A 正确。

(A)F=“c:t1.txt”

Open F For Input As #1(B)F=“c:t1.txt”

Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1

(D)Open c:t1.txt For Input As #2

23.坐标度量单位可由通过来 D 改变。

(A)Drawstyle属性(B)DrawWidth属性

(C)Scale方法(D)ScaleMode属性

24.指令“Circle(1000, 1000), 500, 8,-6,-3”将绘制 A。(A)画圆(B)椭圆(C)圆弧(D)扇形 25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。

①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源

(A)① ② ③ ④(B)② ③ ④ ①

(C)③ ① ② ④(D)① ③ ② ④

二、填空题

1．VB是建立在BASIC语言基础上的可见 化编程语言或编程环境。

2．在窗体上已建立多个控件如Text

1、Label

1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0。

3．在VB中，12

34、123456&、1.2346E+

5、1.2346D+5这4个常数分别表示 整形、长整形、单精度、双精度 类型。4．表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0。

5．数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为1。

6．传地址方式是当过程被调用时，形参和实参共享 存储单元。7．窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的全局范围。

8．当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。

9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“1)

x(0)= 1

x(1)= 1

For i = 2 To n1)+ x(i1

Print x(i)，If(i + 1)Mod 5 = 0 Then Print

Next End Sub

输出结果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%)

Do While mn

Do While m> n: m=m-n: Loop

Do While m

Loop

f=m

End Function

Print f(24, 18)

End Sub 输出结果：6(3)

Public x as Integer

Private Sub Fomr_Click()

Dim x as Integer

x=10

print ＂x=＂;x

End Sub 输出结果: x=10 2.补充程序

(1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补充完整。

Private Sub Command1_Click()

Dim a(), iMin%, n%, i%, j%, t%

a = Array(8, 6, 9, 3, 2, 7)

n = ubound(a)' 获得数组的下标上界

For i = 0 To n-1

For j = 0 To n-i-1

If a(j)>a(i)Then

t = a(j): a(j)= a(j + 1): a(j + 1)= t

End If

Next j

Next i

For i = 0 To n Print a(i);Next i End Sub

(2)用递归的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub

Public Function fac As Integer If n = 1 Then

fac = 1 Else

Fac=fac*n End If End Function

VB程序设计试题及答案

（三）

一、单选题1.Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。

(A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行

2.若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。

n=n*j n=n*j

Next j Next j

Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的对象是 C，它是应用程序的基石，是其他控件的容器。

(A)文本框(B)命令按钮(C)窗体

(D)标签

4.要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。(A)Change(B)KeyDown(C)Click(D)KeyPre 5.数学表达式3≤x

(A)310(C)x>=3 Or x=3 AND x

(A)0(B)1(C)0.1234(D)0.0005 7.赋值语句:a=123+Mid(”123456“，3，2)执行后，a变量中的值是 D。

(A)”12334“(B)123(C)12334(D)157 8.对于语句If x=l Then y=l，下列说法正确的是 C。

(A)x=l和y=l均为赋值语句

(B)x=l和y=l均为关系表达式

(C)x=l为关系表达式，y=l为赋值语句

(D)x=l为赋值语句，y=l为关系表达式

9.下面程序段表示求两个数中的大数，D 不正确。

(A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C。

Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A

B AB

C ABC

D ABCD 11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4

n=1 For j=1 to i

For j=1 to I n=1

For j=1 to4 j=1

n=n*j Do While j

Print n n=n*j Next j Print n j=j+1

Loop

12.如下数组声明语句，则数组a包含元素的个数有 A。

Dim a(3,-2 to 2, 5)

(A)120(B)75(C)60(D)13 13.以下程序的输出结果是 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)0(C)不确定(D)程序出错

14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D 在过程中定义局部变量。

(A)Dim(B)Private(C)Public(D)Static 15.如下程序，运行的结果是 B。

Dim a%, b%, c%

Public Sub p1(x%, y%)

Dim c%

x=2*x: y=y+2: c=x+y End Sub

Public Sub p2(x%, ByVal y%)

Dim c%

x=2*x: y=y+2: c=x+y End Sub

Private Sub Command1_Click()

a=2: b=4: c=6

Call p1(a, b)

Print “a=”;a;“b=”;b;“c=”;c

Call p2(a, b)

Print “a=”;a;“b=”;b;“c=”;c

End Sub

(A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.复选框的Value属性为1时，表示 B。

(A)复选框未被选中(B)复选框被选中

(C)复选框内有灰色的勾(D)复选框操作有误

17.下面关于菜单的说法中，错误的是 B。

(A)每个菜单项都是一个控件与其他控件一样也有自己的属性和事件

(B)除了Click事件之外，菜单项还能响应其他的，如DbClick事件

(C)菜单项的快捷键不能任意设置

(D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择

18.下面关于多重窗体的叙述中，正确的是 B。(A)作为启动对象的Main子过程中能放在窗体模块中(B)如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体

(C)没有启动窗体，程序不能执行(D)以上都不对

19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D。(A)发生DeActivate事件(B)发生LostFocus事件

(C)发生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不发生 20.顺序文件是因为 D。

(A)文件中的数据按每行的长度从小到大排序好的(B)文件中的数据按某个关键数据项从大到小进行排序(C)文件中的数据按某个关键数据项从小到大进行排序(D)数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出

21.文件号最大可取值为 B。

(A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。

(A)文件的写语句(B)在窗体上显示的方法

(C)子程序名(D)以上均不是

23.以下的属性和方法中 C 可重定义坐标系。(A)Drawstyle属性(B)DrawWidth属性

(C)Scale方法(D)ScaleMode属性 24.封闭图形的填充方式由下列 C 属性决定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls

(C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO数据控件的ConnectionString属性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable

二、填空题

1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时设计是无效的。

2．在文本框中，通过 SelStart 属性能活得当前插入点所在的位置。

3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是 False。

5．要获得动态数组的上界通过 UBound 函数，下界通过 LBound 函数。

6．由Array函数建立的数组，其变量类型必须是 variant 类型。

7．VB中的变量按其作用域分为全局变量、模块变量和 局部变量 变量。

8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。

9．滚动条响应的重要事件有 Scroll 和Change。10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用 showcolor 方法显示。

11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300,-150)，则X轴的正向向 右，Y轴的正向向 上。

12．使用Circle方法画扇形，起始角、终止角取值范围为 0~2π。

13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。14．VB中工程文件的扩展名为 vbg。

15．如果在窗体上已经创建了一个文本框对象Text1，可以通过 Keypre 事件获得输入键值的ASCII码。16．VB中对象的三要素是 属性、事件 和 方法。

三、编程应用题 1.程序阅读

(1)Private Sub Command1_Click()

Dim s as String, i%

s=＂abcd＂

For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 输出结果：

d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click()

Dim a%, b% a = 10: b = 20 Print ”调用Swap1前 a和b的值为：“;a;b Call Swap1(a, b)Print ”调用Swap1后按传值方式 a和b的值为：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”调用Swap2后按传地址方式 a和b的值为：“;a;b End Sub 输出结果

调用Swap1前 a和b的值为：10 20 调用Swap1后按传值方式 a和b的值为：10 20 调用Swap2后按传地址方式 a和b的值为： 20 10(3)Private Sub Command1_Click()

Dim x%, y%, z%

x=242: y=44

z=x*y

Do Until x=y

If x>y Then x=x-y Else y=y-x

Loop

Print x, z/x End Sub

输出结果: 22 484 2.补充程序

(1)以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。

Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1

n = Hscroll1.Value If n 0 Then For i = 1 To n s = s*i Next i End If

Label2.Caption = n & ”!= " Label3.Caption = s End Sub

(2)以下程序的功能是：已知数组a，删除数组中某个元素。

Private Sub Command1_Click()

Dim a(), key%, i%, j%

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

key=9

For i=0 to UBound(a)If a(i)=9 Then

For j=i+1 to UBound(a)a(j)=a(j+1)

Next j

ReDim a(j)=a(i)

MsgBox(＂删除完成＂)

Exit Sub End If

Next i

MsgBox(＂找不到要删除的元素＂)End Sub

读程序并填空1．给定程序的功能是输出一组数的最大值和最小值，在画线处填入适当内容，将程序补充完整。

Private Sub

End Function

4．给定程序的功能是建立并输出除主、副对角线上的元素为5外，其余元素都为1的方阵，在画线处填入适当内容，将程序补充完整。Command1_Click()

X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100)

Max=x(0)

Min=x(0)

For I=1 To 10

If x(I)>Max Then

_____________

End if

If x(I)>Min Then

_____________

End if

Next I

Print “MAX=”;Max , “MIN=”;Min

End Sub 2．若A2+B2+C2 , 则A，B，C称为一组勾股数，如下程序是找出100以内的所有勾股数，并按A，B，C顺序输出。请在画线处填入适当内容。

Private Sub Command1_Click()

For A=2 To 99

For B=A+1 To 100

C=_____________

If ____________ And C

Print A, B, C

End If

Next B Next A End Sub 3．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。

Private Sub form_Click()

Do

N=Val(InputBox(“请输入一个大于0的整数：”))

Loop Until N>0

Print Fact(N)

End Sub

Private Function Fact(M)

Fact= _______________（1分）

For I=2 To ____________（2分）

Fact = ______________（2分）

Next I

Dim A(10,10)

For I=1 To 10

For J=_______________（2分）

If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10

For J=1 To 10

Print A(I, J);Next J

__ __________

（2分）Next I

End Sub

编写一个程序，在程序运行时输入一个0—99999之间的整数，判断输入的是几位数，并在窗体输出结果。

编写一个程序，在窗体上添加两个命令按钮，运行程序时，单击[开始]按钮，在窗体输出1~100之间所有能被3整除的数。单击[结束]按钮，结束程序。