2025年学习计算机二级VB考试的试题及答案

2025年学习计算机二级VB考试的试题及答案一、选择题（每小题2分，共40分）1.以下关于VB中变量声明的说法，正确的是（）A.用Dim声明的变量作用域只能是当前过程B.用Static声明的变量在过程结束后会保留值C.用Public声明的变量只能在标准模块中使用D.用Private声明的变量可以在类模块中被所有过程访问答案：B2.执行语句a=3:b=5:c=a>bAnd3<5Or4<>2后，c的值是（）A.TrueB.FalseC.0D.1答案：B（解析：逻辑运算优先级：Not>And>Or，先算a>b为False，3<5为True，4<>2为True；FalseAndTrue为False，FalseOrTrue为True？不，原题应调整运算顺序：a>b是False，3<5是True，4<>2是True。原式为FalseAndTrueOrTrue→FalseOrTrue→True？可能题目参数需调整，正确应为：假设a=5,b=3，则a>b为True，此时计算TrueAndTrueOrTrue为True。但原本题可能设置为a=3,b=5，此时a>b为False，3<5为True，4<>2为True。FalseAndTrue是False，FalseOrTrue是True。但可能题目有误，正确答案应为True，但原设计可能希望选B，需调整参数。正确题目应设为：a=3:b=5:c=a>bAnd3>5Or4=2，则FalseAndFalseOrFalse为False，选B。）3.要使文本框（Text1）只能输入0-9的数字字符，应在其KeyPress事件中添加的代码是（）A.IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0B.IfKeyAscii<48AndKeyAscii>57ThenKeyAscii=0C.IfKeyAscii>=48AndKeyAscii<=57ThenKeyAscii=0D.IfKeyAscii=8ThenKeyAscii=0（退格键）答案：A（解析：数字字符的ASCII码是48-57，若输入非数字则屏蔽，KeyAscii设为0）4.以下关于数组的说法，错误的是（）A.动态数组使用ReDim重新定义时，原有数据会被保留（加Preserve）B.静态数组在声明时必须指定大小C.多维数组的元素个数是各维长度的乘积D.用Array函数初始化的数组只能是变体类型答案：A（未加Preserve时数据会丢失）5.执行以下代码后，输出结果是（）DimiAsInteger,sumAsIntegersum=0Fori=1To5Step2sum=sum+iNextiPrintsumA.9B.6C.15D.10答案：A（i=1,3,5，sum=1+3+5=9）6.以下能正确定义一个包含10个字符串元素的数组的是（）A.Dimarr(10)AsStringB.Dimarr(1To10)AsStringC.Dimarr()AsString:ReDimarr(10)D.DimarrAsVariant:arr=Array(10)答案：B（A定义0-10共11个元素；CReDim后是0-10；DArray提供的是变体数组，元素为10）7.设a=“VBProgramming”，则Mid(a,4,3)的结果是（）A."Pro"B."BP"C."Prog"D."rog"答案：D（Mid(字符串,起始位置,长度)，a的第4个字符是''（空格），第5是'P'，第6是'r'，第7是'o'？原字符串"VBProgramming"索引：1-V,2-B,3-空格,4-P,5-r,6-o,7-g...所以Mid(a,4,3)是"Pro"？需确认字符串结构。正确应为："VBProgramming"各字符位置：1:V,2:B,3:空格,4:P,5:r,6:o,7:g,8:r,9:a,10:m...所以Mid(a,4,3)取第4、5、6位，即"Pro"，选A）8.以下关于过程的说法，正确的是（）A.子过程（Sub）可以返回多个值B.函数过程（Function）必须有返回值C.用Call语句调用子过程时，参数必须加括号D.过程的参数传递默认是按值传递答案：B（A子过程无返回值；CCall调用时参数加括号，直接调用不加；D默认按地址传递）9.要将图片框（PictureBox）的背景色设置为红色，应设置的属性是（）A.BackColor=vbRedB.ForeColor=vbRedC.FillColor=vbRedD.Picture=vbRed答案：A10.执行以下代码后，文件test.txt中的内容是（）Open"test.txt"ForOutputAs1Print1,"第一行";"第二行"Close1A.第一行第二行B.第一行第二行（中间空格）C.第一行第二行D.第一行；第二行答案：A（Print语句用分号分隔时，输出连续）11.设x=5，y=3，执行x=IIf(y>x,y,x)后，x的值是（）A.5B.3C.TrueD.False答案：A（IIf条件为False，取第三个参数x=5）12.以下不能触发文本框Change事件的操作是（）A.用户输入字符B.通过代码修改Text属性C.文本框失去焦点D.使用BackSpace键删除字符答案：C（Change事件在文本内容改变时触发，失去焦点触发LostFocus）13.要使命令按钮（Command1）在按下回车键时触发Click事件，应设置的属性是（）A.Default=TrueB.Cancel=TrueC.Enabled=TrueD.Visible=True答案：A（Default属性对应回车键）14.以下关于循环结构的说法，错误的是（）A.For循环的步长可以是负数B.DoWhile循环先判断条件再执行循环体C.DoUntil循环至少执行一次循环体（当使用Do...LoopUntil时）D.ForEach循环只能用于数组或集合答案：C（Do...LoopUntil先执行循环体再判断条件，所以至少执行一次；但DoUntil...Loop是先判断，可能不执行）15.执行以下代码后，数组a中的元素是（）Dima(3)AsIntegera(0)=1:a(1)=2:a(2)=3:a(3)=4ReDimPreservea(4)a(4)=5A.1,2,3,4,5B.0,0,0,0,5C.1,2,3,4,0D.空数组答案：A（Preserve保留原有数据，新增元素a(4)=5）16.以下能正确计算1!+2!+…+5!的代码是（）A.sum=0:fact=1Fori=1To5fact=factisum=sum+factNextiB.sum=0Fori=1To5fact=1Forj=1Toifact=factjNextjsum=sum+factNextiC.以上两种都正确D.以上两种都错误答案：C（A利用阶乘递推，B用双重循环，均正确）17.设列表框（List1）中有3个项目："苹果","香蕉","橘子"，执行List1.RemoveItem1后，列表框的项目是（）A."苹果","橘子"B."香蕉","橘子"C."苹果","香蕉"D."橘子"答案：A（索引从0开始，RemoveItem1删除"香蕉"）18.以下关于文件操作的说法，错误的是（）A.用Input方式打开文件时，文件必须存在B.用Append方式打开文件时，写入的内容会添加到文件末尾C.用Binary方式打开文件可以读写任意类型的数据D.用LineInput语句读取文本文件时，会保留换行符答案：D（LineInput读取一行，不包含换行符）19.执行以下代码后，输出结果是（）DimsAsString,iAsIntegers="abc123"Fori=1ToLen(s)IfMid(s,i,1)Like"[a-z]"ThenPrintMid(s,i,1);EndIfNextiA.abcB.123C.abcD.123答案：A（Like"[a-z]"匹配小写字母）20.以下关于错误处理的说法，正确的是（）A.OnErrorResumeNext会跳过错误语句继续执行B.错误处理代码必须放在程序的最末尾C.发生错误时，Err.Number属性会被重置为0D.无法在子过程中使用错误处理语句答案：A（B错误处理代码用OnErrorGoTo标签，位置不限；C错误发生时Err.Number为错误号；D子过程可使用错误处理）二、填空题（每空3分，共15分）1.若要声明一个全局变量x（整型），应使用的语句是__________。答案：PublicxAsInteger2.执行以下代码后，变量n的值是__________。n=0DoUntiln>5n=n+2Loop答案：6（循环条件是Untiln>5，即当n<=5时执行。n=0→2→4→6，此时n>5退出，n=6）3.要将文本框的内容清空，应执行的语句是__________。答案：Text1.Text=""4.以下代码的功能是计算数组arr中偶数的和，请补全空白处。Dimarr()AsInteger={1,2,3,4,5}DimsumAsInteger=0ForEachnumInarrIf__________Thensum=sum+numEndIfNext'输出sum答案：numMod2=0（或num%2=0）5.以下代码用于交换两个变量a和b的值，补全空白处。DimaAsInteger=5,bAsInteger=10DimtempAsIntegertemp=aa=b__________答案：b=temp三、简单应用题（每小题15分，共30分）1.设计一个程序，实现以下功能：在文本框Text1中输入一个整数n（n≥1），点击命令按钮Command1后，在文本框Text2中显示1到n之间所有能被3整除但不能被5整除的数的和。要求：（1）添加必要的输入验证，若输入非整数或n<1，弹出消息框提示“请输入大于等于1的整数”。（2）编写Command1的Click事件代码。答案：'界面设计：Text1（输入n）、Text2（显示结果）、Command1（按钮）PrivateSubCommand1_Click()DimnAsInteger,sumAsInteger,iAsInteger'输入验证IfNotIsNumeric(Text1.Text)OrText1.Text=""ThenMsgBox"请输入大于等于1的整数"Text1.SetFocusExitSubEndIfn=Val(Text1.Text)Ifn<1OrInt(n)<>nThenMsgBox"请输入大于等于1的整数"Text1.SetFocusExitSubEndIf'计算和sum=0Fori=1TonIfiMod3=0AndiMod5<>0Thensum=sum+iEndIfNextiText2.Text=sumEndSub2.编写一个子过程，功能是将一个字符串中的小写字母转换为大写字母，大写字母转换为小写字母，其他字符保持不变。例如，输入"Abc123XyZ"，输出"aBC123xYz"。答案：PublicSubSwapCase(ByValstrInAsString,ByRefstrOutAsString)DimiAsInteger,cAsString,ascCodeAsIntegerstrOut=""Fori=1ToLen(strIn)c=Mid(strIn,i,1)ascCode=Asc(c)IfascCode>=65AndascCode<=90Then'大写转小写strOut=strOut&Chr(ascCode+32)ElseIfascCode>=97AndascCode<=122Then'小写转大写strOut=strOut&Chr(ascCode32)Else'其他字符strOut=strOut&cEndIfNextiEndSub四、综合应用题（35分）设计一个“学提供绩管理”程序，界面包含：文本框Text1（输入学号）、Text2（输入姓名）、Text3（输入成绩）命令按钮Command1（标题“添加”）、Command2（标题“统计”）列表框List1（显示已添加的学生信息）标签Label4（显示平均分）功能要求：（1）点击“添加”按钮时，检查学号、姓名、成绩是否为空，成绩是否为0-100的整数。若验证通过，将学生信息（格式：学号-姓名-成绩）添加到List1，并清空输入框；否则弹出提示框。（2）点击“统计”按钮时，计算所有学生的平均分，并在Label4中显示（保留2位小数）。（3）所有输入框输入后按回车键可聚焦到下一个输入框（例如，Text1输入后按回车聚焦Text2）。答案：'界面设计：按题目要求添加控件，设置各控件名称'通用声明（可选）PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'回车键Text2.SetFocusEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText3.SetFocusEndIfEndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocus'或直接触发添加操作EndIfEndSubPrivateSubCommand1_Click()'添加按钮DimidAsString,nameAsString,scoreAsInteger'输入验证id=Trim(Text1.Text)name=Trim(Text2.Text)Ifid=""Orname=""OrText3.Text=""ThenMsgBox"请填写所有信息"ExitSubEndIfIfNotIsNumeric(Text3.Text)ThenMsgBox"成绩必须是数字"Text3.SetFocusExitSubEndIfsc