2025年VB考试集中训练试题及答案

2025年VB考试集中训练试题及答案一、单项选择题（每小题2分，共30分）1.以下VB变量声明语句中，正确的是（）A.DimaAsInteger=10B.Dimb:String="test"C.DimcAsDoubleD.Dimd100AsInteger答案：C2.执行语句"x=IIf(3>5,10,20)"后，x的值为（）A.10B.20C.TrueD.False答案：B3.设a=3，b=5，执行语句"a=b:b=a"后，a和b的值分别为（）A.3,5B.5,5C.3,3D.5,3答案：B4.要声明一个包含10个元素的一维整型数组arr（下标从0开始），正确的声明语句是（）A.Dimarr(10)AsIntegerB.Dimarr(0To9)AsIntegerC.Dimarr(1To10)AsIntegerD.Dimarr(9)AsInteger答案：B5.执行以下程序段时，循环体执行的次数是（）k=0DoWhilek<=5k=k+2LoopA.3次B.2次C.4次D.5次答案：A（k取值0→2→4→6时退出，循环体执行3次）6.表达式"123"&45+6的计算结果是（）A.123456B.12351C.174D."12351"答案：B（字符串连接优先级低于算术运算，先计算45+6=51，再与"123"连接成"12351"，但VB中&运算符强制转换为字符串连接，实际结果为"12351"，但题目若考察类型转换则需注意。本题正确计算应为"123"&(45+6)="12351"，但选项B为12351，可能题目设定为数值相加，需确认。正确逻辑应为：&运算符连接两个表达式，先将45+6=51转换为字符串，与"123"连接成"12351"，但选项中无此选项，可能题目存在笔误，正确选项应为B）7.设s="VisualBasic6.0"，则Mid(s,7,5)的返回值是（）A."Basic"B."sual"C."alBa"D."VBasi"答案：A（从第7个字符开始取5个字符：V(1),i(2),s(3),u(4),a(5),l(6),(空格7),B(8),a(9),s(10),i(11),c(12)…实际s="VisualBasic6.0"的字符位置：1:V,2:i,3:s,4:u,5:a,6:l,7:(空格),8:B,9:a,10:s,11:i,12:c,13:(空格),14:6,15:.,16:0。Mid(s,7,5)取第7到11位：空格,B,a,s,i→"Basi"，但可能题目中s无空格，正确应为"Basic"，可能题目中s实际为"VisualBasic6.0"，则第7位是B，取5位得"Basic"，选A）8.以下能正确提供[10,50]之间随机整数的表达式是（）A.Int(Rnd40)+10B.Int(Rnd41)+10C.Int(Rnd50)+10D.Int(Rnd51)-1答案：B（Rnd提供[0,1)，乘41得[0,41)，Int后[0,40]，加10得[10,50]）9.设有命令按钮Command1，其Click事件过程的正确定义是（）A.SubCommand1_Click()B.FunctionCommand1_Click()C.SubClick_Command1()D.FunctionClick()答案：A10.要使文本框Text1失去焦点时触发事件，应编写的事件过程是（）A.Text1_LostFocus()B.Text1_GotFocus()C.Text1_Click()D.Text1_Change()答案：A11.执行以下代码后，数组a的元素个数是（）Dima()AsIntegera=Array(1,3,5,7,9)A.0B.4C.5D.6答案：C（Array函数返回变体数组，赋值给整型数组时自动转换，元素个数5）12.以下关于过程的说法中，错误的是（）A.子过程（Sub）可以返回多个值B.函数过程（Function）必须有返回值C.可以通过传地址方式传递参数D.过程定义不能嵌套，但可以嵌套调用答案：A（子过程不能直接返回值，需通过参数返回）13.要打开D盘根目录下的文件"data.txt"进行读操作，正确的语句是（）A.Open"D:\data.txt"ForInputAs1B.Open"D:\data.txt"ForOutputAs1C.Open"D:\data.txt"ForAppendAs1D.Open"D:\data.txt"ForRandomAs1答案：A14.设窗体上有一个列表框List1，要在其最后添加一个项目"VB考试"，正确的语句是（）A.List1.AddItem"VB考试",0B.List1.AddItem"VB考试",List1.ListCountC.List1.Text="VB考试"D.List1.Items.Add("VB考试")答案：B（AddItem的第二个参数是索引，ListCount是当前项数，添加到末尾用ListCount）15.以下关于菜单设计的说法中，正确的是（）A.菜单标题可以为空B.菜单项的名称（Name属性）可以重复C.分隔符不能响应Click事件D.弹出式菜单必须通过菜单编辑器创建答案：C（分隔符的Caption为"-"，Enabled属性为False，不能触发事件）二、填空题（每空2分，共20分）1.执行语句"a=3:b=5:a=a+b:b=a-b:a=a-b"后，a的值为______，b的值为______。答案：5，32.表达式Len("VB程序设计"&Space(2))的结果是______（注：一个汉字占2字节）。答案：12（"VB程序设计"是6个字符，Space(2)是2个空格，总长度6+2=8字符，Len返回字符数为8，但题目注一个汉字占2字节，可能考察字节数，"VB"2字节，"程序设计"4×2=8字节，Space(2)2字节，总2+8+2=12字节，答案12）3.设x=5，y=3，执行语句"z=IIf(x>y,x+y,x-y)"后，z的值为______。答案：84.要使标签Label1的背景透明，应设置其______属性为True。答案：BackStyle（BackStyle=0为透明，1为不透明）5.以下循环的执行次数是______次。Fori=1To10Step3PrintiNexti答案：4（i=1,4,7,10，共4次）6.设有二维数组arr(2,3)，该数组的元素个数是______。答案：12（下标从0开始时，0-2行，0-3列，共3×4=12个元素）7.要将文本框Text1的内容清空，应执行的语句是______。答案：Text1.Text=""8.以下程序段的输出结果是______。s=0Fork=1To5IfkMod2=0Thens=s+kNextkPrints答案：6（k=2,4时累加，2+4=6）9.要判断文本框Text1是否有输入内容，应检查______属性是否为空。答案：Text10.以下代码执行后，变量m的值是______。m=1DoUntilm>5m=m2Loop答案：8（m=1→2→4→8，此时8>5退出）三、程序分析题（每小题6分，共30分）1.分析以下程序，写出运行时单击命令按钮后的输出结果。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=1:b=1DoWhilea<=3b=baa=a+1LoopPrint"a=";a;"b=";bEndSub答案：a=4b=6（循环过程：a=1→b=1×1=1,a=2；a=2→b=1×2=2,a=3；a=3→b=2×3=6,a=4；退出循环，输出a=4,b=6）2.分析以下程序，写出运行时输入5后文本框Text1的显示内容。PrivateSubCommand1_Click()DimnAsInteger,sAsIntegern=Val(InputBox("请输入一个整数"))s=0Fori=1Tons=s+iNextiText1.Text=Str(s)EndSub答案：15（输入5，计算1+2+3+4+5=15）3.分析以下程序，写出标签Label1的最终显示内容。PrivateSubForm_Load()Dimstr1AsString,str2AsStringstr1="abcde"str2=Mid(str1,2,3)&UCase(Right(str1,2))Label1.Caption=str2EndSub答案：bcdDE（Mid("abcde",2,3)取"bcd"，Right("abcde",2)取"de"，UCase转换为"DE"，连接后"bcdDE"）4.分析以下程序，写出数组arr中各元素的值。PrivateSubCommand1_Click()Dimarr(4)AsInteger,iAsIntegerFori=0To4IfiMod2=0Thenarr(i)=i2Elsearr(i)=i+2EndIfNextiEndSub答案：arr(0)=0,arr(1)=3,arr(2)=4,arr(3)=5,arr(4)=8（i=0→0×2=0；i=1→1+2=3；i=2→2×2=4；i=3→3+2=5；i=4→4×2=8）5.分析以下程序，写出运行时单击命令按钮后的输出结果。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10:y=20CallSwap(x,y)Print"x=";x;"y=";yEndSubPrivateSubSwap(aAsInteger,bAsInteger)DimtAsIntegert=a:a=b:b=tEndSub答案：x=20y=10（VB默认按地址传递参数，Swap过程交换了a和b的值，即x和y的值被交换）四、编程题（共20分）1.（8分）编写程序：在窗体上添加两个文本框（Text1、Text2）和一个命令按钮（Command1）。要求单击命令按钮时，将Text1中输入的字符串反转（如输入"abc"则输出"cba"），结果显示在Text2中。答案：PrivateSubCommand1_Click()DimstrInputAsString,strOutputAsStringDimiAsIntegerstrInput=Text1.TextstrOutput=""Fori=Len(strInput)To1Step-1strOutput=strOutput&Mid(strInput,i,1)NextiText2.Text=strOutputEndSub2.（6分）编写程序：计算1到100之间所有能被3整除但不能被5整除的数的和，结果通过消息框显示。答案：PrivateSubCommand1_Click()DimsumAsInteger,iAsIntegersum=0Fori=1To100IfiMod3=0AndiMod5<>0Thensum=sum+iEndIfNextiMsgBox"和为："&sumEndSub3.（6分）编写程序：从D盘根目录下的"score.txt"文件中读取学提供绩（每行一个分数），统计及格（≥60）的人数，结果显示在标签Label1中。答案：PrivateSubCommand1_Click()DimscoreAsInteger,countAsInteger