VBA程序开发与应用期末考试答案2023春

提示:内容已经过期谨慎付费，点击上方查看最新答案

VBA程序开发与应用

1. Sub 偏移()
   For I = 2 To 10
   Sheet1.Range("A" & CStr(I)) = I
   Sheet1.Range("A" & CStr(I)).Offset(I, 3) = Sheet1.Range("A" & CStr(I)) + 3
   Next I
   End Sub7、 在Excel工作簿中，执行上面代码后，sheet1工作表A5单元格的值是（ ）。

A:5 B:6 C:7 D:8
AI参考:答案：C解析：代码中的第一行就是设置A5单元格的值是2（因为I=2）。之后的操作就是在原来的基础上加3，所以执行完后A5单元格的值就是5+3=7。因此答案为C。'

2. 下列说法正确的是（ ）。

A:私有变量能用于任意模块中的过程 B:Static语句所声明的是静态变量 C:在模块中使用Dim与 Private 语句作用是相同的。 D:Private语句用来声明私有变量
AI参考:正确答案是B:Static语句所声明的是静态变量。选项A错误，私有变量不能用于任意模块中的过程，只能用于模块内部的过程；选项C错误，Dim语句用于声明变量，Private语句用于声明模块级别的私有变量；选项D错误，Private语句是用来声明私有变量的。Static语句是用来声明静态变量的，其作用是在程序执行过程中，不随过程结束而释放，保留程序结束时的值。因此，选项B正确。'

3. 下面对于“/ 除法”和“\ 整除”两种算术运算符的功能说法不正确的是（ ）。

A:“/ 除法”：10/4=2.5 B:“/ 除法”和“ 整除”功能是一样的。 C:“/ 除法”和“ 整除”功能是不一样的。 D:“ 整除”：196=3
AI参考:答案是B：“/ 除法”和“ 整除”功能是一样的。理由：根据数学常识，整除是指被除数、除数同时乘或除以一个相同的数，商不变；而/是普通除法，故A、C、D项表述正确。本题考察的知识点是根据问题类型而定。具体来说，需要考虑到除法与整除两种算术运算符的区别和性质。整除一般应用于整数的运算，它是一种特殊的除法运算，适用于除数和被除数可以同时被另一个整数整除的情况；而/是普通除法，适用于任何数字之间的运算。所以，选项B的表述是不正确的。综上所述，答案为B。'

4. 对下面子程序进行注释。
   Sub area(R)
   If r= 0 Then
   Exit Sub ‘_____________________
   End If
   S = 3.14*R*R
   MsgBox S
   End Sub
   该子程序的功能是____________。参数R，表示圆形的__________。（ ）。

A:若参数的值为0，则退出子程序；求矩形面积；半径； B:若参数的值为0，则退出子程序；求圆形面积；半径； C:若参数的值不为0，则退出子程序；求圆形面积；长； D:若参数的值不为0，则退出子程序；求矩形面积；长；
AI参考:该子程序的功能是：如果R的值为0，则退出子程序；否则，计算并显示R为半径的圆形面积。注释如下：‘若参数的值为0，则退出子程序；求矩形面积；半径’：这段注释不符合程序逻辑，因为如果R为0，那么无论半径是多少，都不能求出矩形面积。‘求圆形面积；半径’：这段注释也是不符合程序逻辑的，因为该子程序应该计算并显示R为半径的圆形面积。所以，正确选项是：‘若参数的值不为0，则退出子程序；求圆形面积；半径’。因此，答案为B:若参数的值为0，则退出子程序；求圆形面积；半径。'

5. 在VBA环境中建立和运行一个显示消息框的过程，可按以下步骤进行：①在“开发工具”选项卡的“代码”组中，单击______________________按钮，打开VB编辑器窗口。② 在工具栏上单击______________________按钮，打开“工程资源管理器”窗口。③插入模块、添加过程、在过程中下面代码段：
   Public Sub 显示消息框（）
   Msgbox "这是测试用的过程。"
   End Sub
   ④使用“运行”菜单的_________________项(或F5)运行程序。（ ）。

A:“运行子程序/用户窗体”， Visual Basic, “工程资源管理器” B:Visual Basic, “工程资源管理器”, “运行子程序/用户窗体” C:“工程资源管理器”, “运行子程序/用户窗体”， Visual Basic
AI参考:选项C：“工程资源管理器”, “运行子程序/用户窗体”， Visual Basic 是正确答案。步骤如下：1. 在“开发工具”选项卡的“代码”组中，单击“Visual Basic”按钮，打开VB编辑器窗口。2. 在工具栏上单击“工程资源管理器”按钮，打开“工程资源管理器”窗口。3. 插入模块，添加过程，在过程中输入以下代码：Public Sub 显示消息框()Msgbox "这是测试用的过程。"End Sub4. 打开“运行”菜单，选择“运行子程序/用户窗体”选项（或直接按F5键），运行程序。注意：运行过程可能会弹出消息框显示“这是测试用的过程。”。'

6. 在excel中向access打开一个新纪录的方法（ ）

A:AddNew方法 B:Updat方法e C:OpenDatabase方法 D:CopyFromRecordset方法
答案:AddNew方法


7. [Public|Private] Sub 子程序名([＜参数＞]）
   [＜语句组＞]
   [Exit Sub]
   [＜语句组＞]
   End Sub（ ）。


A:Public关键字可以使子程序在所有模块中有效。 B:其余选项都对。 C:如果没有指定，默认情况是Public。 D:Private关键字使子程序只在本模块中有效。
AI参考:正确选项是【D:Private关键字使子程序只在本模块中有效】。在Visual Basic中，Sub子程序有两种访问级别：Public和Private。Public子程序可以在所有模块中调用，而Private子程序只在其所在的模块中有效。题目中给出的代码片段是一个Sub子程序的框架，其中Private关键字表示该子程序只在其所在的模块中有效。因此，选项D是正确的。其他选项都存在错误或不完全准确的地方。'

8. 在Excel的VBA代码中，执行Range("A1")= "CInt(14.5)= "& CInt(14.5)后，A1单元格中内容为（ ）。

A:CInt(14.5)= 15 B:14 C:CInt(14.5)= 14 D:15
答案:CInt(14.5)=14

9. VBA和VB的主要区别：
   VB用于创建标准的应用程序，VBA是使已有的应用程序(Office)__________。
   VB具有自己的开发环境，VBA________已有的应用程序(Office)。
   VB开发出的应用程序可以是可执行文件(*.EXE)，VBA开发的程序必须_________它的“父”应用程序(Office) （ ）

A:寄生于,依赖于,自动化 B:自动化,依赖于,寄生于 C:自动化,寄生于,依赖于 D:寄生于,自动化,依赖于
AI参考:正确选项：C:自动化,寄生于,依赖于VBA和VB的主要区别在于：VB用于创建标准的应用程序，而VBA是使已有的应用程序（如Office）自动化。VB具有自己的开发环境，而VBA依赖于已有的应用程序（如Office）运行。VBA开发的程序可以自动化它的“父”应用程序（如Excel），即不需要人工干预就可以运行。因此，选项C“自动化，寄生于，依赖于”是正确的答案。'


10. 以下是一个Integer型二维数组的定义，二维数组的维度是。
    Dim MyArray(10,10) As Integer（ ）。


A:10行乘以10列 B:10行乘以11列 C:11行乘以11列 D:11行乘以10列
答案:2AI参考:正确选项是【C:11行乘以11列】。解释：根据题目描述，二维数组的维度是“10行乘以10列”，因此数组的大小应该是10*10=100个整数，而题目中给出的定义是“Dim MyArray(10,10) As Integer”，这表示数组的大小是11行乘以11列，因为多了一个额外的维度（即最后一行的前十个元素）。所以正确答案是C。'

11. For Each c In Selection语句的功能（ ）。

A:对文件进行筛选 B:对文件实现选定 C:对选定的每个文件进行操作 D:对选定的文件进行删除
AI参考:对于在VBA（Visual Basic for Applications）中的For Each c In Selection语句，其功能是对选定的每个文件进行操作。选项A和B描述了文件筛选或选定，但在VBA中并没有直接对应的功能。选项D描述了删除文件，这与For Each c In Selection的功能不符。因此，正确答案是C：对选定的每个文件进行操作。'

12. Worksheets(1).Activate用来（ ）。

A:选中工作簿 B:激活工作表 C:选中工作表 D:激活工作簿
AI参考:正确答案是B:激活工作表。Worksheets(1).Activate是用来激活工作表的，即使当前活动窗口显示该工作表的内容。选项A、C、D都不符合题意。因此，答案为B。'

13. 在Excel的VBA代码中，Range("A1:C3").Name = "vba"的作用为（ ）。

A:在单元格C3中写入"vba" B:在单元格A1中写入"vba" C:命名A1:C3区域为"vba" D:在单元格区域A1:C3中写入"vba"
答案:命名A1:C3区域为"vba"

14. 把内容从“剪切板”上粘贴到指定按钮的图符上的命令栏属性方法是（ ）。

A:Copy B:Style C:PasteFace D:Visible
答案:PasteFace

15. 一个对象可以执行的动作与可被对象识别的动作分别称为（ ）。

A:方法、事件 B:事件、方法 C:过程、事件 D:属性、方法
答案:方法.事件


16. Select Case语法如下：
    Select Case ＜检验表达式＞
     [Case ＜比较列表1＞
       [＜语句组1＞]]
       ……
     [Case Else
       [＜语句组n＞]]
    End Select（ ）。


A:其余选项都对 B:＜比较元素＞可以是下列几种形式之一：(1) 表达式(2) 表达式 To 表达式(3) Is ＜比较操作符＞ 表达式 C:＜比较列表＞由一个或多个＜比较元素＞组成，中间用逗号分隔。 D:＜检验表达式＞是任何数值或字符串表达式
答案:错AI参考:正确选项是【C:＜比较列表＞由一个或多个＜比较元素＞组成，中间用逗号分隔。】：在Select Case语句中，＜比较列表＞由一个或多个＜比较元素＞组成，这些元素之间用逗号（或其他分隔符）分隔。每个＜检验表达式＞与＜比较元素＞进行比较，如果匹配，则执行相应的＜语句组＞。所以选项C是正确的，其他选项与Select Case语法不符。'

17. 能够将ASCII码转化为相应的字符的函数是（ ）。

A:VAL() B:CHR() C:STR() D:ASC()
答案:ordAI参考:正确选项是 B:CHR()。CHR() 函数用于将 ASCII 码转换为相应的字符。VAL() 函数用于将数值转换为相应的整数，与 ASCII 码转换无关。STR() 函数用于将一个数值或表达式转换为字符串，同样与 ASCII 码转换无关。ASC() 函数用于将一个字符转换为相应的 ASCII 码，也不符合题目要求。因此，能够将 ASCII 码转换为相应字符的函数是 B:CHR()。'

18. 发布用VBA开发的软件，需要发布含有__________的文件，目标机器要有_________环境，并且要__________。（ ）

A:Office、VBA代码、启用宏 B:VBA代码、Office、启用宏 C:VBA代码、启用宏、Office D:Office、启用宏、VBA代码
AI参考:正确选项：B解析：在发布VBA开发的软件时，需要发布含有VBA代码的文件，目标机器要有Office环境，并且要启用宏。所以选项B是正确答案。选项A和D中的Office和VBA代码的顺序是反的，不符合题意。选项C缺少了VBA代码这一项，也不符合题意。'

19. With combox.Hight=120语句的含义（ ）

A:设置组合框高度 B:设置组合框下拉列表数量 C:指定要执行的过程 D:工具栏可见
答案:设置组合框宽度


20. A = 10: B = 8: C = 6: D = Null，下列的语句正确的是（ ）。



AI参考:下列的语句正确的是 A = 10 和 D = Null。因为在 Visual Basic 或 VBScript 中，Null 是一个特殊的值，用于表示某些变量未被分配或其值无法被确定。因此，D = Null 是正确的。同时，变量 A = 10 的赋值也是正确的，因为在这些编程语言中，数值可以被赋值给变量。'

21. 设置与清除断点的方法有哪些？（ ）。

A:按F11键。 B:在对应代码行的左边界标识条上单击鼠标。 C:按F9键。 D:在“调试”菜单中选择“切换断点”命令。
AI参考:正确选项为：B:在对应代码行的左边界标识条上单击鼠标；C:按F9键。设置断点的方法有：1. 在代码行的左边界标识条上单击鼠标，设置当执行到这一行代码时暂停程序执行。2. 使用快捷键，其中F9用于设置断点，用于暂停程序执行，用于检查程序的运行状态。以上两种方法均可实现断点的设置和清除。所以，B选项和C选项是正确的。而A选项和D选项描述的并非是设置和清除断点的具体方法，而是提及了快捷键F11和菜单操作，所以排除这两个选项。'

22. 在执行代码时，可能会由以下哪几项原因而中断执行？（ ）。

A:发生运行时错误。 B:遇到一个断点或Stop语句时。 C:在指定的位置由人工中断执行。 D:选择“运行”菜单的“中断”命令
AI参考:在执行代码时，可能会由以下几项原因而中断执行：（ABCD）四个选项都是可能的。A: 发生运行时错误，例如语法错误、运行时异常等。B: 遇到一个断点或Stop语句时，可以通过在代码中设置断点来中断执行，或者使用Stop语句来中断执行。C: 在指定的位置由人工中断执行，这是程序员手动中断程序执行的方式。D: 选择“运行”菜单的“中断”命令，这是操作系统提供的一种中断执行的方式，可以通过快捷键或者特定的命令来中断程序执行。以上四个选项都有可能在执行代码时中断程序的执行。'

23. 人工中断后要继续执行，可用以下几种方法。（ ）。

A:使用工具栏中的“重新设置”按钮。 B:按F5键。 C:使用工具栏中的“继续”按钮。 D:在“运行”菜单中选择“继续”命令。
AI参考:正确选项为：A:使用工具栏中的“重新设置”按钮；C:使用工具栏中的“继续”按钮。人工中断后要继续执行，可以使用工具栏中的“重新设置”按钮或“继续”按钮。选项B和D虽然也可以执行继续执行的操作，但是它们不属于题目所要求的方法，因此不正确。按F5键通常用于刷新当前页面或执行其他操作，与继续执行人工中断后的操作无关。'

24. If Cells(hs, 1) = "合计" Then
    MsgBox "已经“排序求和”!", vbExclamation, "提醒"
    Exit Sub
    End If
    上述代码段的功能是：如果最末一行的A列有“合计”字样，提示“已经排序求和！”并退出。（ ）

A:错 B:对
AI参考:上述代码段的功能是：如果最末一行的A列有“合计”字样，弹出提醒信息并结束执行当前事件过程。所以答案为B:对。该代码段的主要功能是根据单元格的内容执行相应的操作，如果满足特定条件（最末一行的A列有“合计”字样），则弹出提醒信息并退出当前事件过程。'

25. For Each ＜元素＞ In ＜集合或数组＞
    [＜语句组＞]
    [Exit For]
    [＜语句组＞]
    Next [＜元素＞]
    其中，＜元素＞是用来遍历集合或数组中所有元素的变量。（ ）。

A:对 B:错
AI参考:对的，答案为A。For Each语句用于遍历集合或数组中的所有元素，并使元素的值作为＜元素＞的值。在语句组中，可以进行对元素的操作或处理。在遍历过程中，可以使用Exit For语句提前退出循环。'

26. Application.StatusBar = False
    Columns(1).Clear
    上述语句的功能是：恢复系统状态栏，清除模拟操作的数据。（ ）。

A:错 B:对
AI参考:上述语句的功能是：清除模拟操作的数据，正确答案是B。语句`Application.StatusBar = False`是将应用程序的状态栏关闭，`Columns(1).Clear`是清除第一个列中的所有数据，这两个语句结合起来可以判断是恢复系统状态栏，清除模拟操作的数据。因此答案是B：对。'

27. 可以在word中将文本发送至PowerPoint中，无需使用VB编辑器。（ ）

A:对 B:错
答案:对

28. 在VBA中，返回Word Application 对象的引用方法只有CreateObject一种。（ ）

A:对 B:错
AI参考:答案：B：错。在VBA中，返回Word Application对象的引用方法不止CreateObject一种，还可以使用GetObject方法。'

29. 用Rows或Columns属性可以引用整行或整列。（ ）。

A:错 B:对
答案:错AI参考:答案是B：对。在Excel中，使用Rows或Columns属性可以引用整行或整列。这些属性提供了访问和操作工作表中的行和列的方法。因此，这个判断题是正确的。'

30. Application.ScreenUpdating = False关闭屏幕更新。
    Application.ScreenUpdating = True恢复屏幕更新，上述语句的说法是（ ）。

A:对 B:错
答案:对

31. Cells.Clear是用来清除工作表中所有单元格的内容。（ ）。

A:对 B:错
AI参考:答案：A。Cells.Clear是用来清除工作表中所有单元格的内容。'

32. Function area(R)
    area = 3.14 * R ^ 2
    End Function
    上述语句的功能是：自定义函数可以求出半径为R的圆的面积（ ）。

A:对 B:错
AI参考:上述语句的功能是：自定义函数可以求出半径为R的圆的面积（B:错）。在Visual Basic中，函数必须有一个返回值，而给出的代码段中并没有返回任何值，因此这不是一个有效的函数定义。如果需要定义一个求圆的面积的函数，应该使用以下代码：```vbFunction Area(R As Double) As Double Area = 3.14 * R ^ 2End Function```这个函数接收一个半径作为参数，并返回对应的圆的面积。'

33. 编写过程时，可以使用MsgBox函数来显示相应的弹出对话框信息。（ ）

A:对 B:错
AI参考:答案：A:对。在编写过程时，可以使用MsgBox函数来显示相应的弹出对话框信息。MsgBox函数用于显示一个消息框，通常用于向用户提供一些信息或获取用户的输入。它可以接受不同的参数来定制消息框的样式和内容。因此，这个判断题的答案是肯定的，即可以使用MsgBox函数来显示相应的弹出对话框信息。'

34. If m ＜ n Then
    t = m: m = n: n = t '让大数在m、小数在n中
    End If
    上述语句的功能是：如果m＜n成立，即将m和n里面的数借助t变量互换（ ）。

A:对 B:错
AI参考:上述语句的功能是：如果m＜n成立，即将m和n里面的数借助t变量互换。因此，答案为A：“对”。'

35. Selection.ShapeRange.Height = 92
    Selection.ShapeRange.Width = 69
    上述代码段的功能是：设置图片的高度为92，设置图片的宽度为69。（ ）

A:错 B:对
答案:

36. tbar.Visible = False 上述代码段的功能是：令tbar自定义工具栏可见。（ ）

A:对 B:错
答案:对

37. Sub SeveralRows( )
    Dim myUn As Range
    Worksheets("Sheet1").Activate
    Set myUn = Union(Rows(1), Rows(3), Rows(5))
    myUn.Font.Bold = True
    End Sub。
    上述语句的功能是：将活动工作簿中第1张工作表上的第1行、第3行和第5行的字体设置为加粗。（ ）。

A:错 B:对
AI参考:上述代码的功能是将活动工作簿中名为Sheet1的工作表的第1行、第3行和第5行的字体设置为加粗。所以答案是B：对。代码中使用了Worksheets("Sheet1").Activate来激活名为Sheet1的工作表，然后使用Union函数将三个行范围联合在一起，最后使用Font.Bold=True来将联合后的行设置为加粗。'

38. zxl = Array("教授", "副教授", "讲师", "助教")
    Application.AddCustomList zxl
    上述代码段的功能是：定义一个自定义序列，添加自定义序列。（ ）

A:对 B:错
AI参考:上述代码段的功能是：定义一个自定义序列，并添加到Excel的自定义列表中。因此，答案为A：对。这段代码使用了Excel的Application.AddCustomList方法，该方法用于向Excel的自定义列表中添加新的序列。在代码中，首先创建了一个包含几个职称名称的数组，然后使用AddCustomList方法将这个数组添加到了Excel的自定义列表中。'

39. Sub UF( )
    Set myR = Worksheets("Sheet1").Range("A1:C10")
    answer = WorksheetFunction.Min(myR)
    MsgBox answer
    End Sub
    上述语句的功能是：在这段程序中，用对象变量myR表示Sheet1工作表上 A1:C10单元格区域。设置另一个变量answer为对区域myR应用 Min 工作表函数的结果。最后将answer的值显示在消息框中。（ ）。

A:错 B:对
AI参考:答案：B：对。解释：根据给定的代码，可以判断该段程序的功能是在Sheet1工作表的A1:C10单元格区域中找到最小值，并使用MsgBox将这个最小值显示出来。代码中使用的对象变量myR表示该区域，变量answer则为应用Min函数的结果。因此，该段程序的功能描述是正确的。'

40. Sub ApplyColor( )
    For Each c In Range("AA")
    If c.Value ＞ 25 Then
    c.Interior.ColorIndex = 27
    End If
    Next c
    End Sub
    上述语句的功能是：如果该区域中的任一单元格的值超过26，就将该单元格的颜色更改为黄色。（ ）。

A:错 B:对
AI参考:上述代码的功能是将“AA”范围中所有值大于25的单元格的颜色设置为黄色。因此，答案为B：对。这段代码使用For Each循环遍历了Range("AA")中的每个单元格，如果单元格的值大于25，那么就会使用ColorIndex属性将其颜色更改为黄色。'

41. 在word中无法实现对access的操作及引用。（ ）

A:对 B:错
答案:对AI参考:答案是B:错。在Word中可以实现对Access的操作及引用，如使用VBA（Visual Basic for Applications）编程语言可以操作Access数据库，引用Access数据库中的数据等。因此，这个说法是错误的。'

42. Sub FindM( )
    If Selection.Areas.Count ＞ 1 Then
    MsgBox "请不要选择多个区域！"
    End If
    End Sub上述语句的功能是：该过程用来计算选定区域中的数目，如果有多个区域，就显示提示信息。（ ）。

A:对 B:错
AI参考:正确答案是B：错。根据给出的代码片段，该过程的功能是检查当前选定区域是否只有一个，如果有多个区域，就会显示一个提示信息。而题目要求的是“计算选定区域中的数目”，与代码片段的功能不符，所以选项B“错”是正确的。'

43. Microsoft不可以使用其他方法来激活的选项卡。（ ）

A:对 B:错
答案:对AI参考:答案：B：错。Microsoft可以使用其他方法来激活的选项卡，如使用快捷键、右键菜单等方式。因此，该判断题是错误的。'

44. CurPath = ThisWorkbook.Path上述代码段的功能是：求出当前工作簿的路径，赋值给CurPath变量。（ ）

A:对 B:错
AI参考:上述代码段的功能是：求出当前工作簿的路径，赋值给CurPath变量。所以，答案是A:对。'

45. Sub ClearRanges( )
    Range("C5:D9,G9:H16,B14:D18").ClearContents
    End Sub
    上述语句的功能是：该过程清除当前工作表上3个区域的内容。（ ）。

A:对 B:错
AI参考:答案是A：对。根据给出的代码，该过程使用了VBA中的Range对象来指定了三个区域（C5:D9、G9:H16、B14:D18），并使用ClearContents方法来清除这些区域的内容。因此，该过程的功能是清除当前工作表上这三个区域的内容。'

46. Range（“A1”）.Copy Range（“B1”） 是用来复制单元格B1，粘贴到单元格A1中。（ ）。

A:对 B:错
AI参考:答案是A：对。根据给出的代码 Range("A1").Copy Range("B1")，这个语句的作用是将单元格B1的内容复制到单元格A1中。因此，这个操作是用来复制单元格B1，粘贴到单元格A1中的，所以答案是A。'

47. 在word中无法进行excel操作及相关引用。（ ）

A:对 B:错
答案:错AI参考:答案是B:错。在Word中可以执行Excel操作，如使用Excel公式、引用等。因此，这个说法是错误的。'

48. Sub test( )
    For Each c In Worksheets("Sheet1").Range("A1:D10")
    If Abs(c.Value) ＜ 10 Then c.Font.ColorIndex = 3
    Next
    End Sub
    上述语句的功能是：该过程在单元格区域A1:D10中循环，将所有绝对值小于10的数字都设置为红色。（ ）。

A:错 B:对
AI参考:答案是B：对。这段代码的功能是在单元格区域A1:D10中循环，将所有绝对值小于10的数字设置为红色。代码中的`If Abs(c.Value) ＜ 10 Then c.Font.ColorIndex = 3`语句就是判断当前单元格的值（c.Value）的绝对值是否小于10，如果是，则将该单元格的字体颜色设置为红色（ColorIndex = 3）。因此，该过程的功能描述是正确的。'