vb考试题判断题及答案

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

1.下列哪个不是VB中的数据类型？A.IntegerB.StringC.BooleanD.Float

2.在VB中，哪个语句用于退出循环？A.ExitForB.ExitDoC.BothAandBD.Noneoftheabove

3.以下哪个是正确的VB变量命名规则？A.变量名可以以数字开头B.变量名不能包含下划线C.变量名区分大小写D.变量名可以超过255个字符

4.在VB中，哪个方法用于打开一个文件？A.OpenB.CreateC.NewD.OpenFile

5.以下哪个不是VB中的控件？A.TextBoxB.LabelC.ComboBoxD.ListBox

6.在VB中，哪个语句用于声明一个常量？A.DimB.ConstC.VarD.Let

7.以下哪个是正确的VB条件语句？A.If...ThenB.For...NextC.While...EndWhileD.Alloftheabove

8.在VB中，哪个方法用于关闭一个文件？A.CloseB.EndC.CloseFileD.Quit

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

1.下列哪些是VB中的数据类型？A.IntegerB.StringC.BooleanD.FloatE.Double

2.以下哪些语句可以用于退出循环？A.ExitForB.ExitDoC.BreakD.ExitSubE.ExitFunction

3.以下哪些是正确的VB变量命名规则？A.变量名可以以数字开头B.变量名不能包含下划线C.变量名区分大小写D.变量名可以超过255个字符E.变量名不能以特殊字符开头

4.在VB中，以下哪些方法用于打开一个文件？A.OpenB.CreateC.NewD.OpenFileE.Load

5.以下哪些是VB中的控件？A.TextBoxB.LabelC.ComboBoxD.ListBoxE.Button

（二）判断题（7题，每题3分，共21分）

1.VB中的变量名可以包含空格。（×）

2.VB中的循环语句包括For...Next和While...EndWhile。（√）

3.VB中的常量声明使用Dim语句。（×）

4.VB中的文件操作使用Open语句打开文件。（√）

5.VB中的控件包括TextBox、Label和ComboBox。（√）

6.VB中的条件语句包括If...Then。（√）

7.VB中的变量命名区分大小写。（√）

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

1.在VB中，用于声明变量的关键字是__________。

2.在VB中，用于声明常量的关键字是__________。

3.在VB中，用于打开文件的语句是__________。

4.在VB中，用于关闭文件的语句是__________。

5.在VB中，用于声明一个整型变量的语句是__________。

（二）计算题（2题，每题5分，共10分）

1.编写一个VB程序，声明一个名为radius的变量，并赋值为5。然后计算并输出圆的面积。

2.编写一个VB程序，声明一个名为number的变量，并赋值为10。如果number大于5，则输出“大于5”，否则输出“小于或等于5”。

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

1.编写一个VB程序，实现以下功能：打开一个文本文件，读取内容，并将内容反转后输出到另一个文本文件。

2.编写一个VB程序，实现以下功能：创建一个窗体，包含一个文本框、一个按钮和一个标签。点击按钮时，如果文本框中的内容为空，则标签显示“内容不能为空”，否则标签显示“内容已输入”。

五、材料分析题（1题，共25分）

假设有一个VB程序，包含以下代码片段：

SubMain()

DimiAsInteger

Fori=1To10

IfiMod2=0Then

Printi

EndIf

Nexti

EndSub

请分析该程序的功能，并说明输出结果是什么。

答案部分：

一、选择题

1.D

2.C

3.C

4.A

5.D

6.B

7.A

8.A

二、（一）多项选择题

1.A,B,C,D,E

2.A,B,D,E

3.C,E

4.A,B,D

5.A,B,C,D,E

（二）判断题

1.×

2.√

3.×

4.√

5.√

6.√

7.√

三、（一）填空题

1.Dim

2.Const

3.Open

4.Close

5.DimradiusAsInteger

（二）计算题

1.

DimradiusAsInteger

radius=5

DimareaAsDouble

area=3.14*radius*radius

Print"圆的面积是："&area

2.

DimnumberAsInteger

number=10

Ifnumber>5Then

Print"大于5"

Else

Print"小于或等于5"

EndIf

四、综合题

1.

Dimfile1AsInteger,file2AsInteger

DimlineAsString

file1=Open("input.txt",1)

file2=Open("output.txt",2)

DoWhileNotEOF(file1)

LineInput#file1,line

Fori=Len(line)To1Step-1

Print#file2,Mid(line,i,1)

Nexti

Print#file2

Loop

Closefile1

Closefile2

2.

PrivateSubCommandButton1_Click()

If