2025年大一vb基础考试试题及答案

2025年大一vb基础考试试题及答案一、单项选择题（每小题2分，共30分）1.以下关于VB变量声明的描述中，正确的是（）A.用Dim声明变量时，必须指定数据类型B.局部变量可以在过程外声明C.变量名"2025Score"符合VB命名规则D.使用Static声明的变量在过程结束后会保留值答案：D2.执行语句a="123"&"45"10后，变量a的值为（）A."12345-10"B.12335C."12335"D.类型不匹配错误答案：B（解析：&优先于-，"123"&"45"得到"12345"，转换为数值12345后减10得12335）3.设x=5，y=7，执行Ifx>yThent=x:x=y:y=t后，x和y的值分别为（）A.5,7B.7,5C.5,5D.7,7答案：A（解析：条件x>y不成立，不执行交换）4.要使文本框Text1在运行时不可编辑，应设置（）A.Text1.Locked=TrueB.Text1.Enabled=FalseC.Text1.Visible=FalseD.Text1.ReadOnly=True答案：D5.以下数组声明中，会产生越界错误的是（）A.Dima(5)AsIntegerB.Dimb(-2To2)AsStringC.Dimc(3,4)AsDoubleD.Dimd(1To5,0)AsBoolean答案：D（解析：二维数组第二维下界默认0，声明0会导致维度大小为1，但实际使用时可能越界）6.执行以下循环后，输出结果是（）Fori=1To5Step2Printi;NextiA.12345B.135C.1357D.15答案：B7.设s="VisualBasic2025"，则Mid(s,7,5)的返回值是（）A."Basic"B."sual"C."alBa"D."VBasi"答案：A（解析：字符串索引从1开始，第7个字符是'B'，取5个字符为"Basic"）8.以下关于Sub过程和Function过程的描述，错误的是（）A.Sub过程可以使用ExitSub退出B.Function过程必须返回一个值C.调用时，Sub用过程名加参数列表，Function可直接使用返回值D.两者都可以通过参数返回多个值答案：D（解析：VB中只能通过参数的传址方式返回多个值，并非过程类型决定）9.要打开D盘根目录下的"score.txt"文件进行追加写入，正确的语句是（）A.Open"D:\score.txt"ForInputAs1B.Open"D:\score.txt"ForOutputAs1C.Open"D:\score.txt"ForAppendAs1D.Open"D:\score.txt"ForRandomAs1答案：C10.设a=3，b=5，执行a=aXorb:b=aXorb:a=aXorb后，a和b的值为（）A.3,5B.5,3C.8,8D.0,0答案：B（解析：异或交换法，a=3(011),b=5(101)→a=6(110),b=3(011),a=5(101)）11.以下能正确提供1到100之间（含1和100）随机整数的表达式是（）A.Int(Rnd100)B.Int(Rnd100)+1C.Int(Rnd99)+1D.Int(Rnd101)答案：B12.若要在列表框List1中删除最后一个项目，应使用（）A.List1.RemoveItemList1.ListCountB.List1.RemoveItemList1.ListCount1C.List1.ClearD.List1.RemoveItem0答案：B（解析：ListCount返回项目数，索引从0开始，最后一个索引是ListCount-1）13.执行以下代码后，变量n的值是（）n=0DoWhilen<5n=n+1IfnMod2=0ThenExitDoLoopA.1B.2C.3D.5答案：B（解析：n=1时不满足退出条件，n=2时满足ExitDo，循环终止）14.以下关于对象事件的描述，正确的是（）A.一个对象只能对应一个事件B.事件过程名称由系统自动提供（如Command1_Click）C.事件是对象可以执行的动作D.用户无法自定义事件答案：B15.要将图片框Picture1中的内容清空，应执行（）A.Picture1.Picture=LoadPicture("")B.Picture1.ClsC.Picture1.Image=NothingD.Picture1.Clear答案：A（解析：Cls清除图形方法绘制的内容，LoadPicture("")清空加载的图片）二、填空题（每空2分，共20分）1.VB中表示逻辑"真"的常量是________。答案：True2.执行语句a=LenB("VB程序设计")后，a的值为________（注：一个汉字占2字节）。答案：10（解析："VB"占2字节，"程序设计"4个汉字占8字节，共10）3.设x=7，表达式x\3+xMod3的结果是________。答案：3（解析：7\3=2，7Mod3=1，2+1=3）4.要使标签Label1的背景透明，应设置其________属性为0（Transparent）。答案：BackStyle5.数组a声明为Dima(3To7)AsInteger，则该数组有________个元素。答案：5（解析：7-3+1=5）6.执行以下代码后，输出结果是________。s="abac"Fori=1ToLen(s)c=Mid(s,i,1)Ifc="a"Thenk=k+1NextiPrintk答案：2（解析：字符串中有2个"a"）7.在过程内部声明的变量，其作用域是________。答案：本过程（或局部作用域）8.要将文本框Text1的输入内容限制为只能输入数字，应在________事件中编写代码，检查KeyAscii的值。答案：KeyPress9.打开文件时，若使用ForBinary模式，则文件指针的移动单位是________。答案：字节10.执行以下代码后，变量m的值是________。m=1Fori=1To3Forj=1Toim=mjNextjNexti答案：12（解析：i=1时j=1→m=11=1；i=2时j=1→m=11=1，j=2→m=12=2；i=3时j=1→m=21=2，j=2→m=22=4，j=3→m=43=12）三、程序填空题（每空3分，共15分）1.以下程序实现计算1!+2!+…+n!的值，其中n由文本框Text1输入，结果输出到Text2。请补充完整。PrivateSubCommand1_Click()DimnAsInteger,sAsLong,tAsLong,iAsIntegern=Val(Text1.Text)s=0t=1Fori=1Tont=tis=s+tNextiText2.Text=Str(s)EndSub2.以下程序实现从数组a中查找最大值及其位置。数组a包含5个元素，已初始化。请补充完整。PrivateSubCommand2_Click()Dima(4)AsInteger,maxAsInteger,posAsIntegera=Array(12,35,28,47,19)'假设数组初始化值max=a(0)pos=0Fori=1To4Ifa(i)>maxThenmax=a(i)pos=iEndIfNextiMsgBox"最大值是"&max&"，位置是"&(pos+1)'位置从1开始显示EndSub3.以下程序实现判断输入的年份是否为闰年。闰年条件：能被4整除但不能被100整除，或能被400整除。请补充完整。PrivateSubCommand3_Click()DimyearAsIntegeryear=Val(Text3.Text)If(yearMod4=0AndyearMod100<>0)Or(yearMod400=0)ThenLabel1.Caption=year&"是闰年"ElseLabel1.Caption=year&"不是闰年"EndIfEndSub四、编程题（共35分）1.（10分）设计一个VB程序，在窗体上添加两个文本框（Text1、Text2）和一个命令按钮（Command1）。要求：点击按钮时，将Text1中输入的小写字母转换为大写字母，同时统计其中元音字母（a、e、i、o、u）的个数，结果分别显示在Text2和标签Label1中。参考代码：PrivateSubCommand1_Click()DimstrInputAsString,strUpperAsStringDimcountAsInteger,iAsInteger,cAsStringstrInput=Text1.TextstrUpper=UCase(strInput)'转换大写count=0Fori=1ToLen(strInput)c=LCase(Mid(strInput,i,1))'统一转小写判断Ifc="a"Orc="e"Orc="i"Orc="o"Orc="u"Thencount=count+1EndIfNextiText2.Text=strUpperLabel1.Caption="元音字母个数："&countEndSub2.（12分）编写一个Sub过程，用于对一维整数数组进行升序排序（要求使用冒泡排序算法），并在事件过程中调用该过程对数组{5,3,8,1,6}进行排序，输出排序后的结果。参考代码：'冒泡排序过程SubBubbleSort(arr()AsInteger)DimiAsInteger,jAsInteger,tempAsIntegerDimnAsIntegern=UBound(arr)'获取数组上界Fori=1Ton1Forj=0Toni1Ifarr(j)>arr(j+1)Thentemp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNextiEndSub'调用示例PrivateSubCommand4_Click()Dima()AsInteger,iAsIntegera=Array(5,3,8,1,6)BubbleSortaFori=0ToUBound(a)Printa(i);Nexti'输出：13568EndSub3.（13分）设计一个学提供绩管理程序，要求：窗体包含文本框（输入学号）、列表框（显示已输入的学号）、两个命令按钮（"添加"和"清空"）"添加"按钮功能：若学号不为空且未重复，则添加到列表框；否则提示错误"清空"按钮功能：清空列表框和输入框内容参考代码：PrivateSubCommandAdd_Click()DimstuIDAsString,iAsInteger,isExistAsBooleanstuID=Trim(Text1.Text)IfstuID=""ThenMsgBox"学号不能为空！"ExitSubEndIf'检查是否重复isExist=FalseFori=0ToList1.ListCount1