VBA基础与实操考试题（含详细答案解析）

VBA基础与实操考试题（含详细答案解析）考试说明：本试题适用于ExcelVBA入门学习考核，包含选择题、填空题、编程实操题，总分100分，答题时间60分钟。试题侧重实操应用，贴合办公常用场景。一、单项选择题（共10题，每题3分，共30分）1、在ExcelVBA中，以下哪个对象代表当前活动工作表？（）A、WorkbookB、ActiveSheetC、Worksheets(1)D、ActiveWorkbook2、VBA中，声明整型变量的关键字是（）A、StringB、IntegerC、DoubleD、Boolean3、以下代码中，能够给A1单元格赋值为“办公统计”的是（）A、Range("A1")="办公统计"B、Cells(A1)="办公统计"C、Range(A1).Value=办公统计D、Cells(1,1).Text="办公统计"4、VBA中，循环语句For...Next的默认步长是（）A、0B、1C、2D、-15、想要关闭屏幕更新、提升代码运行速度，正确的语句是（）A、Application.ScreenUpdating=FalseB、ScreenUpdating=TrueC、Application.DisplayScreen=FalseD、Workbook.ScreenOff=True6、判断单元格是否为空，以下写法最规范的是（）A、IfRange("A1")=""ThenB、IfA1=EmptyThenC、IfRange("A1").Value=0ThenD、IfCells(1,1).Text=NullThen7、VBA中，MsgBox函数的作用是（）A、输入数据B、弹出提示对话框C、写入单元格D、新建工作表8、删除工作表第2行整行数据的代码是（）A、Rows(2).DeleteB、Row(2).ClearC、Rows.Delete(2)D、Line(2).Remove9、定义常量需要使用的关键字是（）A、DimB、PublicC、ConstD、Static10、结束当前过程运行的语句是（）A、ExitForB、ExitSubC、EndIfD、StopAll二、填空题（共5题，每题4分，共20分）1、VBA中，使用__________语句可以定义模块级私有变量。2、获取当前工作表已使用区域的单元格范围，可使用__________属性。3、DoWhile...Loop循环的特点是__________执行循环体。4、将单元格数字格式保留2位小数，可使用代码：Range("A1").__________="0.00"。5、批量取消Excel弹窗警告提示，可使用语句：Application.__________=False。三、编程实操题（共3题，共50分）实操题1（15分）：编写VBA代码，实现功能：在当前工作表A1:A10单元格，依次填入数字1到10。实操题2（15分）：编写VBA代码，实现功能：新建一个工作表，命名为“月度数据”，并将该工作表移动到所有工作表的最后位置。实操题3（20分）：编写VBA代码，实现功能：遍历当前工作表A2:A100单元格，判断单元格数值，大于60的在B列对应单元格填入“合格”，小于等于60的填入“不合格”，空单元格不做处理。参考答案及详细解析一、单项选择题答案及解析1、答案：B解析：ActiveSheet代表当前正在操作的活动工作表；Workbook代表工作簿，ActiveWorkbook是活动工作簿，Worksheets(1)是第一个工作表，并非当前活动表。2、答案：B解析：Integer为整型（整数）；String是文本型，Double是浮点小数型，Boolean是布尔逻辑型（真/假）。3、答案：A解析：单元格赋值规范写法为Range("单元格地址")="内容"。B选项写法错误，Cells参数为行列数字；C选项文本内容未加双引号；D选项Text属性仅读取显示内容，不用于赋值。4、答案：B解析：For循环默认步长为1，可通过Step关键字自定义步长，如Step2、Step-1。5、答案：A解析：Application.ScreenUpdating=False关闭屏幕刷新，避免代码运行时屏幕闪烁，大幅提升运行速度，是VBA常用优化语句。6、答案：A解析：判断单元格为空，标准写法是单元格值等于空字符串""。Empty多用于变量判断，Null不适用单元格判断，数值0不等同于空单元格。7、答案：B解析：MsgBox是弹出提示对话框，InputBox是输入数据对话框，二者为VBA最常用的交互函数。8、答案：A解析：Rows(行号).Delete为删除整行的标准代码；Clear是清除内容，并非删除行。9、答案：C解析：Const用于声明常量，常量值运行过程中不可修改；Dim声明局部变量，Public声明公共变量，Static声明静态变量。10、答案：B解析：ExitSub退出当前子过程；ExitFor仅退出For循环，不会终止整个过程；EndIf是结束判断语句。二、填空题答案及解析1、答案：Private解析：Private声明的变量为模块级私有变量，仅当前模块内可用；Dim为过程级变量，Public为公共全局变量。2、答案：UsedRange解析：Worksheet.UsedRange属性可自动获取工作表中所有已使用的单元格区域，是动态获取数据区域的常用属性。3、答案：先判断条件，再根据条件决定是否解析：DoWhile循环为前置判断循环，先判断条件，条件成立才执行循环体，条件不成立直接跳出循环。4、答案：NumberFormat解析：NumberFormat属性用于设置单元格自定义数字格式，可设置小数位数、日期格式、文本格式等。5、答案：DisplayAlerts解析：Application.DisplayAlerts=False可关闭删除工作表、覆盖文件等操作的确认弹窗，避免代码运行中断。三、编程实操题参考答案（完整可运行代码+注释）实操题1参考答案PlainText

SubFillNumber()

'定义循环变量

DimiAsInteger

'循环1到10

Fori=1To10

'第i行A列单元格赋值

Cells(i,1).Value=i

Nexti

EndSub实操题2参考答案PlainText

SubAddSheet()

DimshtAsWorksheet

'新建工作表并赋值给变量

Setsht=Worksheets.Add

'重命名工作表

sht.Name="月度数据"

'移动到所有工作表末尾

sht.MoveAfter:=Worksheets(Worksheets.Count)

EndSub实操题3参考答案PlainText

SubJudgeScore()

DimiAsInteger

'关闭屏幕更新，优化速度

Application.ScreenUpdating=False

'遍历2行到100行

Fori=2To100

'判断单元格非空

IfCells(i,1).Value<>""Then

'数值大于60判定合格

IfCells(i,1).Value>60Then

Cells(i,2).Value="合格"

Else

Cells(i,2).Value="不合格"

EndIf

EndIf