2025年大学计算机vb考试试题及答案

2025年大学计算机vb考试试题及答案一、单项选择题（每题2分，共30分）1.以下关于VB变体类型（Variant）的描述中，错误的是（）。A.可存储数值、字符串等多种类型数据B.未初始化的Variant默认值为EmptyC.存储数值时占用内存比Integer类型小D.与其他类型混合运算时会自动类型转换2.表达式5+32^2Mod4\2的运算结果是（）。A.5B.7C.9D.113.执行以下代码后，变量x的值是（）。DimxAsIntegerx=1DoWhilex<=5IfxMod2=0Thenx=x+3x=x+1LoopA.6B.7C.8D.94.声明动态数组时，正确的语句是（）。A.Dimarr()AsInteger:ReDimarr(5)AsStringB.Dimarr()AsInteger:ReDimPreservearr(10To20)C.Dimarr(10)AsInteger:ReDimarr(5)D.Dimarr()AsInteger:ReDimarr(3,4)AsDouble5.以下关于过程调用的描述中，正确的是（）。A.子过程（Sub）可以通过Return语句返回值B.函数（Function）的参数默认按值传递（ByVal）C.调用无参数的子过程时，括号可以省略D.过程的参数名不能与过程体内的变量名重复6.若要在文本框（Text1）中输入时不显示实际内容，需设置的属性是（）。A.PasswordChar=""B.MultiLine=TrueC.MaxLength=10D.Locked=True7.执行以下代码后，列表框（List1）中显示的项目数是（）。List1.ClearList1.AddItem"apple"List1.AddItem"banana",0List1.AddItem"cherry",List1.ListCountA.2B.3C.4D.58.以下文件操作语句中，能正确以追加模式打开文本文件"score.txt"的是（）。A.Open"score.txt"ForInputAs1B.Open"score.txt"ForOutputAs1C.Open"score.txt"ForAppendAs1D.Open"score.txt"ForRandomAs19.以下关于事件驱动编程的描述中，错误的是（）。A.程序的执行流程由用户操作（如点击按钮）触发B.每个控件对应唯一的事件处理程序C.事件可以是系统定义的（如Load）或用户自定义的D.事件过程名由“对象名_事件名”组成10.执行以下代码后，变量s的值是（）。DimsAsStrings="VBProgramming"s=UCase(Mid(s,4,5))A."PROG"B."prog"C."GRAM"D."GRAMM"11.以下关于单选按钮（OptionButton）和复选框（CheckBox）的描述中，正确的是（）。A.单选按钮可同时选中多个，复选框只能选中一个B.两者的Value属性值类型相同C.单选按钮通常用于二选一，复选框用于多选D.两者的Caption属性不可修改12.若要在窗体加载时自动执行一段代码，应编写的事件过程是（）。A.Form_Click()B.Form_Load()C.Form_Activate()D.Form_Unload()13.以下代码的输出结果是（）。DimaAsInteger,bAsIntegera=3:b=5CallSwap(a,b)Printa&","&bPrivateSubSwap(xAsInteger,yAsInteger)DimtAsIntegert=x:x=y:y=tEndSubA.3,5B.5,3C.0,0D.编译错误14.以下关于错误处理的语句中，能捕获所有运行时错误的是（）。A.OnErrorResumeNextB.OnErrorGoTo0C.OnErrorGoTo100D.OnErrorReturn15.声明自定义类型“学生”（包含姓名、年龄、成绩）的正确语句是（）。A.TypeStudentNameAsStringAgeAsIntegerScoreAsSingleEndTypeB.ClassStudentNameAsStringAgeAsIntegerScoreAsSingleEndClassC.StructureStudentNameAsStringAgeAsIntegerScoreAsSingleEndStructureD.UnionStudentNameAsStringAgeAsIntegerScoreAsSingleEndUnion二、填空题（每空2分，共20分）1.声明一个单精度浮点型变量avg并初始化为0，语句是__________。2.若x=5，y=3，执行x=IIf(x>y,x+y,xy)后，x的值为__________。3.数组声明为Dimarr(2To5,3)，则该数组的元素个数是__________。4.函数过程中用于返回值的语句是__________。5.若要将文件指针移动到顺序文件的开头，应使用__________语句。6.执行以下循环后，变量k的值是__________。k=0Fori=1To3Forj=1Toik=k+1NextjNexti7.文本框（Text1）中输入的内容可通过__________属性获取。8.若要禁止列表框（List1）被编辑，需设置__________属性为True。9.以下代码的输出结果是__________。DimsAsString="ab12cd34"DimnAsInteger=0Fori=1ToLen(s)IfMid(s,i,1)Like"[0-9]"Thenn=n+1NextiPrintn10.执行以下代码后，标签（Label1）的内容是__________。Label1.Caption="成绩："&Format(89.5,"000.0")三、程序填空题（每空3分，共15分）1.以下程序用于计算1到100中所有能被3或5整除的数的和。请补充完整。DimsumAsInteger,iAsIntegersum=0Fori=1To100If(iMod3=0)__________(iMod5=0)Thensum=sum+iEndIfNextiPrint"和为："&sum2.以下程序用于交换两个变量的值，采用按地址传递方式。请补充完整。SubSwap(__________xAsInteger,ByRefyAsInteger)DimtempAsIntegertemp=xx=yy=tempEndSub3.以下程序用于读取文本文件"data.txt"中的所有行，并在列表框中显示。请补充完整。DimstrLineAsStringOpen"data.txt"For__________As1DoWhileNotEOF(1)LineInput1,strLineList1.AddItemstrLineLoopClose14.以下程序用于判断一个数是否为素数。请补充完整。FunctionIsPrime(nAsInteger)AsBooleanIfn<=1ThenIsPrime=FalseExitFunctionEndIfFori=2ToSqr(n)IfnModi=__________ThenIsPrime=FalseExitFunctionEndIfNextiIsPrime=TrueEndFunction5.以下程序用于在窗体上绘制一个红色的圆形。请补充完整。Form1.BackColor=vbWhiteForm1.FillStyle=0Form1.FillColor=__________Form1.Circle(1000,1000),500四、编程题（共35分）1.（10分）设计一个VB窗体，包含：两个文本框（Text1、Text2），分别用于输入两个整数；一个命令按钮（Command1），标题为“计算和差”；一个标签（Label1），用于显示结果。要求：点击按钮时，计算两个数的和与差（和=Text1+Text2，差=Text1-Text2），并在标签中显示“和：X，差：Y”（X、Y为计算结果）。2.（12分）编写一个子过程SortArray，使用冒泡排序法对整型数组进行升序排序。要求：数组作为参数传递；子过程内部实现排序逻辑；主程序中调用该过程对数组{5,3,8,1,4}进行排序，并输出排序后的结果。3.（13分）编写程序实现以下功能：读取当前目录下"input.txt"文件中的若干学生姓名（每行一个）；将姓名按字典序排序后，写入"output.txt"文件（每行一个）。答案一、单项选择题1.C2.B3.D4.B5.C6.A7.B8.C9.B10.A11.C12.B13.A14.A15.A二、填空题1.DimavgAsSingle=02.83.12（4行×3列）4.Return表达式5.Seek文件号,16.6（1+2+3=6）7.Text8.Locked9.4（字符"1""2""3""4"）10.089.5三、程序填空题1.Or2.ByRef3.Input4.05.vbRed四、编程题1.窗体设计代码（部分关键属性）：```vbPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,sumAsInteger,diffAsIntegera=Val(Text1.Text)b=Val(Text2.Text)sum=a+bdiff=abLabel1.Caption="和："&sum&"，差："&diffEndSub```2.冒泡排序子过程及主程序：```vbSubSortArray(ByRefarr()AsInteger)DimiAsInteger,jAsInteger,tempAsIntegerFori=1ToUBound(arr)1Forj=0ToUBound(arr)i1Ifarr(j)>arr(j+1)Thentemp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNextiEndSub'主程序调用示例：PrivateSubForm_Load()Dimnums()AsInteger={5,3,8,1,4}SortArray(nums)DimsAsStringForEachnumInnumss=s&num&""NextPrint"排序后："&sEndSub```3.文件读写与排序程序：```vbPrivateSubProcessFiles()Dimnames()AsString,lineAsStringDimiAsInteger,jAsInteger,tempAsStringDimcountAsInteger=0'读取文件