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\n解析:代码中的第一行就是设置A5单元格的值是2(因为I=2)。之后的操作就是在原来的基础上加3,所以执行完后A5单元格的值就是5+3=7。因此答案为C。'
2.下列说法正确的是( )。
A:私有变量能用于任意模块中的过程 B:Static语句所声明的是静态变量 C:在模块中使用Dim与 Private 语句作用是相同的。 D:Private语句用来声明私有变量
答案:AI参考:正确答案是B:Static语句所声明的是静态变量。\n\n选项A错误,私有变量不能用于任意模块中的过程,只能用于模块内部的过程;选项C错误,Dim语句用于声明变量,Private语句用于声明模块级别的私有变量;选项D错误,Private语句是用来声明私有变量的。Static语句是用来声明静态变量的,其作用是在程序执行过程中,不随过程结束而释放,保留程序结束时的值。因此,选项B正确。'
3.下面对于“/ 除法”和“\ 整除”两种算术运算符的功能说法不正确的是( )。
A:“/ 除法”:10/4=2.5 B:“/ 除法”和“ 整除”功能是一样的。 C:“/ 除法”和“ 整除”功能是不一样的。 D:“ 整除”:196=3
答案:AI参考:答案是B:“/ 除法”和“ 整除”功能是一样的。\n\n理由:根据数学常识,整除是指被除数、除数同时乘或除以一个相同的数,商不变;而/是普通除法,故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为半径的圆形面积。注释如下:\n\n‘若参数的值为0,则退出子程序;\n求矩形面积;半径’:这段注释不符合程序逻辑,因为如果R为0,那么无论半径是多少,都不能求出矩形面积。\n\n‘求圆形面积;半径’:这段注释也是不符合程序逻辑的,因为该子程序应该计算并显示R为半径的圆形面积。\n\n所以,正确选项是:\n\n‘若参数的值不为0,则退出子程序;求圆形面积;半径’。\n\n因此,答案为B:若参数的值为0,则退出子程序;求圆形面积;半径。'
5.在VBA环境中建立和运行一个显示消息框的过程,可按以下步骤进行:①在“开发工具”选项卡的“代码”组中,单击______________________按钮,打开VB编辑器窗口。② 在工具栏上单击______________________按钮,打开“工程资源管理器”窗口。③插入模块、添加过程、在过程中下面代码段:
Public Sub 显示消息框()
Msgbox "这是测试用的过程。"
End Sub
④使用“运行”菜单的_________________项(或F5)运行程序。( )。
A:“运行子程序/用户窗体”, Visual Basic, “工程资源管理器” B:Visual Basic, “工程资源管理器”, “运行子程序/用户窗体” C:“工程资源管理器”, “运行子程序/用户窗体”, Visual Basic
答案:AI参考:选项C:“工程资源管理器”, “运行子程序/用户窗体”, Visual Basic 是正确答案。\n\n步骤如下:\n\n1. 在“开发工具”选项卡的“代码”组中,单击“Visual Basic”按钮,打开VB编辑器窗口。\n2. 在工具栏上单击“工程资源管理器”按钮,打开“工程资源管理器”窗口。\n3. 插入模块,添加过程,在过程中输入以下代码:Public Sub 显示消息框()Msgbox "这是测试用的过程。"End Sub\n4. 打开“运行”菜单,选择“运行子程序/用户窗体”选项(或直接按F5键),运行程序。\n\n注意:运行过程可能会弹出消息框显示“这是测试用的过程。”。'
6.

[Public|Private] Sub 子程序名([<参数>])
[<语句组>]
[Exit Sub]
[<语句组>]
End Sub( )。


A:Public关键字可以使子程序在所有模块中有效。 B:其余选项都对。 C:如果没有指定,默认情况是Public。 D:Private关键字使子程序只在本模块中有效。
答案:AI参考:正确选项是【D:Private关键字使子程序只在本模块中有效】。\n\n在Visual Basic中,Sub子程序有两种访问级别:Public和Private。Public子程序可以在所有模块中调用,而Private子程序只在其所在的模块中有效。题目中给出的代码片段是一个Sub子程序的框架,其中Private关键字表示该子程序只在其所在的模块中有效。因此,选项D是正确的。其他选项都存在错误或不完全准确的地方。'
7.VBA和VB的主要区别:
VB用于创建标准的应用程序,VBA是使已有的应用程序(Office)__________。
VB具有自己的开发环境,VBA________已有的应用程序(Office)。
VB开发出的应用程序可以是可执行文件(*.EXE),VBA开发的程序必须_________它的“父”应用程序(Office) ( )
A:寄生于,依赖于,自动化 B:自动化,依赖于,寄生于 C:自动化,寄生于,依赖于 D:寄生于,自动化,依赖于
答案:AI参考:正确选项:C:自动化,寄生于,依赖于\n\nVBA和VB的主要区别在于:VB用于创建标准的应用程序,而VBA是使已有的应用程序(如Office)自动化。VB具有自己的开发环境,而VBA依赖于已有的应用程序(如Office)运行。VBA开发的程序可以自动化它的“父”应用程序(如Excel),即不需要人工干预就可以运行。因此,选项C“自动化,寄生于,依赖于”是正确的答案。'
8.

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


A:10行乘以10列 B:10行乘以11列 C:11行乘以11列 D:11行乘以10列
答案:AI参考:正确选项是【C:11行乘以11列】。\n\n解释:根据题目描述,二维数组的维度是“10行乘以10列”,因此数组的大小应该是10*10=100个整数,而题目中给出的定义是“Dim MyArray(10,10) As Integer”,这表示数组的大小是11行乘以11列,因为多了一个额外的维度(即最后一行的前十个元素)。所以正确答案是C。'
9.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:对选定的每个文件进行操作。'
10.Worksheets(1).Activate用来( )。
A:选中工作簿 B:激活工作表 C:选中工作表 D:激活工作簿
答案:AI参考:正确答案是B:激活工作表。\nWorksheets(1).Activate是用来激活工作表的,即使当前活动窗口显示该工作表的内容。选项A、C、D都不符合题意。因此,答案为B。'
11.

Select Case语法如下:
Select Case <检验表达式>
 [Case <比较列表1>
   [<语句组1>]]
   ……
 [Case Else
   [<语句组n>]]
End Select( )。


A:其余选项都对 B:<比较元素>可以是下列几种形式之一:(1) 表达式(2) 表达式 To 表达式(3) Is <比较操作符> 表达式 C:<比较列表>由一个或多个<比较元素>组成,中间用逗号分隔。 D:<检验表达式>是任何数值或字符串表达式 12.发布用VBA开发的软件,需要发布含有__________的文件,目标机器要有_________环境,并且要__________。( )
A:Office、VBA代码、启用宏 B:VBA代码、Office、启用宏 C:VBA代码、启用宏、Office D:Office、启用宏、VBA代码 13.

A = 10: B = 8: C = 6: D = Null,下列的语句正确的是( )。


14.设置与清除断点的方法有哪些?( )。
A:按F11键。 B:在对应代码行的左边界标识条上单击鼠标。 C:按F9键。 D:在“调试”菜单中选择“切换断点”命令。 15.在执行代码时,可能会由以下哪几项原因而中断执行?( )。
A:发生运行时错误。 B:遇到一个断点或Stop语句时。 C:在指定的位置由人工中断执行。 D:选择“运行”菜单的“中断”命令 16.人工中断后要继续执行,可用以下几种方法。( )。
A:使用工具栏中的“重新设置”按钮。 B:按F5键。 C:使用工具栏中的“继续”按钮。 D:在“运行”菜单中选择“继续”命令。 17.在excel中向access打开一个新纪录的方法( )
A:AddNew方法 B:Updat方法e C:OpenDatabase方法 D:CopyFromRecordset方法 18.一个对象可以执行的动作与可被对象识别的动作分别称为( )。
A:方法、事件 B:事件、方法 C:过程、事件 D:属性、方法 19.能够将ASCII码转化为相应的字符的函数是( )。
A:VAL() B:CHR() C:STR() D:ASC() 20.If Cells(hs, 1) = "合计" Then MsgBox "已经“排序求和”!", vbExclamation, "提醒" Exit Sub End If上述代码段的功能是:如果最末一行的A列有“合计”字样,提示“已经排序求和!”并退出。( )
A:错误 B:正确 21.For Each <元素> In <集合或数组> [<语句组>] [Exit For] [<语句组>]Next [<元素>]其中,<元素>是用来遍历集合或数组中所有元素的变量。( )。
A:正确 B:错误 22.Application.StatusBar = False Columns(1).Clear 上述语句的功能是:恢复系统状态栏,清除模拟操作的数据。( )。
A:错误 B:正确 23.可以在word中将文本发送至PowerPoint中,无需使用VB编辑器。( )
A:正确 B:错误 24.在VBA中,返回Word Application 对象的引用方法只有CreateObject一种。( )
A:正确 B:错误 25.用Rows或Columns属性可以引用整行或整列。( )。
A:错误 B:正确 26.Application.ScreenUpdating = False关闭屏幕更新。Application.ScreenUpdating = True恢复屏幕更新,上述语句的说法是( )。
A:正确 B:错误 27.Cells.Clear是用来清除工作表中所有单元格的内容。( )。
A:正确 B:错误 28.Function area(R) area = 3.14 * R ^ 2End Function上述语句的功能是:自定义函数可以求出半径为R的圆的面积( )。
A:正确 B:错误 29.编写过程时,可以使用MsgBox函数来显示相应的弹出对话框信息。( )
A:正确 B:错误 30.If m < n Then t = m: m = n: n = t '让大数在m、小数在n中 End If上述语句的功能是:如果m<n成立,即将m和n里面的数借助t变量互换( )。
A:正确 B:错误 31.Selection.ShapeRange.Height = 92 Selection.ShapeRange.Width = 69 上述代码段的功能是:设置图片的高度为92,设置图片的宽度为69。( )
A:错误 B:正确 32.tbar.Visible = False 上述代码段的功能是:令tbar自定义工具栏可见。( )
A:正确 B:错误 33.Sub SeveralRows( ) Dim myUn As Range Worksheets("Sheet1").Activate Set myUn = Union(Rows(1), Rows(3), Rows(5)) myUn.Font.Bold = TrueEnd Sub。上述语句的功能是:将活动工作簿中第1张工作表上的第1行、第3行和第5行的字体设置为加粗。( )。
A:错 B:对 34.zxl = Array("教授", "副教授", "讲师", "助教") Application.AddCustomList zxl上述代码段的功能是:定义一个自定义序列,添加自定义序列。( )
A:正确 B:错误 35.Sub UF( ) Set myR = Worksheets("Sheet1").Range("A1:C10") answer = WorksheetFunction.Min(myR) MsgBox answerEnd Sub上述语句的功能是:在这段程序中,用对象变量myR表示Sheet1工作表上 A1:C10单元格区域。设置另一个变量answer为对区域myR应用 Min 工作表函数的结果。最后将answer的值显示在消息框中。( )。
A:错误 B:正确 36.Sub ApplyColor( ) For Each c In Range("AA") If c.Value > 25 Then c.Interior.ColorIndex = 27 End If Next cEnd Sub上述语句的功能是:如果该区域中的任一单元格的值超过26,就将该单元格的颜色更改为黄色。( )。
A:错误 B:正确 37.在word中无法实现对access的操作及引用。( )
A:正确 B:错误 38.Sub FindM( ) If Selection.Areas.Count > 1 Then MsgBox "请不要选择多个区域!" End IfEnd Sub上述语句的功能是:该过程用来计算选定区域中的数目,如果有多个区域,就显示提示信息。( )。
A:正确 B:错误 39.Microsoft不可以使用其他方法来激活的选项卡。( )
A:正确 B:错误 40.CurPath = ThisWorkbook.Path上述代码段的功能是:求出当前工作簿的路径,赋值给CurPath变量。( )
A:正确 B:错误 41.Sub ClearRanges( ) Range("C5:D9,G9:H16,B14:D18").ClearContentsEnd Sub上述语句的功能是:该过程清除当前工作表上3个区域的内容。( )。
A:正确 B:错误 42.Range(“A1”).Copy Range(“B1”) 是用来复制单元格B1,粘贴到单元格A1中。( )。
A:正确 B:错误 43.在word中无法进行excel操作及相关引用。( )
A:正确 B:错误 44.Sub test( ) For Each c In Worksheets("Sheet1").Range("A1:D10") If Abs(c.Value) < 10 Then c.Font.ColorIndex = 3 NextEnd Sub上述语句的功能是:该过程在单元格区域A1:D10中循环,将所有绝对值小于10的数字都设置为红色。( )。
A:错误 B:正确

温馨提示支付 ¥3.00 元后可查看付费内容,请先翻页预览!
点赞(7) dxwkbang
返回
顶部