福建二级vb考试试题和答案

福建二级vb考试试题和答案

一、选择题（本题型共15题每题2分共30分）

1.VB是一种基于（）的可视化编程语言A.机器语言B.汇编语言C.事件驱动D.面向过程

2.在VB集成开发环境中，“工程资源管理器”窗口的主要作用是（）A.显示当前程序的所有窗体和模块B.编写程序代码C.设计用户界面D.运行程序

3.以下关于VB对象的说法，错误的是（）A.对象是属性、方法和事件的封装B.窗体是VB中最基本的对象之一C.命令按钮的默认名称是Command1D.对象的属性只能通过属性窗口设置

4.执行语句“Print53And26”后，输出的结果是（）A.True B.False C.53D.

265.在VB中，变量的命名规则错误的是（）A.必须以字母或汉字开头B.可以包含字母、数字和下划线C.可以使用VB的关键字作为变量名D.区分大小写

6.以下能正确定义一个单精度浮点型变量x的语句是（）A.x As Integer B.Dim xAs SingleC.x SingleD.Integer x

7.以下控件中，用于显示文本但不能被用户编辑的是（）A.TextBox B.Label C.CommandButton D.PictureBox

8.执行“For i=1To5Step2”循环后，i的值可能是（）A.1,3,5B.1,3,5,7C.2,4,6D.0,2,4第1页共9页

9.若a=3，b=5，则表达式“a Modb+b\a”的值是（）A.1B.2C.3D.

410.以下关于数组的说法，错误的是（）A.动态数组需要先声明，使用ReDim语句分配空间B.静态数组在声明时必须指定大小C.数组的下标必须从1开始D.二维数组的声明格式可以是Dimarr3,4As Integer

11.要将文本框（Text1）中的内容清空，应使用的语句是（）A.Text

1.Clear B.Text

1.Text=C.Text

1.Caption=D.Text

1.Visible=False

12.在VB中，以下事件中，当程序启动时一定会触发的是（）A.Click B.Load C.Unload D.Change

13.以下程序段的输出结果是（）For i=1To3For j=1To iPrint*;Next jPrintNextiA.***B.*C.**D.*

14.若要在列表框（List1）中添加一项“福建”，正确的语句是（）A.List

1.AddItem福建B.List

1.Add福建C.List

1.List.Add福建D.List

1.AddItem福建第2页共9页

15.以下关于文件操作的说法，正确的是（）A.打开文件时，若指定方式为“Output”，文件不存在会创建新文件B.读取随机文件时，必须使用Input#语句C.关闭文件只能使用Close语句D.文件的路径只能使用相对路径

二、填空题（本题型共10空每题2分共20分）

1.VB的工程文件扩展名为__________，窗体文件的扩展名为__________

2.要将文本框（Text1）的内容设置为“Hello”，应使用语句__________

3.若有语句“Dim a5As Integer”，则数组a的下标范围是__________，数组元素的个数是__________

4.以下程序段的功能是计算1到100的和，请补充完整s=0i=1Do While__________s=s+ii=i+1LoopPrint s

5.命令按钮（Command1）的Click事件过程的完整声明格式是__________

6.在VB中，对象的__________是指当发生某个事件时执行的代码段第3页共9页

7.若要使图片框（Picture1）不显示，应设置其__________属性为False

8.以下程序段的输出结果是__________x=10If x5Theny=x+5Elsey=x-5End IfPrinty

9.列表框（List1）的__________属性用于获取选中项/think的值10/think/think.要从列表框（List1）中移除所有项目，应使用语句__________

三、阅读程序题（本题型共3题每题10分共30分）

1.阅读以下程序代码，写出程序运行后窗体上的输出结果Private SubForm_ClickDim i As Integer,sum As Integersum=0For i=1To10If iMod3=0Thensum=sum+iEnd IfNextiPrint1到10中能被3整除的数之和为;sum第4页共9页End Sub

2.阅读以下程序代码，写出程序运行后在文本框（Text1）中显示的内容Private SubCommand1_ClickDim a1To5As Integera1=10:a2=20:a3=30:a4=a1+a2:a5=a4-a3Text

1.Text=For i=1To5Text

1.Text=Text

1.TextaiNext iEndSub

3.阅读以下程序代码，写出程序运行后在列表框（List1）中显示的内容Private SubForm_LoadDim sAs String,iAs Integers=HelloFor i=1To LensList

1.AddItem Mids,i,1Next iEndSub

四、改错题（本题型共2题每题10分共20分）

1.以下程序的功能是求1到5的乘积（5!），但代码中存在错误，请找出并改正Private SubCommand1_Click第5页共9页Dim iAsInteger,product AsIntegerproduct=1For i=1To5product=product*iNext iPrint5!=+productEnd Sub

2.以下程序的功能是在文本框（Text1）中显示1到10的所有偶数，但代码中存在逻辑错误，请找出并改正Private SubCommand1_ClickDim iAs IntegerText

1.Text=For i=1To10Step2Text

1.Text=Text

1.TextiNext iEndSub

五、程序设计题（本题型共2题每题10分共20分）

1.设计一个简单的VB程序，功能如下在文本框（Text1）中输入两个整数，点击“计算和”按钮（Command1）后，在标签（Label1）中显示这两个数的和请写出实现该功能的完整代码（包括界面设计说明和事件过程代码）

2.设计一个VB程序，功能如下在文本框（Text2）中输入一个正整数n，点击“求最大公约数”按钮（Command2）后，在标签（Label2）中显示n和n-1（n1时）的最大公约数请写出实现该功能的完整代码（包括界面设计说明和事件过程代码）第6页共9页答案

一、选择题

1.C

2.A

3.D

4.A

5.C

6.B

7.B

8.A

9.D

10.C

11.B

12.B

13.C

14.A

15.A

二、填空题

1..vbp,.frm

2.Text

1.Text=Hello

3.0~5,

64.i=

1005.Private SubCommand1_Click

6.事件过程

7.Visible

8.

159.ListIndex

10.List

1.Clear

三、阅读程序题

1.1到10中能被3整除的数之和为18（3+6+9=18）

2.

1020303003.H el lo

四、改错题

1.错误Print5!=+product改正Print5!=product

2.错误Step2（循环步长应为1，且起始数应为0）改正For i=0To10Step2（或For i=2To10Step2）

五、程序设计题第7页共9页

1.界面设计添加文本框Text1（用于输入整数）、标签Label1（用于显示结果）、命令按钮Command1（标题为“计算和”）代码Private SubCommand1_ClickDim aAsInteger,b AsIntegera=ValText

1.Text假设输入两个数用空格分隔，或分两个文本框，此处简化为一个文本框输入，用Split处理b=ValSplitText

1.Text,1Label

1.Caption=两数之和为a+bEnd Sub*注若严格两数输入，可增加Text2，此处简化为一个文本框输入两个数，空格分隔

2.界面设计添加文本框Text2（输入正整数）、标签Label2（显示结果）、命令按钮Command2（标题为“求最大公约数”）代码Private SubCommand2_ClickDim nAsInteger,m AsInteger,temp AsIntegern=ValText

2.Textm=n-1If m=0ThenLabel

2.Caption=n=1时无意义Exit SubEndIfDo Whilem0temp=n Modm第8页共9页n=mm=tempLoopLabel

2.Caption=最大公约数为nEnd Sub第9页共9页。