(2025年)计算机Vb语言考试题及答案

(2025年)计算机Vb语言考试题及答案一、单项选择题（每小题2分，共20分）1.以下关于VB变量声明的描述中，正确的是（）。A.用Dim声明的变量仅在过程内有效B.用Static声明的变量在过程结束后会被释放C.用Public声明的变量可在所有模块中使用D.用Private声明的变量只能在类模块中使用2.执行语句“a=3:b=5:c=a>b”后，c的值是（）。A.TrueB.FalseC.0D.-13.若要将文本框Text1的内容清空，正确的语句是（）。A.Text1.Text=""B.Text1.ClearC.Text1.Value=""D.Text1=""4.以下循环结构中，一定会执行至少一次循环体的是（）。A.Fori=1To10Step2B.DoWhileFalse...LoopC.Do...LoopWhileFalseD.WhileFalse...Wend5.设数组arr声明为“Dimarr(3,4)AsInteger”，则该数组的元素个数是（）。A.12B.15C.20D.246.以下关于过程参数传递的描述中，错误的是（）。A.ByVal传递时，形参的修改不影响实参B.ByRef传递时，形参和实参共享内存地址C.若未指定传递方式，默认按ByVal传递D.数组作为参数时，默认按地址传递7.执行“MsgBox"欢迎",vbOKCancel+vbInformation,"提示"”后，消息框的图标是（）。A.错误图标B.信息图标C.警告图标D.问号图标8.若要打开D盘下的“data.txt”文件进行读操作，正确的语句是（）。A.Open"D:\data.txt"ForInputAs1B.Open"D:\data.txt"ForOutputAs1C.Open"D:data.txt"ForInputAs1D.Open"D:\data.txt"ForAppendAs19.以下关于VB对象事件的描述中，正确的是（）。A.文本框的Change事件在内容改变时触发B.按钮的Click事件只能通过鼠标点击触发C.窗体的Load事件在窗体显示后触发D.列表框的DblClick事件在选中项时触发10.执行以下代码后，变量s的值是（）。```vbs=0Fori=1To5IfiMod2=0ThenExitFors=s+iNexti```A.1B.3C.6D.10二、填空题（每空2分，共20分）1.VB中，将字符串"123"转换为数值的函数是______。2.若要限制文本框只能输入数字，应设置其______属性为“0-Numeric”。3.表达式3^2+5Mod3的结果是______。4.动态数组声明时需使用______关键字，重新定义大小时需用______语句。5.若要在列表框List1中添加一个条目“苹果”，应使用的语句是______。6.过程分为子过程（Sub）和______，其中后者可以返回值。7.顺序文件读取时，使用______语句读取一行文本，使用______语句读取指定数量的字符。三、程序改错题（每小题5分，共15分。指出错误并给出正确代码）1.以下代码试图计算1到10的累加和，但存在错误：```vbsum=0i=1DoUntili>10sum=sum+ii=i1LoopPrintsum```2.以下代码试图交换两个变量a和b的值，但存在错误：```vbSubSwap(aAsInteger,bAsInteger)Dimtempa=temptemp=bb=aEndSub```3.以下代码试图从文件中读取数据并显示，但存在错误：```vbOpen"D:\test.txt"ForInputAs2DoWhileNotEOF(1)LineInput2,strText1.Text=Text1.Text&str&vbCrLfLoopClose1```四、编程题（共45分）1.（10分）编写一个VB程序，在文本框Text1中输入一个整数n（n≥1），点击命令按钮Command1后，在标签Label1中显示1到n的所有奇数的和。2.（15分）设计一个学提供绩管理程序，功能要求：界面包含文本框（输入姓名）、数值框（输入数学成绩，范围0-100）、命令按钮（“添加”）和列表框（显示已添加的学生信息）。点击“添加”按钮时，若姓名为空或成绩超出范围，弹出错误提示；否则将“姓名：XXX，数学：XX分”添加到列表框中。3.（20分）编写一个VB程序，读取D盘下“scores.txt”文件（每行格式为“姓名,数学,英语”），统计并输出：数学平均分（保留2位小数）。英语成绩最高的学生姓名（若有多个，输出第一个）。答案一、单项选择题1.C2.B3.A4.C5.C6.C7.B8.A9.A10.A二、填空题1.Val2.KeyPress3.104.Dim；ReDim5.List1.AddItem"苹果"6.函数过程（Function）7.LineInput；Input三、程序改错题1.错误：循环中i递减（i=i1）导致无法退出循环。正确代码：将“i=i1”改为“i=i+1”。2.错误：temp未赋值，交换逻辑错误。正确代码：```vbSubSwap(aAsInteger,bAsInteger)DimtempAsIntegertemp=aa=bb=tempEndSub```3.错误：文件号不匹配（Open用2，EOF和Close用1）。正确代码：将“EOF(1)”改为“EOF(2)”，“Close1”改为“Close2”。四、编程题1.参考代码：```vbPrivateSubCommand1_Click()DimnAsInteger,sumAsInteger,iAsIntegern=Val(Text1.Text)sum=0Fori=1TonStep2sum=sum+iNextiLabel1.Caption="1到"&n&"的奇数和为："&sumEndSub```2.参考界面设计：文本框Name：TextName数值框（设置Min=0，Max=100）Name：TextMath命令按钮Name：CmdAdd列表框Name：List1参考代码：```vbPrivateSubCmdAdd_Click()DimnameAsString,scoreAsIntegername=TextName.Textscore=TextMath.ValueIfname=""ThenMsgBox"姓名不能为空！",vbExclamation,"错误"ExitSubEndIfIfscore<0Orscore>100ThenMsgBox"成绩范围应为0-100！",vbExclamation,"错误"ExitSubEndIfList1.AddItem"姓名："&name&"，数学："&score&"分"EndSub```3.参考代码：```vbPrivateSubCommand1_Click()DimfileNameAsString,strLineAsStringDimmathSumAsDouble,countAsInteger,maxEngAsInteger,maxNameAsStringDimarr()AsStringfileName="D:\scores.txt"mathSum=0count=0maxEng=-1OpenfileNameForInputAs1DoWhileNotEOF(1)LineInput1,strLinearr=Split(strLine,",")'验证数据格式IfUBound(arr)=2ThenmathSum=mathSum+Val(arr(1))count=count+1'统计英语最高分IfVal(arr(2))>maxEngThenmaxEng=Val(arr(2))maxName=arr(0)EndIfEndIfLoopClose1'