vb程序考试题库及答案

vb程序考试题库及答案一、选择题（10题，每题3分，共30分）

1.在VB中，以下哪个控件用于显示超链接的文本？

A.PictureBox

B.HyperLink

C.LinkLabel

D.TextBox

2.以下哪个语句用于在VB中声明一个静态变量？

A.Dim

B.Static

C.Private

D.Public

3.在VB中，以下哪个方法用于关闭一个窗体？

A.Close

B.End

C.Quit

D.CloseForm

4.以下哪个控件用于显示图形和图像？

A.ListBox

B.ComboBox

C.PictureBox

D.ListView

5.在VB中，以下哪个事件在用户点击按钮时触发？

A.Load

B.Click

C.DblClick

D.Change

6.以下哪个函数用于获取当前系统的日期？

A.Time()

B.Date()

C.Now()

D.DateValue()

7.在VB中，以下哪个语句用于退出当前过程？

A.Exit

B.Return

C.End

D.ExitSub

8.以下哪个控件用于显示一组复选框？

A.ListBox

B.ComboBox

C.CheckedListBox

D.TextBox

9.在VB中，以下哪个方法用于设置控件的文本属性？

A.SetText

B.Text

C.SetControlText

D.Caption

10.以下哪个控件用于显示树状结构的节点？

A.TreeView

B.ListView

C.TreeListBox

D.TreeNode

二、（一）多项选择题（5题，每题4分，共20分）

1.以下哪些是VB中的数据类型？

A.Integer

B.String

C.Boolean

D.Array

E.Float

2.以下哪些事件与窗体相关？

A.Load

B.Click

C.DblClick

D.Change

E.KeyPress

3.以下哪些控件可以用于显示列表项？

A.ListBox

B.ComboBox

C.TreeView

D.TextBox

E.CheckedListBox

4.以下哪些方法用于操作文件？

A.Open

B.Close

C.Read

D.Write

E.Delete

5.以下哪些是VB中的流程控制语句？

A.If

B.For

C.While

D.Do

E.Switch

（二）判断题（5题，每题2分，共10分）

1.VB中的变量声明必须指定数据类型。（）

2.在VB中，可以使用Dim语句声明静态变量。（）

3.MsgBox函数用于显示消息框。（）

4.在VB中，可以使用With语句简化控件的访问。（）

5.VB中的数组可以动态调整大小。（）

三、（一）填空题（5题，每题3分，共15分）

1.在VB中，使用______语句来导入外部库。

2.在VB中，使用______控件来显示选项卡。

3.在VB中，使用______函数来获取当前系统的时间。

4.在VB中，使用______语句来退出当前函数。

5.在VB中，使用______控件来显示分页数据。

（二）计算题（3题，每题5分，共15分）

1.编写一段VB代码，实现以下功能：声明一个名为Total的变量，初始值为0，然后通过循环累加1到100的结果，最后输出Total的值。

2.编写一段VB代码，实现以下功能：声明一个名为Score的变量，用户输入一个分数，如果分数大于等于90，输出"优秀"；如果分数大于等于80且小于90，输出"良好"；如果分数大于等于60且小于80，输出"及格"；否则输出"不及格"。

3.编写一段VB代码，实现以下功能：声明一个名为Numbers的数组，包含10个元素，然后通过循环将数组中的每个元素值设置为该元素的索引加1。

四、综合题（2题，每题10分，共20分）

1.编写一段VB代码，实现以下功能：创建一个窗体，包含一个按钮和一个标签。点击按钮时，弹出一个消息框，显示"按钮被点击了"，同时将标签的文本设置为"已点击"。

2.编写一段VB代码，实现以下功能：创建一个窗体，包含一个文本框和一个按钮。在文本框中输入内容后点击按钮，将文本框中的内容复制到另一个标签中显示。

五、材料分析题（2题，每题10分，共20分）

1.分析以下VB代码的功能：

DimiAsInteger

Fori=1To5

Print"Hello"

Nexti

2.分析以下VB代码的功能：

Dimnumbers()AsInteger

numbers=NewInteger(1To3){}

numbers(1)=10

numbers(2)=20

numbers(3)=30

ForEachnumInnumbers

Printnum

Nextnum

答案部分：

一、选择题

1.C

2.B

3.A

4.C

5.B

6.B

7.A

8.C

9.B

10.A

二、（一）多项选择题

1.A,B,C

2.A,B,C,E

3.A,B,C,E

4.A,B,C,D

5.A,B,C,D

（二）判断题

1.√

2.×

3.√

4.√

5.√

三、（一）填空题

1.Import

2.TabControl

3.Time

4.Exit

5.DataGrid

（二）计算题

1.

DimTotalAsInteger

Total=0

Fori=1To100

Total=Total+i

Nexti

PrintTotal

2.

DimScoreAsInteger

Score=InputBox("请输入分数：")

IfScore>=90Then

Print"优秀"

ElseIfScore>=80Then

Print"良好"

ElseIfScore>=60Then

Print"及格"

Else

Print"不及格"

EndIf

3.

DimNumbers()AsInteger

Numbers=NewInteger(1To10){}

DimiAsInteger

Fori=1To10

Numbers(i)=i

Nexti

四、综合题

1.

PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click

MsgBox("按钮被点击了")

Label1.Text="已点击"

EndSub

2.

PrivateSubButton1_Click(senderAsObject,eAsE