VB程序设计编程考试题和答案

VB程序设计编程考试题和答案一、选择题（每题2分，共40分）1.在VB中，以下哪个是合法的变量名？（）A.3abcB.a-bC._abcD.abc123答案：D。变量名必须以字母或下划线开头，不能包含空格、运算符等特殊字符，不能以数字开头。A以数字开头不合法；B包含“-”不合法；C以下划线开头虽然语法上有时可行，但不是好的编程习惯且不符合常规变量命名规范，D符合要求。2.以下数据类型中，占用内存最大的是（）A.IntegerB.LongC.SingleD.Double答案：D。Integer占2个字节；Long占4个字节；Single占4个字节；Double占8个字节，所以Double占用内存最大。3.执行语句`x=10:y=20:z=x>y`后，z的值是（）A.TrueB.FalseC.1D.0答案：B。因为10不大于20，所以`x>y`的结果为False，赋值给z后，z的值就是False。4.若有语句`Dima(10)AsInteger`，则数组a包含的元素个数是（）A.9B.10C.11D.12答案：C。在VB中，数组默认下标从0开始，声明`Dima(10)AsInteger`表示数组有11个元素，下标范围是0到10。5.以下关于For-Next循环的说法正确的是（）A.循环变量的值不能在循环体内被改变B.循环次数是固定的C.循环体内不能包含If-Then语句D.当循环变量的值超过终值时，循环结束答案：D。循环变量的值可以在循环体内被改变，但可能会影响循环的正常执行；循环次数不一定是固定的，如果在循环体内改变了循环变量的值等情况可能会改变循环次数；循环体内可以包含If-Then等语句进行条件判断等操作；当循环变量的值超过终值（递增循环）或小于终值（递减循环）时，循环结束。6.以下哪个函数可以将字符串转换为数值？（）A.Str()B.Val()C.CStr()D.Chr()答案：B。Val()函数用于将字符串转换为数值；Str()是将数值转换为字符串；CStr()也是将其他数据类型转换为字符串；Chr()是根据ASCII码值返回对应的字符。7.要在文本框中显示多行文本，应设置文本框的（）属性为True。A.MultiLineB.ScrollBarsC.LockedD.Enabled答案：A。MultiLine属性设置为True时，文本框可以显示多行文本；ScrollBars属性用于设置是否显示滚动条；Locked属性用于设置文本框是否可编辑；Enabled属性用于设置文本框是否可用。8.以下关于过程的说法错误的是（）A.过程可以有参数传递B.过程可以有返回值C.函数过程和子过程都必须有Exit语句D.子过程用Sub关键字定义答案：C。函数过程和子过程不一定要有Exit语句，Exit语句只是用于在特定条件下提前退出过程，不是必须的。过程可以有参数传递来接收外部数据，函数过程可以有返回值，子过程用Sub关键字定义。9.若要在窗体加载时执行一段代码，应在（）事件中编写。A.LoadB.ClickC.DblClickD.Unload答案：A。Load事件在窗体加载时触发，通常用于初始化一些数据等操作；Click事件在单击窗体时触发；DblClick事件在双击窗体时触发；Unload事件在窗体卸载时触发。10.以下哪个运算符是逻辑与运算符？（）A.OrB.AndC.NotD.Xor答案：B。And是逻辑与运算符；Or是逻辑或运算符；Not是逻辑非运算符；Xor是逻辑异或运算符。11.执行语句`MsgBox"Hello",vbOKCancel`后，消息框中显示的按钮是（）A.确定按钮B.确定和取消按钮C.取消按钮D.重试和取消按钮答案：B。`vbOKCancel`表示消息框中显示确定和取消按钮。12.以下关于数组的说法正确的是（）A.数组的大小在定义后不能改变B.动态数组可以在程序运行过程中改变大小C.二维数组的元素个数是两个维度长度的和D.数组的下标只能从0开始答案：B。固定大小数组在定义后大小一般不能改变，但动态数组可以使用ReDim语句在程序运行过程中改变大小；二维数组的元素个数是两个维度长度的乘积；数组的下标可以通过OptionBase语句设置起始值，不一定从0开始。13.要将一个图片加载到图像框中，应设置图像框的（）属性。A.PictureB.ImageC.IconD.LoadPicture答案：A。通过设置图像框的Picture属性可以加载图片；Image不是图像框的常见属性；Icon一般用于设置图标；LoadPicture是函数，用于加载图片，而不是属性。14.以下关于函数过程的说法正确的是（）A.函数过程没有返回值B.函数过程的名称不能作为变量使用C.函数过程可以有多个返回值D.函数过程用Function关键字定义答案：D。函数过程用Function关键字定义，有返回值；函数过程的名称可以作为变量使用来返回结果；函数过程只能有一个返回值，通过函数名赋值返回。15.执行语句`a=InputBox("请输入一个数")`后，a的数据类型是（）A.IntegerB.LongC.StringD.Variant答案：C。InputBox函数返回的是用户输入的字符串，所以a的数据类型是String。16.以下哪个语句可以清除列表框中的所有项目？（）A.List1.ClearB.List1.RemoveItemC.List1.AddItemD.List1.ItemData答案：A。List1.Clear用于清除列表框中的所有项目；List1.RemoveItem用于删除指定索引的项目；List1.AddItem用于向列表框中添加项目；List1.ItemData用于存储与列表框项目相关的数据。17.若要使命令按钮不可用，应设置其（）属性为False。A.VisibleB.EnabledC.DefaultD.Cancel答案：B。Enabled属性设置为False时，命令按钮不可用；Visible属性设置为False时，命令按钮不可见；Default属性用于设置默认按钮；Cancel属性用于设置取消按钮。18.以下关于SelectCase语句的说法错误的是（）A.可以根据不同的条件值执行不同的代码块B.条件表达式只能是数值型或字符串型C.CaseElse子句是可选的D.每个Case子句只能有一个值答案：D。SelectCase语句可以根据不同的条件值执行不同的代码块；条件表达式通常是数值型或字符串型；CaseElse子句用于处理不满足前面Case条件的情况，是可选的；每个Case子句可以有多个值，例如`Case1,3,5`等。19.执行语句`s="HelloWorld":n=Len(s)`后，n的值是（）A.5B.6C.10D.11答案：D。Len函数用于返回字符串的长度，“HelloWorld”包含11个字符（包括空格），所以n的值是11。20.以下哪个对象可以用来创建菜单？（）A.FormB.MenuStripC.ToolStripD.StatusStrip答案：B。MenuStrip对象用于创建菜单；Form是窗体；ToolStrip用于创建工具栏；StatusStrip用于创建状态栏。二、填空题（每题2分，共20分）1.VB中用于声明常量的关键字是______。答案：Const2.表达式`3+52-8/2`的值是______。答案：9。按照运算符优先级，先计算乘法和除法，`52=10`，`8/2=4`，然后计算加法和减法，`3+10-4=9`。3.若要将焦点设置到文本框Text1上，应使用语句______。答案：Text1.SetFocus4.定义一个子过程，名称为`MySub`，没有参数，其定义语句为______。答案：SubMySub()5.假设数组`a(5)`中存储了6个整数，要计算数组元素的总和，可使用循环语句，循环变量的初值为______，终值为______。答案：0，5。因为数组下标从0开始，到5结束，共6个元素。6.要将字符串“123”转换为数值123，可使用函数______。答案：Val("123")7.若要在图片框中显示一幅图片，除了设置Picture属性外，还可以使用函数______。答案：LoadPicture8.列表框的______属性用于返回或设置列表框中当前被选中项目的索引。答案：ListIndex9.若要使定时器Timer1每隔1秒触发一次Timer事件，应设置其______属性为1000。答案：Interval10.用______语句可以退出Do-Loop循环。答案：ExitDo三、程序阅读题（每题5分，共20分）1.阅读以下程序：```vbPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=1To10sum=sum+iNextiText1.Text=sumEndSub```当单击命令按钮Command1时，文本框Text1中显示的内容是什么？答案：55。该程序通过For-Next循环计算1到10的整数和，`1+2+3+...+10=(1+10)10/2=55`，最后将结果显示在文本框Text1中。2.以下程序：```vbFunctionFact(nAsInteger)AsIntegerIfn=0ThenFact=1ElseFact=nFact(n-1)EndIfEndFunctionPrivateSubCommand2_Click()DimnumAsIntegernum=5Text2.Text=Str(Fact(num))EndSub```当单击命令按钮Command2时，文本框Text2中显示的内容是什么？答案：120。该程序定义了一个递归函数Fact用于计算阶乘，`5!=54321=120`，最后将结果转换为字符串显示在文本框Text2中。3.阅读下面程序：```vbDima(5)AsIntegerPrivateSubForm_Load()a(0)=1a(1)=2a(2)=3a(3)=4a(4)=5a(5)=6EndSubPrivateSubCommand3_Click()DimiAsInteger,maxAsIntegermax=a(0)Fori=1To5Ifa(i)>maxThenmax=a(i)EndIfNextiText3.Text=Str(max)EndSub```当单击命令按钮Command3时，文本框Text3中显示的内容是什么？答案：6。程序在Form_Load事件中给数组a赋值，在Command3_Click事件中通过循环找出数组中的最大值6，然后将其转换为字符串显示在文本框Text3中。4.以下程序：```vbPrivateSubCommand4_Click()DimstrAsStringstr="abcdefg"DimnewStrAsStringDimiAsIntegerFori=1ToLen(str)Step2newStr=newStr+Mid(str,i,1)NextiText4.Text=newStrEndSub```当单击命令按钮Command4时，文本框Text4中显示的内容是什么？答案：aceg。程序通过循环，每次间隔2个字符从字符串“abcdefg”中取出字符，组成新字符串“aceg”并显示在文本框Text4中。四、程序设计题（每题10分，共20分）1.编写一个程序，计算1到100中所有能被3整除的数的和。要求使用循环结构，结果显示在标签Label1上。```vbPrivateSubCommand5_Click()DimsumAsIntegerDimiAsIntegersum=0Fori=