vb期末考试题及答案

vb期末考试题及答案（精选5篇）

vb期末考试题及答案 第1篇

VB期末考试试卷及答案

一·选择题

1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（B）

A属性、控件和方法

B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块

2.所有控件都有一个共同的属性，这个属性是（C）

A text

B font

C name

D caption

3.下列叙述中错误的是（A）

A 工程文件扩展名是.vbg

B 标准模块文件的扩展名是.bas

C 窗体模块的扩展名是.frm

D 类模块的扩展名是.cls

4.当要编写一个新的Visual Basic程序时，所做的第一件事是（A）

A 新建一个工程

B 编写代码

C 设置属性

D 添加Active X控件

5.下面控件中，没有caption属性的是（B）

A 框架

B 组合框

C 命令按钮

D 复选按钮

6.在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（B）

A MultiLine

B PasswordChar

C Text

D selText

7.若要将窗体从内存中卸载出去，其实现的方法是（D）

A Show

B Hide

C Load

D UnLoad

8.下列关于过程叙述不正确的是（D）

A 过程的传值调用是将实参的具体值传值传递给形参

B 过程的传址调用是将实参在内存的地址 传递给形参

C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D 无论过程传值调用还是传地址调用，参数传递都是双向的

9.某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（C）

A 在Form1的Load事件过程中加入语句Load Form2

B 在Form2的Load事件过程中加入语句Form2.Show

C 在“过程属性”对话框中把“启动对象”设置为Form2

D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2

10.以下关于文件的叙述中，正确的是（B）

A 以Output方式打开一个不存在的文件时，系统将显示出错信息

B 以Append方式打开的文件，既可以进行读操作，也可以进行写操作

C 在随机文件在，每个记录的长度是固定的

D 无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相同的 11.设a=6，b=8，c=10 则函数IIf(a

A 10

B 6

C 8

D 12

12.下面程序的执行结果为（B）

I=”1”

:

j=”2”

I=val(i)+val(j)

J=val(“12”)

If i<>j Then print i-j Else printj-i

A 9

B-9

C 12

D 0

13.下面程序的执行结果为（A）

Dim S(10)AS Integer

For i=0 to 10

S(I)=2*i

Next i

Print S(S(3))

A 12

B 6

C 0

D 4 二·程序填空题：

1.在窗体上画一个命令按钮（Command1）和一个标签（Label1），为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，请在指定位置填上正确代码将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a(3,2)AS Integer

S =0

For i= 1 to 3

For j= 1 to 2

a(I,j)= i+j

s= 【1】

Next j Next i

【2】

End Sub

2.下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中

5的倍数所占比例，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Randomise

Dim a(10)As Integer

For j =1 to 10

a(i)=

【3】

If

【4】

Then k= k+1

Print a(j)

Next j

Print

Print k /10

End Sub

3.以下程序运行后，在Text1中输入任意字符串，单击命令按钮，将Text1中的字符串转换为大写，再将字符串逆置（如ABCD--DCBA），在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

St = Ucase(Text1.text)

For i=

【5】

To 1 Step-1

S2= s2+Mid(s1, 【6】, 1)

Text2.text= s2

End Sub

4.Next i设有如下的循环，要求程序运行时执行3次循环，请在指定位置填上正确代码将程序补充完整。

Dim x As Integer

X = 1

Do

x = x+2

Print x

Loop Until

【7】

5.在窗体上画一个组合框（Combo1）、一个列表框（List1）和一个命令按钮（Command1）。下面程序的功能是在组合框中选择一个大学名称，单击命令按钮，则所选大学 名称将添加在列表框中，当组合框中没有要选的大学名称时，输入一个名称，则此大学名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代码将程序补充完整。

Private Sub Form_Load()

Combo1.AddItem”交通大学”

Combo1.AddItem”理工大学”

Combo1.AddItem”财经大学”

Combo1.AddItem”外贸大学”

End Sub

Private Sub Command1_Click()

【8】

Flag=Flase

For i=0 to

【9】

If Combo1.List(i)=Combo1.Text Then

flag=True : Eixt For

End If

Next i

If Not flag

Then

【10】

End Sub

6.下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Dim ia(),i%,max%,imax%.t%

Ia=Array(3,8,5,6,7,4,9)

For i =0 To 5 : imax = i

For j = i+1 To 6

If 【11】

Then

imax =j

Next j

T=ia(i)

:

【12】

:

ia(imax)=t

Next i

For i=0 To 6 : Print ia(i)

:

Next i

End Sub 7.窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Text1=””

Open”c:test.txt” For Input As #1

Do While Not

【13】

Line Input#1,S

Text1.text=Text1.text+

【14】

+chr(13)+chr(10)

Loop

【15】

End Sub

答案： 1.S+a(I,j)

2.Label1 0 = S

3.Int(Rnd*99)

4.a(i)mod 5=0

5.Len(S1)

6.i

7.x=7

8.List1.AddItem Combo1.text

9.3/ListCount

10.Combo1.AddItem Combo1.text

11.a(j)>imax

12.ia(i)=ia(imax)

13.Eof

14.S

15.Close #1

三·阅读程序，在答题纸指定位置写出程序运行结果。

1.以下程序运行后，单击命令按钮，写出程序的运行结果。

Private Sub Command1_Click()

Dim n%,b,t

t =1 : b =1

: n =2

Do While n<=4

If b > 1 Then Exit Do

b = b*n : t = t+b

:

n = n+1

Loop

Print “t=”& t

End Sub 2.在窗体中添加一个命令按钮Command1，并编写如下程序：

Private Sub Command1_Click()

X =InputBox(x)

If x^2<=9 Then y= 1/x

If x^2>9 Then y= x^2+1

If(x^2)-7=9 Then y=x

Print “y=”&y

End Sub

程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。3.窗体上画一个命令按钮，并编写以下事件过程和子过程：

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x =12 : y = 20

Call Value(x,y)

Print “x=”&x, “y=”&y

End Sub

Private Sub Value(ByVal m As Integer, n As Integer)

m=m*2

：

ｎ=n-5

End Sub

程序运行后，单击命令按钮，写出程序的输出结果。

4.窗体上画一个命令按钮和一个图像框，并编写以下事件过程：

Private Sub Command1_Click()

Dim a(3,3)

For m =1To3

For n= 1 To 3

If n = m Or n = 4 –m Then

a(m,n)=m+n

Else

a(m,n)=0

End If

Picture1.Print a(m,n)

Next n

Picture1.Print

Next m

End Sub

程序运行后，单击命令按钮，图像框中显示的内容是什么? 5.在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序：

Private Sub Command1_Click()

List1.RemoveItem1

List1.RemoveItem2

End Sub

Private Sub Form_Load()

List1.AddItem”兰州”

List1.AddItem”甘肃”

List1.AddItem”交通”

List1.AddItem”大学”

End Sub 程序运行后，单击命令按钮，写出在列表框中显示的结果。

答案： 1.3

2.4

3.12；15

4.2 0 4；0 4 0；4 0 6 5兰州；大学

四·编写程序：输出（1,100）之间同时被5和7整除的数的个数及其它们的和。

答案：Private Sub Form1_Click()

Dim s%,c%

For i=1 to 100

If i Mod 5=0 And i Mod 7=0

Then

s = s+1

c = c +i

End If

Next i

Print s, c

End Sub

vb期末考试题及答案 第2篇

一、单项选择题(每题2分,共40分)1.窗体的标题栏显示内容由窗体对象的属性决定。

A)BackColor B)BackStyle C)Text D)Caption 2.窗体的示意图标可用属性来设置。

A)Picture B)Image C)Icon D)MouseIcon 3.窗体的控制菜单的有无由窗体对象的属性决定。

A)ControlBox B)MinButton C)MaxButton D)BorderStyle 4.若要取消窗体的最大化功能，则可设置属性为False来实现。

A)ControlBox B)MinButton C)MaxButton D)Enabled 5.以下4个选项，不属于VB的工作模式。

A)编译 B)设计 C)运行 D)中断 6.窗体的边框样式由窗体对象的属性来设置。

A)BackStyle B)BorderStyle C)WindowState D)FillStyle 7.若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。

A)FontName B)Font C)FontSize D)FontBold 8.命令按钮的标题文字由属性来设置。

A)Text B)Caption C)Name D)(名称)9.VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。A)变量 B)属性 C)事件 D)方法

10.若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。A)Value B)Cancel C)Default D)Enabled 11.若要使命令按钮不可见，可设置属性为False来实现。

A)Value B)Enabled C)Visible D)Cancel 12.运行程序时，系统自动执行窗体的事件。

A)load B)click C)unload D)GotFocus 13.若要设置文本框最大可接收的字符数，可通过属性来实现。

A)MultiLine B)Length C)Max D)MaxLength 14.若要使某命令按钮获得控制焦点，可使用方法来设置。

A)Refresh B)SetFocus C)GotFocus D)Value 15.若要使命令钮可响应事件，可通过设置属性的取值来实现。

A)Visible B)Enabled C)Default D)Value 16.在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。

A)Enabled B)Value C)Default D)Cancel 17.标签框的边框，由属性的设置值决定。A)BorderStyle B)BackStyle C)BackColor D)AutoSize 18.标签框文本的对齐方式由属性来决定。

A)Align B)Alignment C)Autosize D)BackStyle 19.标签框所显示的内容，由属性值决定。

A)Text B)Name C)Caption D)Alignment 20.在运行时，若要获得用户在文本框中所选择的文本，可通过访问属性来实现。A)SelStart B)SelLength C)Text D)SelText

二、填空题(每题2分,共20分)1.Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。2.在VB集成开发环境中，运行应用程序的方法有两种是：或。

3．Visual Basic的对象主要分为和两大类。

4.在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。

5.在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是 和。

6.在Visual Basic中，最基本的对象是。

7.在Visual Basic中，默认窗体名为，默认工程名为。8.若用户单击了窗体Form1，则启动的事件名为。9.调用方法的具体调用格式为。10．在代码中设置对象属性的格式为。

三、简答题(每题8分,共40分)1.简述VB的特点。

2.安装Visual Basic系统程序应具备什么条件？ 3.启动Visual Basic有几种方法？ 4．退出Visual Basic有几种方式？

5．什么是对象？什么是类？简述它们之间的关系。参考答案:

一、单项选择题

1.答：D 2.答：C 3.答：A 4.答：C 5.答：A 6.答：B 7.答：C 8.答：B 9.答：A 10.答：C 11.答：C 12.答：A 13.答：D 14.答：B 15.答：B 16.答：B 17.答：A 18.答：B 19.答：C 20.答：D

二、填空题

1.答：对象，事件驱动

2.答：编译运行模式、解释运行模式

3.答：窗体、控件 4.答：属性

5.答：在设计阶段利用属性列表框进行设置、在程序中通过程序代码进行设置 6.答：窗体

7.答：Form1、工程1 8.答：Click 9.答：对象名.方法名［参数名表］ 10．答：对象名.属性名＝属性值

三、简答题

1.答：Visual Basic是Microsoft 公司与1991年推出的基于Windows环境的语言，其主要特点如下：

(1)方便、直观的可视化的程序设计工具；

(2)面向对象的程序设计方法；

(3)事件驱动的编程机制；

(4)结构化程序设计语言；

(5)强大的数据库访问能力；

(6)提供强大的网络功能，并具备完备的联机帮助功能；

(7)强大的数据库管理和存取操作的能力。2.答：任何一个软件都要占用计算机系统一定的资源，因此对计算机系统都有一定的要求，Visual Basic系统程序对计算机系统的要求如下：

硬件要求：586以上CPU，16MB以上内存，100MB以上硬盘等。软件要求：Windows 95/98/2000/XP或Windows NT。3.答：通常有以下三种启动方式：

(1)通过“开始”按钮：单击桌面上的“开始”/“程序”菜单，然后打开“Microsoft Visual Studio 6.0中文版”子菜单中的“Microsoft Visual Basic 6.0中文版”程序，即可启动VB 6.0。

(2)利用快捷方式：若桌面上有VB 6.0的快捷图标，双击快捷图标也可启动VB 6.0。(3)利用运行命令：当VB系统软件安装在C盘默认路径下时，可以在“开始”菜单的运行对话框中输入如下命令来启动VB 6.0。

C:Program FilesMicrosoft Visual StudioVB 98VB6.exe。4．答：通常有四种方式：

(1)利用文件菜单：单击菜单“文件”/“退出”，即可退出VB环境。(2)利用快捷方式：利用快捷键Alt+F4，即可退出VB环境。(3)利用标题栏：鼠标右击标题栏，选择“关闭”，即可退出VB环境。

(4)利用关闭按钮：鼠标单击窗口右上方“关闭”按钮，即可退出VB环境。

5．答：对象(Object)是包含现实世界物体特征的抽象实体，反映了系统为之保存信息和与之交互的能力。每个对象有各自的内部属性和操作方法，整个程序是由一系列相互作用的对象构成的，对象之间的交互通过发送消息来实现。

类(class)是指具有相同的属性和操作方法，并遵守相同规则的对象的集合。从外部看，类的行为可以用新定义的操作(方法)加以规定。

期末测试题参考答案 第3篇

1. B 2. C 3. C 4. C 5. D6. C 7. D8. A9. A10. B

11． 10和-10 12． 13． 2x2-x+1 14． 5（x-2）15． 线路2两点之间线段最短 16． ①④

17． 原式=-3.

18． 如图1.

19． 去分母，得4（2x-1）=3（x+2）-12.

整理，得5x=-2.

把系数化为1，得x=-.

20． 化简可得原式=- 2y3，因为结果与x的取值无关，所以即使看错了x的值也不会影响结果.

21． 有，∠AOC与∠AOB互为补角.

因为∠AOC=108°，∠BOC=36°，所以∠AOB=∠AOC-∠BOC=108°- 36°=72°.

而∠AOC+∠AOB=108°+72°=180°，故∠AOC与∠AOB互为补角.

22． 设小颖出发的日期为x，则其余6天的日期分别为x+1、x+2、x+3、x+4、x+5、x+6.

依题意，得x+（x+1）+（x+2）+（x+3）+（x+4）+（x+5）+（x+6）=84.

解得x=9.

所以小颖在7月9日出发，在7月15日回来.

23． 设七年级有x名学生，则可得= + 1.

解得x=230.

因为 ≈ 5.1，所以应租用45座客车6辆.

因为 ≈ 3.8，所以应租用60座客车4辆.

租用45座客车的费用为：6 × 250=1 500（元）.

租用60座客车的费用为： 4 × 300=1 200（元）.

所以租用60座客车更合算，需要租用60座客车4 辆.

七年级上学期数学期末测试题（B）

1. D 2. A 3. B 4. A 5. B 6. C 7. B 8. B

9.-210. 3x11. 130°12.-813. 3 ２14. 1或6 15.-8或-2 16. 南偏东47°

17.-10.

18. x=.

19. （1）15.1元.

（2）最高价是每股15.3元，最低价是每股14.6元.

（3）14.6 × 1 000-（14.8 × 1 000+14 800 × 0.1%+14 800 × 0.1%+14 800 × 0.1%）=-244.4（元）.

张先生赔了244.4元.

20. （1）A=4x2-x+4.

（2）2A-B=4x2+x+7.

21. 方程2（x+2）-x+1=3的解为x=-2，把x=-2代入a（x+3）=a+x，可得（-2+3）a=a-2，解得a=-４.所以a2-+1=（-4）2-+1=19.

22. （1）1.5 × 12=18，显然小明家9月份用水超过了规定用水量.从而可得1.5a +（12-a） × 1.5 × 1.4=19.2.解得a=10.所以规定的用水量是10 t.

（2）小明家10月份用水显然超过了10 t，设超过了x t，得（10 +x） × 1.8=10 × 1.5 +1.5 × 1.4x，解得x=10.故小明家10月份用水20 t，交水费20 × 1.8=36（元）.

23. 分两种情况：如图2（1），易得∠EBC=25°；如图2（2），易得∠EBC=65°.

24. （1）第一种摆放方式能坐（4n+2）人; 第二种摆放方式能坐（2n+4）人.

（2）当n=30时，4 × 30+2=122 > 120，2 × 30+4=64 < 120.所以，应选择第一种摆放方式摆放餐桌.

（参考答案均由题目编拟者给出）

VB上机试题及答案 第4篇

1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。

Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始数组是：” Randomize For i = 1 To 20

a(i)= Int(Rnd * 90)+ 10

Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “现在数组是：” For i = 1 To 10

j = 211

a(k)= a(k + 1)

Next k

ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在该数组中” Else Print “删除” & n & “后的数组是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。

注意：要求利用动态数组，能够实现多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“请输入要插入的数据:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n

Print a(i);Next i Print End Sub 4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。

如：

歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分

/ 19

Option Base 1

Private Type geshou

xuhao As String

fenshu(6)As Integer

score As Integer

pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6

singer(i).fenshu(j)= Int(Rnd * 100)

singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub

Private Sub paixu()Dim p As geshou For i = 1 To 4

For j = 1 To 5

For k = j To 6

If singer(i).fenshu(j)> singer(i).fenshu(k)Then

t = singer(i).fenshu(j)

singer(i).fenshu(j)= singer(i).fenshu(k)

singer(i).fenshu(k)= t

End If

Next

Next Next For i = 1 To 4 For j = 2 To 5

singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next

For i = 1 To 3 For j = i To 4

If singer(i).score < singer(j).score Then

p = singer(i): singer(i)= singer(j): singer(j)= p

End If Next

/ 19

Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10个评委给10个选手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10

For j = 1 To 10

a(i, j)= Val(InputBox(“请第” & j & “位评委给第” & i & “位选手打分：”))Next j Next i For i = 1 To 10

max = a(i, 1): sum = 0

min = a(i, 1): ave = 0

For j = 1 To 10

If a(i, j)> max Then max = a(i, j)

If a(i, j)< min Then min = a(i, j)

sum = sum + a(i, j)

Next j

ave =(summin)/(n1

For j = i + 1 To n

If b(i)< b(j)Then

t = b(i): b(i)= b(j): b(j)= t

End If

Next j Next i Print “选手的得分由高到低为：” For i = 1 To 10

Print b(i);Next i End Sub 5．编写函数求一元二次方程ax2+bx+c=0的解。

注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“请输入a”)

/ 19

b = InputBox(“请输入b”)c = InputBox(“请输入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。

Call tongji(a, n, m, o)Print “数字：” & n & Chr(13)& “小写：” & m & Chr(13)& “大写：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then

n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then

m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then

p = p + 1 End If Next End Sub 7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5

If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e

For j = 1 To n

If j > i Then

a(i, j)= 0

Else

If i = j Then

a(i, j)= 1

Else

a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)

c = c + 1

s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else

x = x / 2 End If i = i + 1 Loop

ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)

/ 19

convert = convert & a(i)Next End If

End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”请输入十进制数字“)Text1.Text = convert(y)

End Sub

Private Sub Form_Load()

End Sub 14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。

Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”请输入数列项数“)ReDim a(n)For i = 1 To n

a(i)= Int(Rnd * 10 * n + 1)

Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function

Private Sub Command2_Click()n = InputBox(”请输入n“)Print s(n)End Sub 17.编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n使用inputbox输入，调用函数的结果在窗体上显示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then

List1.AddItem(i)

c = c + 1

If i Mod 10 = 9 Then

/ 19

List1.Selected(c1 If n Mod i = 0 Then

isprime = False

Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()

Dim i As Integer, j As Integer, a(40)As Long

a(1)= 1

a(2)= 1

For i = 3 To 40

a(i)= a(i2)

Next i

sum = 0

For j = 1 To 40

sum = sum + a(j)

Next j End Sub

Private Sub Command2_Click()

Open ”out18.txt“ For Output As #1

Print #1, ”数列1，1，2，3，5，8…的前四十项的之和是：“

Print #1, sum

Close #1 End Sub 1.百钱买百鸡

Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34

For b = 1 To 20

If 3 * a + 5 * b +(100b)/ 3 = 100 Then

/ 19

Print a;

Print b;

Print 100b

End If

Next b Next a End Sub 2.分钱作业

Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50

b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1

If a(i)= a(j)Then

GoTo aaa

End If

Next j

Next i For i = 1 To 10

Print a(i);Next i Print End Sub

Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 + i To 10

If a(i)> a(j)Then

t = a(j)

a(j)= a(i)

a(i)= t

End If

Next j Next i For i = 1 To 10

Print a(i);Next i Print

End Sub

Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2

If i ^ 2c = 0 Then

Exit Do

Else

a = i

End If Loop MsgBox(i)End Sub 7.闰年

Option Explicit

Private Sub 计算_Click()Dim i As Integer i = InputBox(”请输入一个年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then

If i Mod 100 <> 0 Then

MsgBox ”NOT“

Else

MsgBox ”YES“

End If Else

MsgBox ”NOT“ End If

End Sub 8.三角

Option Explicit Private Sub Command1_Click()

/ 19

Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single

a = Text1.Text b = Text2.Text c = Text3.Text

p =(a + b + c)/ 2

s = Sqr((pb)* p +(p1

If n Mod i = 0 Then

MsgBox ”NOT“

Exit For

End If Next i If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command2_Click()

Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”请输入一个数：“)For i = 2 To n-1

If n Mod i = 0 Then

a = True

Exit For

End If Next i If a = True Then

/ 19

MsgBox ”NOT“ Else

MsgBox ”YES“ End If End Sub

Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”请输入一个数：“)i = 2 Do While i < n

If n Mod i = 0 Then

MsgBox ”NOT“

Exit Do

End If i = i + 1 Loop If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”请输入一个数：“)i = 2 sushu = True Do While i < n And sushu = True

If n Mod i = 0 Then

sushu = False

End If i = i + 1 Loop If sushu = True Then

MsgBox ”YES“ Else

MsgBox ”NOT" End If End Sub

计算机二级VB考试题及答案 第5篇

计算机二级VB考试题及答案

1.设有如下程序段：

x=2

For c=1 To 4 Step 2

x=x+c

Next c

运行以上程序后，x的值是(A)(单)

A.6

B.7

C.8

D.9

2.以下叙述中错误的是(A)(单)

A.在KeyPress事件过程中不能识别键盘键的按下与释放

B.在KeyPress事件过程中不能识别回车键

C.在KeyDown和KeyUp事件过程中，从键盘输入的字母“A”和字母“a”对应的KeyCode视作相同的字母

D.在KeyDown和KeyUp事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的字符

3.执行如下两条语句，窗体上显示的是(C)(单)

A=9.8596

Print Format(a,“000.00”)

A.0,009.86

B.9.86

C.009.86

D.0,009.86

4.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click( )

CommonDialog1.FileName =“”

CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt”

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle=“VBTest”

CommonDialog1.Action=1

End Sub

对于这个程序，以下叙述中错误的是(D)(单)

A.该对话框被设置为“打开”对话框

B.在该对话框中指定的文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

5.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：

Private Sub Command1_Click( )

Dim a As Integer

a=10

Call g(Form2,a)

End Sub

Private Sub g(f As Form,x As Integer)

y=Iif(x>10,100,-100)

f.Show

f.Caption=y

End Sub

运行以上程序，正确的结果是(B)(单)

A.Form1的Caption属性值为100

B.Form2的Caption属性值为-100

C.Form1的Caption属性值为-100

D.Form2的Caption属性值为100

6.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click( )

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)

A.10 5

B.12 5

C.10 7

D.12 7

7.Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

Dim n As Integer

n=3

If n<10 Then

Call GetArray(a,n)

End If

End Sub

Private Sub GetArray(b( ) As Integer,n As Integer)

Dim c(10) As Integer

j=0

For t=1 To n

b(t)=Rnd*100

If b(t)/2=b(t)2 Then

j=j+1

c(j)=b(t)

End If

Next t

Print j

End Sub

以下叙述中错误的是(C)(单)

A.数组b中的数范围为0-100

B.c数组下标的下界从1开始

C.GetArray过程的参数n是按值传送的

D.语句If b(t)/2=b(t)2 Then 是判断数组b中元素的值是否为整数

8.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click( )

Dim a

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

For c=1 To Ubound(a)

a(c) = a(c)+c-1

Next c

Print a(3)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)

A.4

B.5

C.6

D.7

9.阅读程序：

Option Base 1

Private Sub Form_Click( )

Dim arr

Dim Sum%

Sum = 0

arr = Array(1, 3, 5, 7, 9)

For t = 1 To 5

Sum = Sum + arr(t)

Next t

Print Sum

End Sub

程序运行后，单击窗体，输入结果为(B)(单)

A.5

B.9

C.25

D.15

10.在窗体上画一个名称为File1的文件列表框，并编写如下程序：

Private Sub File1_DblClick( )

x=Shell(File1.FileName,1)

End Sub

以下关于该程序的叙述中，错误的是(A)(单)

A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)

B.双击文件列表框中的文件，将触发该事件过程

C.要执行的文件的名字通过File1.FileName指定

D.File1中显示的是当前驱动器、当前目录下的文件

11.在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的.计时器控件，并把其Interval属性设置为500。编写如下程序：

Private Sub Form_Load( )

Timer1.Enabled=False

End Sub

Private Sub Command1_Click( )

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer( )

If Label1.Left< Form1.Width Then

Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

End Sub

程序运行后，单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是(A)(单)

A.标签的移动方向为自右向左

B.单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D.标签按指定的时间时隔移动

12.规范地说，VB是一种(A)的开发工具(单)

A.面向对象

B.面向用户

C.面向屏幕

D.面向窗体

13.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)

A.文件

B.工程

C.编辑

D.视图

14下面(D)操作不是激活或显示属性列表框的操作(单)

A.按快捷键F4

B.点击工具栏中的“属性列表框”按钮

C.选择“视图”下拉菜单的“属性窗口”项

D.双击窗体中的某一对象

15.Visual Basic程序中分隔各语句的字符是(B)(单)

A.′

B.:

C.

D._

16.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VB Test”的语句为(B)(单)

A.Form1 = “VB Test”

B.Caption =“VB Test”

C.Form1.Text = “VB Test”

D.Form1.Name =“VB Test”

17.下列不能打开代码窗口的操作是(D)(单)

A.双击窗体上的某个控件双击

B.双击窗体

C.按F7键

D.单击窗体或控件

18.Visual Basic程序中语句行的续行符是(D)(单)

A.′

B.:

C.

D. _

19.Visual Basic程序中的注释所使用的字符是(A)(单)

A.′

B.:

C.

D._

20.下列说法中正确的是：为了保存一个Visual Basic应用程序，应当(D)(单)

A.只保存窗体模块文件(.frm)

B.只保存工程文件(.vbp)

C.分别保存工程文件和标准模块文件(.bas)