vb上机考试题库及答案

vb上机考试题库及答案一、选择题（8题，每题3分，共24分）

1.在VB中，以下哪个控件通常用于显示多行文本？

A.TextBox

B.Label

C.ComboBox

D.ListBox

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

A.DimnumAsString

B.DimnumAsInteger

C.DimnumAsBoolean

D.DimnumAsDouble

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

A.CloseForm

B.Close

C.EndForm

D.QuitForm

4.以下哪个属性用于设置窗体的标题栏文本？

A.Caption

B.Text

C.Title

D.Header

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

A.Load

B.Click

C.Change

D.DblClick

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

A.Date

B.Now

C.Time

D.Today

7.在VB中，以下哪个控件用于显示一组选项，用户只能选择一个？

A.TextBox

B.ListBox

C.ComboBox

D.RadioButton

8.以下哪个语句用于在VB中退出程序？

A.Exit

B.End

C.Quit

D.ExitProgram

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

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

A.Integer

B.String

C.Boolean

D.Array

2.以下哪些控件可以用于显示数据？

A.TextBox

B.Label

C.ComboBox

D.ListBox

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

A.Load

B.Click

C.KeyPress

D.DblClick

4.以下哪些方法可以用于设置控件的属性？

A.Set

B.Properties

C.Assign

D.Value

5.以下哪些语句可以用于条件判断？

A.If

B.For

C.While

D.SelectCase

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

1.在VB中，可以使用Dim语句声明多个变量，例如：DimaAsInteger,bAsInteger,cAsInteger。（正确）

2.在VB中，可以使用Print语句在窗体上显示文本。（正确）

3.在VB中，可以使用DoLoop语句实现循环。（正确）

4.在VB中，可以使用Function语句定义函数。（正确）

5.在VB中，可以使用Module语句定义模块。（正确）

三、（一）填空题（5题，每题4分，共20分）

1.在VB中，使用______语句声明一个字符串变量。

2.在VB中，使用______属性设置控件的标题。

3.在VB中，使用______事件在用户点击按钮时触发。

4.在VB中，使用______函数获取当前系统的日期。

5.在VB中，使用______语句退出程序。

（二）计算题（5题，每题4分，共20分）

1.在VB中，编写一段代码，声明一个整数变量并赋值为10，然后输出该变量的值。

2.在VB中，编写一段代码，声明一个字符串变量并赋值为"Hello,World!"，然后输出该变量的值。

3.在VB中，编写一段代码，使用If语句判断一个整数变量是否为偶数，如果是则输出"偶数"，否则输出"奇数"。

4.在VB中，编写一段代码，使用For循环从1到10输出每个数字。

5.在VB中，编写一段代码，使用DoLoop循环从1到10输出每个数字。

四、综合题（10分）

在VB中，编写一个简单的应用程序，包含一个窗体和一个按钮。当用户点击按钮时，程序会在窗体上显示"Hello,World!"。

五、材料分析题（10分）

假设有一个VB程序，包含一个窗体和一个文本框。当用户在文本框中输入文本并按下回车键时，程序需要判断输入的文本是否为数字。如果是数字，则输出"是数字"；否则输出"不是数字"。

答案部分：

一、选择题

1.A

2.B

3.B

4.A

5.B

6.B

7.D

8.B

二、（一）多项选择题

1.A,B,C

2.A,B,C,D

3.A,B,C,D

4.A,B,C,D

5.A,D

（二）判断题

1.正确

2.正确

3.正确

4.正确

5.正确

三、（一）填空题

1.Dim

2.Caption

3.Click

4.Date

5.Exit

（二）计算题

1.DimnumAsInteger

num=10

Printnum

2.DimstrAsString

str="Hello,World!"

Printstr

3.DimnumAsInteger

num=10

IfnumMod2=0Then

Print"偶数"

Else

Print"奇数"

EndIf

4.ForiAsInteger=1To10

Printi

Next

5.DimiAsInteger

i=1

Do

Printi

i=i+1

LoopWhilei<=10

四、综合题

PrivateSubCommandButton1_Click()

MsgBox"Hello,World!"

EndSub

五、材料分析题

PrivateSubTextBox1_KeyPress(senderAsObject,eAs