2026年四川省计算机等级考试二级笔试试卷VB试题及答案

2026年四川省计算机等级考试二级笔试试卷VB试题及答案一、单项选择题（每题1分，共40分）1.在VisualBasic中，窗体文件的扩展名是（）。A..frmB..vbpC..basD..cls2.下列选项中，不属于VB对象三要素的是（）。A.属性B.方法C.事件D.函数3.用于声明符号常量的关键字是（）。A.DimB.StaticC.ConstD.Public4.表达式5\2+3Mod2的值是（）。A.2B.3C.4D.55.以下关于变体（Variant）类型变量的说法，正确的是（）。A.可以存储任意类型的数据，但效率较低B.只能存储数值类型数据C.声明时必须使用`Variant`关键字D.不能进行算术运算6.执行语句`PrintFormat(1234.567,"00000.00")`的输出结果是（）。A.1234.57B.01234.57C.1234.567D.01234.5677.下列控件中，没有Caption属性的是（）。A.LabelB.CommandButtonC.TextBoxD.Frame8.要将焦点设置到文本框Text1上，应使用的方法是（）。A.Text1.GetFocusB.Text1.SetFocusC.SetFocus.Text1D.GetFocus.Text19.下列数组声明语句中，正确的是（）。A.Dima[5]AsIntegerB.Dima(5)AsIntegerC.DimaAsInteger(5)D.Dima{5}AsInteger10.如果希望一个变量在过程调用结束后仍保留其值，应该使用（）关键字声明该变量。A.DimB.PrivateC.PublicD.Static11.以下循环结构中，至少执行一次循环体的是（）。A.DoWhile...LoopB.DoUntil...LoopC.Do...LoopWhileD.While...Wend12.用于提前结束子过程或函数过程的关键字是（）。A.EndSubB.ExitSubC.StopD.ExitFunction13.在标准模块中，用于声明全局变量的关键字是（）。A.DimB.PrivateC.PublicD.Static14.函数`InStr("ABCDEFG","DE")`的返回值是（）。A.3B.4C.TrueD.False15.表达式`Left("四川省计算机等级考试",3)`的值是（）。A.“四川”B.“四川省”C.“省计”D.“四”16.下列控件中，可用于显示和编辑多行文本的是（）。A.LabelB.TextBoxC.ListBoxD.ComboBox17.要清除列表框List1中的所有项目，应使用的方法是（）。A.List1.ClearB.List1.RemoveAllC.List1.ClsD.List1.ClearAll18.当组合框（ComboBox）的Style属性设置为2时，其样式为（）。A.下拉式组合框B.简单组合框C.下拉式列表框D.文本框19.定时器（Timer）控件响应的事件是（）。A.ClickB.ChangeC.TimerD.Interval20.用于设置菜单项快捷键的属性是（）。A.ShortcutB.KeyC.CaptionD.Name21.通用对话框（CommonDialog）控件中，用于显示“打开”对话框的方法是（）。A.ShowOpenB.ShowSaveC.ShowFontD.ShowColor22.在顺序文件中，以追加方式打开文件应使用（）模式。A.InputB.OutputC.AppendD.Random23.下列语句中，能正确关闭所有已打开文件的是（）。A.CloseAllB.CloseC.Close#D.End24.用于获取当前系统日期和时间的函数是（）。A.DateB.TimeC.NowD.Day25.用于生成一个[0,1)之间随机数的函数是（）。A.RndB.RandomizeC.RandD.Int(Rnd)26.下列选项中，不能作为VB变量名的是（）。A._SumB.Sum_1C.2SumD.Sum227.表达式`"12"&"34"`的结果是（）。A.“1234”B.46C.“46”D.程序出错28.如果x是一个正实数，对x的第3位小数四舍五入的表达式是（）。A.Int(x100+0.5)/100A.Int(x100+0.5)/100B.Int(x1000+0.5)/1000B.Int(x1000+0.5)/1000C.Round(x,2)D.Format(x,"0.00")29.下列逻辑运算符中，优先级最高的是（）。A.AndB.OrC.NotD.Xor30.语句`IfxTheny=1`中，x的数据类型最好是（）。A.IntegerB.LongC.BooleanD.String31.以下关于过程参数传递的说法，错误的是（）。A.按值传递（ByVal）时，形参的改变不会影响实参B.按地址传递（ByRef）是默认的传递方式C.数组作为参数时，只能按地址传递D.用户定义类型（Type）作为参数时，只能按值传递32.用于在立即窗口中显示变量a值的调试命令是（）。A.PrintaB.Debug.PrintaC.?aD.Showa33.下列控件中，具有Picture属性的是（）。A.ImageB.LabelC.CommandButtonD.TextBox34.要使命令按钮Command1不可用（变灰），应设置其（）属性。A.Visible=FalseB.Enabled=FalseC.Default=FalseD.Cancel=False35.用于在程序运行时向列表框List1添加一个新项目“成都”的语句是（）。A.List1.AddItem“成都”B.List1.Add“成都”C.List1.NewItem“成都”D.List1.List(0)=“成都”36.在VB中，窗体的Load事件发生在（）。A.窗体被加载到内存但未显示时B.窗体第一次显示时C.窗体获得焦点时D.用户单击窗体时37.要设置文本框Text1中文本的字体为“宋体”，应使用的语句是（）。A.Text1.Font="宋体"B.Text1.FontName="宋体"C.Text1.Font.Name="宋体"D.Text1.FontFace="宋体"38.用于将字符串转换为数值的函数是（）。A.StrB.ValC.CStrD.String39.以下关于MsgBox函数的说法，正确的是（）。A.它只能显示信息，不能返回值B.它返回一个整数，表示用户单击了哪个按钮C.它返回一个字符串，表示用户输入的内容D.它必须至少指定一个参数40.用于声明一个包含10个整型元素的一维动态数组a，正确的语句序列是（）。A.Dima()AsInteger:ReDima(10)B.Dima(10)AsIntegerC.Dima()AsInteger:ReDima(9)D.DimaAsInteger(9)二、多项选择题（每题2分，共10分，多选、少选、错选均不得分）41.下列VB的数据类型中，属于数值类型的有（）。A.IntegerB.StringC.SingleD.BooleanE.Currency42.以下关于VB中事件过程的描述，正确的有（）。A.事件过程由用户或系统触发B.事件过程名由对象名和事件名组成，中间用下划线连接C.所有对象都有Click事件D.可以在代码中直接调用事件过程E.窗体的事件过程存储在窗体模块中43.下列方法中，属于列表框（ListBox）控件的有（）。A.AddItemB.RemoveItemC.ClearD.RefreshE.SetFocus44.能够实现循环结构的有（）。A.For...NextB.Do...LoopC.SelectCaseD.While...WendE.If...Then...Else45.在VB中，可以用于文件操作的关键字或函数有（）。A.OpenB.WriteC.InputD.EOFE.LOF三、填空题（每空2分，共20分）46.数学表达式`(a+b)/(c-d)`对应的VB表达式是________。47.在VB中，单精度浮点型数据的关键字是________。48.执行语句`s="VBProgramming":PrintMid(s,4,5)`后，输出结果是________。49.用于退出整个应用程序的语句是________。50.在For循环中，用于提前结束循环的关键字是________。51.定义一个包含两个整型成员a和b的用户自定义类型MyType，代码应为：________。52.要使窗体Form1的标题栏显示为“主窗口”，应执行的语句是________。53.在VB中，用于比较两个字符串是否完全相同的运算符是________。54.将图片框Picture1中已加载的图片清除，应使用的方法或语句是________。55.使用随机文件时，记录长度通过________子句来设置。四、程序阅读题（每题5分，共20分）56.阅读下列程序，写出单击命令按钮Command1后，窗体上的输出结果。```PrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To10Step2s=s+iNextiPrintsEndSub```输出结果：________57.阅读下列程序，写出单击命令按钮Command1后，窗体上的输出结果。```PrivateSubCommand1_Click()DimaAsString,bAsStringa="ABCD"b="1234"Printa&bPrintStrReverse(a&b)EndSub```输出结果：________________58.阅读下列程序，写出单击命令按钮Command1后，输入数值8时，窗体上的输出结果。```PrivateSubCommand1_Click()DimnAsInteger,iAsIntegern=Val(InputBox("请输入一个正整数:"))Fori=1TonIfnModi=0ThenPrinti;NextiEndSub```输出结果：________59.阅读下列函数过程，写出执行语句`PrintFact(5)`后的输出结果。```PrivateFunctionFact(ByValnAsInteger)AsLongIfn<=1ThenFact=1ElseFact=nFact(n1)Fact=nFact(n1)EndIfEndFunction```输出结果：________五、程序填空题（每空3分，共15分）60.以下程序用于找出100以内的所有素数，并每行5个显示在列表框List1中。请填空完成程序。```PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,flagAsBooleanDimcountAsIntegercount=0Fori=2To100________(1)________Forj=2ToSqr(i)IfiModj=0Thenflag=False________(2)________EndIfNextjIfflagThenList1.AddItemicount=count+1If________(3)________ThenPrintEndIfNextiEndSub```(1)________(2)________(3)________61.以下程序段用于从已打开的顺序文件“data.txt”（内容为若干行字符串）中读取所有行，并显示在文本框Text1中（Text1的MultiLine属性已设为True）。请填空。```DimsAsStringOpen"data.txt"ForInputAs#1DoWhile________(4)________LineInput#1,sText1.Text=________(5)________LoopClose#1```(4)________(5)________六、编程题（第62题10分，第63题15分，共25分）62.（综合应用题）编写一个事件过程，实现以下功能：在文本框Text1中输入一个英文字母串（可包含空格），单击“统计”按钮（Command1）后，统计出该字符串中大写字母、小写字母、数字字符和其他字符的个数，并将统计结果分别显示在四个标签（Label1,Label2,Label3,Label4）上。请写出Command1_Click事件过程的完整代码。63.（综合应用题）编写一个完整的VB程序（包含必要的界面设计和代码），模拟一个简单的四则运算测试器。具体要求如下：窗体上放置两个文本框（Text1,Text2）用于输入两个操作数，一个组合框（Combo1）用于选择运算符（+、-、、/），一个标签（Label1）用于显示“=”，一个文本框（Text3）用于用户输入计算结果，一个命令按钮（Command1）标题为“判断”。窗体上放置两个文本框（Text1,Text2）用于输入两个操作数，一个组合框（Combo1）用于选择运算符（+、-、、/），一个标签（Label1）用于显示“=”，一个文本框（Text3）用于用户输入计算结果，一个命令按钮（Command1）标题为“判断”。程序运行时，用户在两个操作数文本框输入数字，选择运算符，在结果文本框输入答案，单击“判断”按钮。程序运行时，用户在两个操作数文本框输入数字，选择运算符，在结果文本框输入答案，单击“判断”按钮。程序根据所选运算符和输入的操作数计算出正确答案，与用户输入的结果进行比较。程序根据所选运算符和输入的操作数计算出正确答案，与用户输入的结果进行比较。使用消息框（MsgBox）给出判断结果：“回答正确！”或“回答错误，正确答案是：X”（其中X为计算出的正确结果）。使用消息框（MsgBox）给出判断结果：“回答正确！”或“回答错误，正确答案是：X”（其中X为计算出的正确结果）。要求进行必要的错误处理，例如当除数为0时，提示“除数不能为零！”；当输入非数字内容时，提示“请输入有效数字！”。要求进行必要的错误处理，例如当除数为0时，提示“除数不能为零！”；当输入非数字内容时，提示“请输入有效数字！”。请写出窗体上各主要对象的属性设置（以表格形式）以及“判断”按钮（Command1）的Click事件过程的完整代码。请写出窗体上各主要对象的属性设置（以表格形式）以及“判断”按钮（Command1）的Click事件过程的完整代码。参考答案及评分标准一、单项选择题（每题1分，共40分）1.A2.D3.C4.B5.A6.B7.C8.B9.B10.D11.C12.B13.C14.B15.B16.B17.A18.C19.C20.A21.A22.C23.B24.C25.A26.C27.A28.A29.C30.C31.D32.B33.A34.B35.A36.A37.B38.B39.B40.C二、多项选择题（每题2分，共10分）41.ACE42.ABDE43.ABCDE44.ABD45.ACDE三、填空题（每空2分，共20分）46.(a+b)/(cd)或(a+b)/(c-d)（括号非必须但推荐）47.Single48.Progr（注意空格，`Mid(s,4,5)`从第4个字符“P”开始取5个字符，即“Progr”）49.End50.ExitFor51.`TypeMyTypeaAsIntegerbAsIntegerEndType`（在标准模块中声明）52.Form1.Caption="主窗口"53.=（或等于号，注意与文本比较运算符Like区分）54.Picture1.Picture=LoadPicture("")或SetPicture1.Picture=Nothing55.Len四、程序阅读题（每题5分，共20分）56.25（计算1+3+5+7+9的和）57.ABCD1234（第一行）4321DCBA（第二行）58.1248（输出8的所有正因子）59.120（计算5的阶乘）五、程序填空题（每空3分，共15分）60.(1)flag=True(2)ExitFor(3)countMod5=0（或等效表达式，如`count/5=count\5`）61.(4)NotEOF(1)(5)Text1.Text&s&vbCrLf（或等效的字符串连接方式，确保换行）六、编程题（共25分）62.（10分）参考代码：```PrivateSubCommand1_Click()DimsAsString,iAsIntegerDimupperCountAsInteger,lowerCountAsIntegerDimdigitCountAsInteger,otherCountAsIntegerDimchAsString1DimchAsString1s=Text1.TextupperCount=0:lowerCount=0:digitCount=0:otherCount=0Fori=1ToLen(s)ch=Mid(s,i,1)SelectCasechCase"A"To"Z"upperCount=upperCount+1Case"a"To"z"lowerCount=lowerCount+1Case"0"To"9"digitCount=digitCount+1CaseElseotherCount=otherCount+1EndSelectNextiLabel1.Caption="大写字母："&CStr(upperCount)Label2.Caption="小写字母："&CStr(lowerCount)Label3.Caption="数字字符："&CStr(digitCount)Label4.Caption="其他字符："&CStr(otherCount)EndSub```评分要点：变量声明与初始化（1分），循环遍历字符串（2分），字符分类判断（SelectCase或If嵌套，4分），结果输出到标签（2分），代码结构清晰（1分）。63.（15分）属性设置参考表格：对象属性设置值Form1Caption四则运算测试器Text1,Text2Text(空)Combo1List+;-;*;/Text(空)Label1Caption=Text3Text(空)Command1Caption判断参考代码：```PrivateSubCommand1_Click()Dimnum1AsDouble,num2A