2025年透彻理解计算机二级VB考试试题及答案

2025年透彻理解计算机二级VB考试试题及答案一、选择题（共10题，每题2分）1.以下关于VB变量声明的描述中，正确的是（）。A.用Dim声明的变量仅在事件过程中有效B.用Static声明的变量在过程结束后值会保留C.模块级变量需在窗体模块的通用声明段用Public声明D.全局变量只能在标准模块中用Dim声明解析：B选项正确。Static声明的变量在过程调用结束后仍保留值，下次调用时使用上次的结果；A错误，Dim可声明过程级或模块级变量（取决于声明位置）；C错误，模块级变量用Private或Dim在通用声明段声明，Public声明全局变量；D错误，全局变量需用Public在标准模块声明，Dim声明的是模块级变量。2.执行语句a=3:b=5:c=a>bAndbMod2=1后，c的值是（）。A.TrueB.FalseC.0D.1解析：B选项正确。首先计算a>b（3>5为False），再计算bMod2=1（5除以2余1，结果为True），逻辑与（And）要求两边均为True时结果才为True，因此FalseAndTrue结果为False。VB中逻辑值True对应-1，False对应0，但直接赋值给布尔变量时结果为逻辑值。3.若文本框Text1的PasswordChar属性设置为""，且Text1的Text属性为"1234"，则文本框显示的内容是（）。A.1234B.C.空字符串D.取决于Locked属性解析：B选项正确。PasswordChar属性用于设置密码显示字符，当该属性设置为非空字符（如""）时，文本框将隐藏实际输入内容，用设置的字符替代显示，无论Text属性存储的实际内容是什么。4.设有数组声明语句：Dimarr(3,2To4)AsInteger，则数组arr的元素个数是（）。A.12B.10C.9D.8解析：A选项正确。二维数组的元素个数计算方式为各维长度的乘积。第一维下标范围是0到3（默认下界为0），长度为3-0+1=4；第二维下标范围是2到4，长度为4-2+1=3；总元素个数为4×3=12。5.以下关于VB事件驱动机制的描述，错误的是（）。A.程序运行时等待用户操作触发事件B.事件是由系统预先定义的、能被对象识别的动作C.一个对象只能响应一个事件D.事件过程是处理特定事件的代码段解析：C选项错误。一个对象可以响应多个事件，例如命令按钮（CommandButton）可以响应Click事件（单击）、DblClick事件（双击）、MouseMove事件（鼠标移动）等。6.执行以下代码后，输出结果是（）。DimxAsIntegerx=1DoWhilex<=5IfxMod2=0ThenPrintx;EndIfx=x+1LoopA.24B.135C.246D.无输出解析：A选项正确。循环条件为x≤5，初始x=1。第一次循环x=1（奇数，不输出），x变为2；第二次x=2（偶数，输出2），x变为3；第三次x=3（奇数，不输出），x变为4；第四次x=4（偶数，输出4），x变为5；第五次x=5（奇数，不输出），x变为6，循环结束。最终输出24。7.要使标签Label1的背景透明，应设置其（）属性为0。A.BackColorB.ForeColorC.BackStyleD.BorderStyle解析：C选项正确。BackStyle属性用于设置背景样式，0表示透明，1表示不透明；BackColor是背景颜色，ForeColor是前景颜色，BorderStyle是边框样式（0为无边框，1为固定单边框）。8.以下关于函数过程和子过程的描述，正确的是（）。A.函数过程可以返回多个值，子过程不能返回值B.子过程用Function声明，函数过程用Sub声明C.调用子过程时需使用Call语句或直接使用过程名D.函数过程必须有参数，子过程可以没有参数解析：C选项正确。子过程的调用方式可以是Call过程名(参数)或过程名参数（参数外的括号可省略）；A错误，函数过程通过返回值返回一个值，子过程无返回值；B错误，函数用Function声明，子过程用Sub声明；D错误，两者均可有或无参数。9.执行语句s="VisualBasic":PrintLeft(s,6)&Mid(s,8,3)后，输出结果是（）。A.VisualBaB.VisualsicC.VisualBasD.Visualic解析：C选项正确。Left(s,6)取字符串s的前6个字符，即"Visual"；Mid(s,8,3)从第8个字符开始取3个字符，s的字符索引从1开始：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,8,3)是"Bas"，拼接后为"VisualBas"。10.若要将文件d:\data.txt中的内容读取到文本框Text1中，以下正确的代码是（）。A.Open"d:\data.txt"ForInputAs1Text1.Text=Input(LOF(1),1)Close1B.Open"d:\data.txt"ForOutputAs1Text1.Text=Input(LOF(1),1)Close1C.Open"d:\data.txt"ForAppendAs1Text1.Text=Input(LOF(1),1)Close1D.Open"d:\data.txt"ForInputAs1Text1.Text=Input(1,LOF(1))Close1解析：A选项正确。读取文件应使用Input模式（ForInput）；LOF(1)返回文件1的字节数，Input(LOF(1),1)表示从文件1中读取全部内容；B的Output模式用于写入（会覆盖原文件），C的Append模式用于追加写入，均错误；D的Input函数参数顺序错误（应为Input(长度,文件号)）。二、填空题（共5题，每题3分）1.执行以下代码后，变量sum的值是______。DimiAsInteger,sumAsIntegersum=0Fori=1To5Step2sum=sum+iNexti解析：9。循环变量i的取值为1、3、5（步长2），sum初始为0，累加后0+1=1，1+3=4，4+5=9。2.要使图片框Picture1中显示名为"logo.jpg"的图片，应设置其______属性为"logo.jpg"。解析：Picture。图片框通过Picture属性加载图片，语法为Picture1.Picture=LoadPicture("logo.jpg")，或直接设置属性值。3.以下代码用于计算1!+2!+…+5!，请补全空白处。DimnAsInteger,iAsInteger,jAsInteger,sAsLong,factAsLongs=0Forn=1To5fact=______Forj=1Tonfact=factjNextjs=s+factNextn解析：1。阶乘计算中，每个n!的初始值应为1（1!=1，2!=1×2，依此类推），因此内层循环前需将fact初始化为1。4.设有语句：a=InputBox("请输入数值：","输入框","默认值")，若用户不输入任何内容直接单击“确定”按钮，则a的值是______。解析："默认值"。InputBox函数的第三个参数是默认输入值，当用户未输入时，返回该默认值（字符串类型）。5.以下代码用于交换变量a和b的值，补全空白处。DimaAsInteger,bAsInteger,tAsIntegera=3:b=5t=aa=bb=______解析：t。通过中间变量t交换，t保存a的值，a获取b的值，b获取t（原a的值）。三、编程题（共3题，每题15分）1.设计一个VB程序，在窗体上添加两个文本框（Text1、Text2）、一个命令按钮（Command1）和一个标签（Label1）。要求：单击命令按钮时，将Text1和Text2中输入的数值相加，结果显示在Label1中（需处理非数值输入的情况）。参考代码：PrivateSubCommand1_Click()Dimnum1AsSingle,num2AsSingle,sumAsSingle'检查Text1输入是否为数值IfIsNumeric(Text1.Text)Thennum1=Val(Text1.Text)ElseMsgBox"Text1输入非数值！",vbExclamationExitSubEndIf'检查Text2输入是否为数值IfIsNumeric(Text2.Text)Thennum2=Val(Text2.Text)ElseMsgBox"Text2输入非数值！",vbExclamationExitSubEndIfsum=num1+num2Label1.Caption="和为："&sumEndSub解析：本题考察控件事件处理、输入验证及数值计算。使用IsNumeric函数判断输入是否为数值，Val函数转换为数值类型，通过MsgBox提示错误，最后将结果赋值给标签的Caption属性。2.编写一个过程，计算数组arr中所有偶数的和。数组arr的元素为：2,5,8,11,14,17,20。参考代码：FunctionSumEven(arr()AsInteger)AsIntegerDimiAsInteger,sumAsIntegersum=0Fori=LBound(arr)ToUBound(arr)Ifarr(i)Mod2=0Thensum=sum+arr(i)EndIfNextiSumEven=sumEndFunction'调用示例：PrivateSubForm_Click()Dimarr()AsInteger={2,5,8,11,14,17,20}MsgBox"偶数和为："&SumEven(arr)EndSub解析：本题考察数组操作和函数过程。使用LBound和UBound获取数组上下界，通过Mod运算符判断偶数（余数为0），累加符合条件的元素值，最终返回总和。3.编写程序，将D盘根目录下的"scores.txt"文件中的学提供绩读取到列表框List1中（每行一个成绩），并计算平均分显示在标签Label1中（假设文件中每行为一个有效数值）。参考代码：PrivateSubForm_Load()DimscoreAsString,totalAsSingle,countAsInteger,avgAsSingleList1.Clear'清空列表框Open"d:\scores.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,score'逐行读取List1.AddItemscore'添加到列表框total=total+Val(score)count=count+1Loop