2025年大学vb考试题库及答案

2025年大学vb考试题库及答案一、单项选择题（每小题2分，共30分）1.以下关于VB变量声明的说法中，正确的是（）A.用Dim声明的变量作用域为整个工程B.未声明的变量默认是Variant类型C.Static声明的变量仅在过程调用期间保留值D.变量名可以包含空格和数字答案：B2.执行语句a=Val("123abc45")后，a的值是（）A.123abc45B.123C.12345D.0答案：B3.要使文本框（Text1）失去焦点时触发事件，应使用的事件过程是（）A.Text1_GotFocusB.Text1_LostFocusC.Text1_ClickD.Text1_Change答案：B4.设有数组声明语句：Dimarr(3,4)AsInteger，则该数组的元素个数是（）A.12B.20C.15D.24答案：B（行数0-3共4行，列数0-4共5列，4×5=20）5.执行以下代码后，输出结果是（）s="VisualBasic"PrintMid(s,7,5)A."sual"B."Basic"C."alBa"D."sualB"答案：D（Mid函数从第7个字符开始取5个，原字符串索引1开始：V(1)i(2)s(3)u(4)a(5)l(6)(7)B(8)a(9)s(10)i(11)c(12)，第7位是空格，取5个字符为"sBa"？实际原字符串"VisualBasic"正确索引应为：V(1)i(2)s(3)u(4)a(5)l(6)(7)B(8)a(9)s(10)i(11)c(12)，所以Mid(s,7,5)是"Basi"？可能题目设计时原字符串为"VisualBasic"无空格，则第7位是'B'，取5个为"Basic"。此处可能题目存在笔误，正确答案应为B，假设原字符串无空格）6.以下能正确提供10到20之间（含10和20）随机整数的表达式是（）A.Int(Rnd10)+10B.Int(Rnd11)+10C.Int(Rnd20)+10D.Int(Rnd10+1)+10答案：B（Rnd11提供0≤x<11，取整后0-10，加10得10-20）7.要使命令按钮（Command1）的标题显示为"确认(&C)"，应设置其（）属性A.CaptionB.NameC.TextD.Title答案：A8.以下关于Do循环的说法中，错误的是（）A.DoWhile...Loop是当型循环B.Do...LoopWhile是直到型循环C.两种循环结构都至少执行一次循环体D.可以用ExitDo退出循环答案：C（DoWhile循环可能不执行循环体）9.设有过程定义：SubProc(aAsInteger,bAsString)，则正确的调用语句是（）A.CallProc(12,"test")B.Proc12;"test"C.CallProc("test",12)D.Proc12,34答案：A10.要将文件"score.txt"以输入方式打开，正确的语句是（）A.Open"score.txt"ForInputAs1B.Open"score.txt"ForOutputAs1C.Open1ForInputAs"score.txt"D.Open"score.txt"ForAppendAs1答案：A11.执行以下代码后，x的值是（）x=0Fori=1To5Step2x=x+iNextiA.9B.6C.15D.10答案：A（i=1,3,5，x=1+3+5=9）12.以下关于数组的说法中，正确的是（）A.动态数组使用ReDim重新定义时会保留原有数据B.静态数组在声明时必须指定大小C.数组下标的默认起始值是1D.多维数组的元素按列存储答案：B（动态数组用ReDimPreserve保留数据；默认下标0；多维数组按行存储）13.要清除列表框（List1）中所有项目，应使用的方法是（）A.List1.ClearB.List1.RemoveC.List1.ClsD.List1.Delete答案：A14.执行以下代码后，输出结果是（）a=5:b=3Ifa>bThenIfb>4ThenPrinta+bElsePrintabEndIfElsePrintabEndIfA.8B.2C.15D.0答案：B（a=5>3，进入外层If；b=3不大于4，执行a-b=2）15.以下关于事件驱动的说法中，错误的是（）A.程序的执行顺序由用户操作决定B.每个对象都有预定义的事件C.事件过程是响应事件的代码段D.所有事件都必须编写事件过程答案：D（有些事件可以不处理）二、填空题（每空2分，共20分）1.表达式3^2+5Mod32的值是______。（3^2=9，5Mod3=2，22=4，9+4=13）答案：132.若要将文本框设置为密码输入框（显示号），应设置其______属性为""。答案：PasswordChar3.设有数组声明：Dimnum()AsInteger，要重新定义为包含10个元素的数组并保留原有数据，应使用语句______。答案：ReDimPreservenum(9)4.执行语句s=InputBox("请输入姓名","输入框")后，若用户点击取消按钮，s的值是______。答案：空字符串（""）5.要将标签（Label1）的背景设为透明，应设置其______属性为0（Transparent）。答案：BackStyle6.以下循环的执行次数是______次。k=1DoWhilek<=5k=k+2Loop答案：3（k=1→3→5→7，循环体执行3次）7.表达式Len("VB程序设计")的值是______（每个汉字占2字节，此处Len返回字符数）。答案：68.设有函数定义：FunctionSum(a%,b%)AsInteger，调用时传入参数3.6和4.2，实际参与运算的参数值是______。答案：3和4（自动取整）9.要将图片框（Picture1）中的图像清空，应执行语句______。答案：Picture1.Picture=LoadPicture("")10.以下程序段的输出结果是______。Fori=1To3Forj=1ToiPrint"";NextjPrintNexti答案：三、程序改错题（每小题5分，共15分。指出错误并给出正确代码）1.以下代码试图计算1到10的和，存在错误：s=0i=1Whilei<10s=s+ii=i+1WendPrints错误：循环条件应为i<=10（当前i<10时，i最大到9，漏加10）改正：Whilei<=102.以下代码试图交换两个变量的值，存在错误：a=5:b=10a=bb=aPrinta,b错误：未使用中间变量，导致a的值被覆盖后无法恢复改正：t=a:a=b:b=t3.以下代码试图在列表框中添加项目，存在错误：List1.Add"数学"List1.Add"语文"错误：Add方法应为AddItem改正：List1.AddItem"数学":List1.AddItem"语文"四、编程题（共35分）1.（8分）设计一个程序：在文本框Text1中输入一个整数，点击按钮Command1后，判断该数是否为偶数。若是，在标签Label1中显示"偶数"；否则显示"奇数"。参考代码：PrivateSubCommand1_Click()DimnumAsIntegernum=Val(Text1.Text)IfnumMod2=0ThenLabel1.Caption="偶数"ElseLabel1.Caption="奇数"EndIfEndSub2.（9分）编写程序计算1到100之间所有能被3整除但不能被5整除的数的和。结果显示在文本框Text2中。参考代码：PrivateSubCommand2_Click()DimsumAsInteger,iAsIntegersum=0Fori=1To100IfiMod3=0AndiMod5<>0Thensum=sum+iEndIfNextiText2.Text=sumEndSub3.（9分）设计一个窗体，包含两个文本框（Text1、Text2）和一个按钮（Command3）。点击按钮时，将Text1中的内容追加到D盘"info.txt"文件中，并将文件内容读取到Text2中显示。参考代码：PrivateSubCommand3_Click()DimcontentAsStringcontent=Text1.Text'追加写入文件Open"D:\info.txt"ForAppendAs1Print1,contentClose1'读取文件内容Text2.Text=""Open"D:\info.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,contentText2.Text=Text2.Text&content&vbCrLfLoopClose1EndSub4.（9分）编写一个子过程，计算二维数组（3行4列）中所有元素的平均值。要求数组作为参数传递，结果通过返回值输出。参考代码：FunctionArrayAvg(arr()AsInteger)AsDoubleDimiAsInteger,jAsInteger,sumAsInteger,countAsIntegersum=0count=0Fori=0ToUBound(arr,1)Forj=0