2025年极简计算机二级VB试题及答案

2025年极简计算机二级VB试题及答案一、选择题（每题2分，共30分）1.以下关于VB变量声明的说法，正确的是（）A.用Dim声明的变量默认是局部变量B.模块级变量必须用Public声明C.静态变量在过程结束后会被释放D.全局变量只能在标准模块中用Dim声明答案：A2.执行语句a=5:b=7:c=a>b后，c的数据类型是（）A.整数型B.布尔型C.变体类型D.字符串型答案：B3.若文本框Text1的PasswordChar属性设置为""，且Text属性为"admin"，则文本框显示的内容是（）A.adminB.C.空字符串D.取决于MultiLine属性答案：B4.要使命令按钮Command1在程序运行时不可用，应设置其（）属性为FalseA.EnabledB.VisibleC.DefaultD.Cancel答案：A5.以下能正确提供10到50之间（含10和50）随机整数的表达式是（）A.Int(Rnd40)+10B.Int(Rnd41)+10C.Int(Rnd50)+10D.Int(Rnd51)+10答案：B（Rnd提供[0,1)，乘41得[0,41)，取整后0-40，加10得10-50）6.设a=3，b=5，执行语句a=b:b=a后，a和b的值分别为（）A.3,5B.5,3C.5,5D.3,3答案：C（第一步a=b后a=5，第二步b=a时a已为5，故b=5）7.以下关于过程的说法，错误的是（）A.Sub过程不能返回值B.Function过程可以通过函数名返回值C.过程参数默认按地址传递（ByRef）D.用Static声明的过程会保留局部变量值答案：D（Static用于声明过程内的局部变量，而非过程本身）8.要将列表框List1中选中的项目删除，应使用的语句是（）A.List1.RemoveItemList1.ListIndexB.List1.ClearC.List1.RemoveItemList1.TextD.List1.DeleteList1.Index答案：A9.执行以下代码后，输出结果是（）DimsAsStrings="abc123"PrintLen(s)+Val(Mid(s,4,2))A.612B.6+12C.18D.612（字符串连接）答案：C（Len("abc123")=6，Mid(s,4,2)取第4到5个字符"12"，Val("12")=12，6+12=18）10.设文件号为1，要以追加方式打开D盘根目录下的test.txt文件，正确的语句是（）A.Open"D:\test.txt"ForInputAs1B.Open"D:\test.txt"ForOutputAs1C.Open"D:\test.txt"ForAppendAs1D.Open"D:\test.txt"ForRandomAs1答案：C11.以下能正确声明动态数组的语句是（）A.Dimarr()AsIntegerB.Dimarr(5)AsIntegerC.Staticarr()AsString5D.Publicarr[10]AsDouble答案：A（动态数组先声明为无维数的数组，再用ReDim调整大小）12.执行以下循环后，x的值是（）x=0DoWhilex<5x=x+2LoopA.4B.5C.6D.7答案：C（x初始0，第一次循环x=2，第二次x=4，第三次x=6，此时6≥5退出循环）13.组合框Combol的Style属性设置为2（下拉列表框）时，用户可以进行的操作是（）A.直接输入文本B.从列表中选择项目C.既可以输入也可以选择D.只能查看不能操作答案：B14.以下关于事件驱动的描述，错误的是（）A.程序的执行顺序由事件触发决定B.每个事件对应一个事件过程C.事件是用户或系统触发的动作D.事件过程必须由用户编写，系统无法自动提供答案：D（部分事件过程如Form_Load可由系统自动提供框架）15.设a$="VisualBasic"，则Left(a$,6)&Mid(a$,8,1)的结果是（）A."VisualB"B."Visualasic"C."VisualBasic"D."Visuals"答案：A（Left取前6字符"Visual"，Mid从第8位取1字符"B"，连接后为"VisualB"）二、填空题（每空3分，共15分）1.若要声明一个全局变量num，应使用的语句是________（在标准模块中）。答案：PublicnumAsInteger2.执行以下代码后，数组a的元素个数是________。Dima(2To5,3)AsString答案：12（第一维2-5共4个，第二维0-3共4个，4×4=16？不，第二维默认下界0，声明为3则是0-3共4个，第一维2-5是4个，总4×4=16？原题可能笔误，若第二维声明为3（即0-3），则4×4=16；若声明为3To5，则是3个。根据常规写法，Dima(2To5,3)中第二维下界0，上界3，故元素个数为(5-2+1)×(3-0+1)=4×4=16。但可能题目意图是第二维上界3，故答案应为16。但需确认：VB中多维数组元素个数计算为各维长度相乘，第一维长度5-2+1=4，第二维长度3-0+1=4，总4×4=16。）答案：163.要将文本框Text1的内容清空，应执行的语句是________。答案：Text1.Text=""4.以下代码的功能是计算1到100中所有能被3或5整除的数的和，补全空缺处。DimsAsInteger,iAsIntegers=0Fori=1To100If________Thens=s+iEndIfNextiPrints答案：iMod3=0OriMod5=05.以下代码用于向顺序文件中写入数据，补全空缺处。Open"D:\data.txt"For________As1Write1,"姓名","年龄"Write1,"张三",20Close1答案：Output三、编程题（共55分）1.（15分）设计一个窗体，包含两个文本框（Text1、Text2）和一个命令按钮（Command1）。要求：单击命令按钮时，将Text1中输入的小写字母转换为大写字母，结果显示在Text2中（非字母字符保持不变）。答案：PrivateSubCommand1_Click()DimstrInAsString,strOutAsStringDimiAsInteger,cAsStringstrIn=Text1.TextFori=1ToLen(strIn)c=Mid(strIn,i,1)Ifc>="a"Andc<="z"ThenstrOut=strOut&UCase(c)ElsestrOut=strOut&cEndIfNextiText2.Text=strOutEndSub2.（20分）编写一个Sub过程，计算n的阶乘（n!），并调用该过程计算5!的值（结果输出到标签Label1中）。答案：'定义阶乘过程SubFactorial(nAsInteger,ByRefresultAsLong)DimiAsIntegerresult=1Fori=1Tonresult=resultiNextiEndSub'按钮单击事件调用PrivateSubCommand1_Click()DimnAsInteger,factAsLongn=5Factorialn,factLabel1.Caption=n&"!="&factEndSub3.（20分）某班级有30名学生的数学成绩存储在D盘根目录下的score.txt文件中（每行一个成绩），编写程序读取该文件，计算平均分并统计不及格（<60）的人数，结果分别显示在文本框Text1（平均分）和Text2（不及格人数）中。答案：PrivateSubCommand1_Click()DimtotalAsSingle,avgAsSingleDimcountAsInteger,failCountAsIntegerDimscoreAsIntegertotal=0count=0failCount=0'打开文件Open"D:\score.txt"ForInputAs1'读取数据DoWhileNotEOF(1)Input1,scoretotal=total+scorecount=count+1Ifscore<60ThenfailCount=failCount+1