2025年vb期末试题及答案

2025年vb期末试题及答案一、单项选择题（每题2分，共30分）1.以下合法的VB变量名是（）。A.2025ScoreB.ForLoopC.x-yD.姓名$2.设a=5，b=3，执行语句c=a>bAndbMod2=1后，c的值是（）。A.TrueB.FalseC.1D.03.要声明一个模块级整型变量x，正确的语句是（）。A.DimxAsIntegerB.PublicxAsIntegerC.StaticxAsIntegerD.PrivatexAsInteger4.执行以下循环后，变量i的值是（）。Fori=1To5Step2PrintiNextiA.5B.6C.7D.45.若要在列表框List1中添加一个项目“VB期末”，正确的语句是（）。A.List1.AddItem"VB期末"B.List1.Text="VB期末"C.List1.Items.Add"VB期末"D.List1.List="VB期末"6.以下关于数组的描述中，错误的是（）。A.静态数组声明时大小必须是常量B.动态数组使用ReDim语句重新定义大小时，原有数据会丢失（未使用Preserve关键字）C.二维数组的元素个数等于行数乘以列数D.数组下标的默认下界是17.设s="VisualBasic2025"，则Mid(s,7,5)的返回值是（）。A."Basic"B."sual"C."alBa"D."VBasi"8.要使文本框Text1不可编辑但可显示内容，应设置（）属性为True。A.LockedB.EnabledC.VisibleD.MultiLine9.以下关于过程的说法中，正确的是（）。A.子过程（Sub）可以返回多个值B.函数过程（Function）必须有返回值C.过程的参数传递默认是按值传递（ByVal）D.过程内部不能定义与全局变量同名的局部变量10.执行Open"data.txt"ForOutputAs1后，对文件data.txt的操作是（）。A.读取文件内容B.向文件追加内容C.覆盖原有内容并写入新数据D.随机访问文件11.设a=3，b=5，执行交换操作后a=5，b=3，以下能实现该功能的语句是（）。A.a=b:b=aB.t=a:a=b:b=tC.a=a+b:b=ab:a=abD.选项B和C都可以12.以下事件中，在窗体加载时触发的是（）。A.ClickB.LoadC.ActivateD.Unload13.要将命令按钮Command1的背景颜色设置为红色，应设置（）属性。A.BackColorB.ForeColorC.FontColorD.BorderColor14.设数组arr(5)为0到5的整数，以下能正确遍历数组所有元素的循环是（）。A.Fori=0To5:Printarr(i):NextiB.ForEachitemInarr:Printitem:NextitemC.选项A和B都可以D.以上都不正确15.以下关于Do循环的描述中，错误的是（）。A.DoWhile...Loop先判断条件再执行循环体B.Do...LoopWhile先执行循环体再判断条件C.DoUntil...Loop当条件为False时继续循环D.Do...LoopUntil至少执行一次循环体二、填空题（每题2分，共20分）1.VB中，字符串常量需要用______符号括起来。2.表达式3+52^3Mod4的计算结果是______。3.若要将变量x的值限制为0到100之间（包含0和100），可使用______函数。4.在SelectCase语句中，判断变量x是否在10到20之间（包含边界），应使用的表达式是______。5.静态数组在声明时使用______关键字，动态数组使用______语句重新定义大小。6.过程参数传递中，ByVal表示______传递，ByRef表示______传递。7.要将文本框Text1的内容清空，可设置______属性为空字符串。8.读取顺序文件时，使用______语句将文件中的数据读入变量。9.设s="HelloWorld"，则Len(s)的返回值是______，InStr(s,"lo")的返回值是______。10.窗体的______事件在关闭窗体时触发，______事件在窗体显示前触发。三、程序填空题（每空3分，共18分）1.以下程序用于判断输入的正整数是否为素数，补全代码。```vbPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,flagAsBooleann=Val(Text1.Text)flag=TrueIfn<=1Thenflag=FalseElseFori=2To______IfnModi=0Thenflag=FalseExitForEndIfNextiEndIfIfflagThenLabel1.Caption=n&"是素数"ElseLabel1.Caption=n&"不是素数"EndIfEndSub```2.以下程序实现对数组a的升序冒泡排序，补全代码。```vbPrivateSubCommand2_Click()Dima()AsInteger={5,3,8,1,6}DimiAsInteger,jAsInteger,tempAsIntegerFori=0ToUBound(a)1Forj=0To______Ifa(j)>a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNexti'输出排序结果（代码略）EndSub```3.以下程序将文本框内容写入文件并读取显示，补全代码。```vbPrivateSubCommand3_Click()DimstrAsString,pathAsStringpath="C:\scores.txt"'写入文件OpenpathFor______As1Print1,Text2.TextClose1'读取文件OpenpathForInputAs1DoWhileNotEOF(1)LineInput1,strText3.Text=Text3.Text&str&vbCrLfLoopClose1EndSub```四、编程题（共32分）1.（10分）设计一个窗体，包含两个文本框（Text1、Text2）、一个命令按钮（Command1）和一个标签（Label1）。要求：输入两个整数，点击按钮后，在标签中显示两数的最大公约数和最小公倍数。2.（12分）编写程序统计学提供绩。要求：定义数组存储10名学生的数学成绩（0-100）；输入成绩（可通过输入框或文本框）；计算平均分、优秀率（90分及以上）；在列表框（List1）中显示所有成绩及统计结果。3.（10分）编写程序实现文本文件操作。要求：读取D盘根目录下的“students.txt”文件（每行一个学生姓名）；统计文件中的学生人数；将人数和所有姓名写入“result.txt”文件（路径自定）。答案一、单项选择题1.B2.A3.D4.C5.A6.D7.A8.A9.B10.C11.D12.B13.A14.C15.C二、填空题1.双引号（""）2.11（计算顺序：2^3=8，58=40，40Mod4=0，3+0=3？更正：原题表达式应为3+52^3Mod4，正确计算：2^3=8，58=40，40Mod4=0，3+0=3？可能题目有误，正确答案应为3？但根据常见优先级，乘方>乘除>Mod>加减，所以58=40，40Mod4=0，3+0=3。但可能用户原题意图不同，此处以实际计算为准，假设正确答案为3）3.IIf（或Clamp，VB中无Clamp，正确为IIf(x<0,0,IIf(x>100,100,x))）4.Case10To205.Dim；ReDim6.按值；按地址7.Text8.Input（或LineInput）9.11；4（"HelloWorld"长度11，"lo"在第4位开始）10.Unload；Load三、程序填空题1.Int(Sqr(n))（或Sqr(n)取整）2.UBound(a)i1（冒泡排序内层循环边界）3.Output（写入模式）四、编程题1.参考代码：```vbPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,mAsInteger,nAsInteger,tempAsIntegera=Val(Text1.Text)b=Val(Text2.Text)m=a:n=b'求最大公约数（欧几里得算法）DoWhilen<>0temp=mModnm=nn=tempLoop'最小公倍数=ab/最大公约数Label1.Caption="最大公约数："&m&"，最小公倍数："&(ab)/mEndSub```2.参考代码：```vbPrivateSubCommand1_Click()Dimscores(9)AsInteger,iAsInteger,sumAsInteger,avgAsSingle,countAsIntegerList1.Clear'输入成绩（假设通过输入框）Fori=0To9scores(i)=Val(InputBox("输入第"&i+1&"名学提供绩："))List1.AddItem"学生"&i+1&"："&scores(i)sum=sum+scores(i)Ifscores(i)>=90Thencount=count+1Nextiavg=sum/10List1.AddItem"平均分："&avgList1.AddItem"优秀率："&Format(count/10,"0.0%")EndSub```3.参考代码：```vbPrivateSubCommand1_Click()DimnameAsString,countAsInteger,pathInAsString,pathOutAsStringpathIn="D:\students.txt"pathOut="D:\result.txt"count=0'读取文件OpenpathInForInputAs1DoWhileNotEOF(1)LineInput1,nameco