在多个工作表中将查找结果返回到同一个表或者窗体，这是VBA的强项。利用VBA可以瞬间完成各种需求的跨表查询，以及对查询的目标进行计算或者格式设置。疑难36 如何引用数据表创建多级下拉菜单数据有效性可以实现下拉菜单，但只能一级。那么可以实现二级菜单吗?例如利用图2-30所示的数据产生图2-31所示的二级菜单，当单击单元格时，产生二级菜单；选择第二级菜单时可以在单元格分别产生部门和姓名，即同时输入一级和二级菜单的字符。█ 图2-30 数据表█ 图2-31 二级菜单 解决方案数据有效性功能无法修改，但可以通过自定义二级菜单的方式来处理。ShowPopup方法可以将二级菜单显示在活动单元格处，从而打造出类似于数据有效性下拉列表的二级菜单。最后利用ActionControl属性获取用户所单击的菜单字符，并导入到单元格中。简单而言，就是利用工作簿事件 SheetSelectionChange，在选择指定的单元格时利用CommandBars.Add创建一级和二级菜单，而当用户选择菜单时，将菜单的文字标题导入到单元格中。 操作方法步骤1 按【Alt+F11】组合键打开VBE窗口。步骤2 选择菜单“插入”→“模块”，并输入以下代码：
Sub 选项() '用于指定哪个区域可以产生二级菜单
Dim i As String, adds As String, sht As Worksheet
'确认是否存在“数据”工作表
On Error Resume Next
Set sht = Sheets("数据")
If err.Number <> 0 Then MsgBox "请建立一个名为“数据”的工作表，用于存放菜单
所需要的数据", , "确认数据表": GoTo err
err.Clear
On Error GoTo err
'如果选择的是单元格，那么将选区地址赋予变量adds，否则将“B:B”赋予变量
If TypeName(Selection) = "Range" Then adds = Selection.Address(0, 0) Else
adds = "B:B"
i = Application.InputBox("你想控制哪一个区域" & vbCrLf & "如果想关闭本功能，
单击取消按钮即可。", "请选择区域", adds, , , , , 8).Address(0, 0)
SaveSetting "MyApp", "only", "only", i '将用户选择的单元格地址存入注册表
Exit Sub '退出程序
err:
SaveSetting "MyApp", "only", "only", "" '在注册表中写入一个空字符
End Sub
以上过程用于让用户指定在哪个区域产生二级菜单，可以利用【Ctrl】键多选。而用户选择的区域地址将会存储在注册表中。步骤3 如果VBE编辑器左边没有对象浏览器，那么选择菜单“视图”→“对象浏览器”调出对象浏览器窗口。然后双击“ThisWorkbook”进入代码窗口，并输入以下工作簿级别事件过程代码：
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If GetSetting("MyApp", "only", "only", "") = "" Then Exit Sub
'如果注册表中没有值则退出
If Target.Count > 1 Then Exit Sub '如果选择区域则退出
On Error Resume Next
Dim sht As Worksheet
Set sht = Sheets("数据") '将数据表赋予变量sht
If err <> 0 Then err.Clear: Exit Sub
'如果有错误（即没有“数据”工作表）那么退出
If sht.Range("a1") = "" Then MsgBox "请在数据表中输入数据，必须从A1开始，数
据区不要留空", vbOKOnly, "提示": Exit Sub
Dim a As Range
'判断注册表中记录的单元格与活动单元格是否重叠
Set a = Intersect(Range(GetSetting("MyApp", "only", "only", "")),
ActiveCell)
If a Is Nothing Then Exit Sub '如果不在指定区域则退出
Dim i, j, addss As String
With Application.CommandBars.Add("临时菜单", msoBarPopup, , 1)
'创建一个快捷菜单
With .Controls.Add(Type:=msoControlButton) '添加一个子菜单
.Caption = "请选择" '指定显示标题
.FaceId = 136
'指定图标
End With
For i = 1 To sht.Cells(1, Columns.Count).End(xlToLeft).Column
'创建一级菜单
If WorksheetFunction.CountA(sht.Rows(2)) = 0 Then
'如果第二行为空则只创建一级菜单
With .Controls.Add(Type:=msoControlButton) '开始创建一级菜单
.Caption = sht.Cells(1, i).Text '菜单显示的标题
.Style = msoButtonIconAndCaption '同时显示文本和图标
.FaceId = 70 + i
'指定图文件
.OnAction = "输入" '指定菜单对应的宏名
End With
Else
'第二行非空则创建二级菜单
With .Controls.Add(msoControlPopup, 1, , , 1) '开如创建二级菜单
.BeginGroup = True '全部产生一条横线分隔开
.Caption = sht.Cells(1, i).Text '指定二级菜单标题
For j = 2 To sht.Cells(Rows.Count, i).End(xlUp).Row
If sht.Cells(j, i) = "" Then GoTo AA '如果为空则不创建子菜单
Set oCtrl = .Controls.Add(Type:=msoControlButton) '创建子菜单
With oCtrl '对子菜单指定标题、宏名和图标
.Caption = sht.Cells(j, i)
.OnAction = "输入"
.FaceId = 69 + j
End With
AA:
Next
End With
End If
Next
.ShowPopup '显示工具栏
End With
Application.CommandBars("临时菜单").Delete '删除工具栏
End Sub
以上事件为工作簿级别的SelectionChange事件，表示用户选择单元格时执行对应的过程。本过程首先判断当前选区是否与注册表中存储的单元格重叠，如果重叠则创建二级菜单，调用“数据”工作表中指定区域的文本作为菜单的显示标题。步骤4 返回模块中，继续输入过程“输入”的代码：
Sub 输入() '当单击二级菜单时，将菜单的标题字符写入单元格
AA = CommandBars.ActionControl.Caption '记录当前菜单的标题
'在数据表中查找变量aa，并返回找到的目标所在列的第一个单元格（即一级菜单），并写入
'活动单元格
ActiveCell = Sheets("数据").Cells.Find(What:=AA, LookAt:=xlWhole).
EntireColumn.Cells(1)
'如果“数据”工作表第二行有数据，那么将当前菜单的文字写入右边一个单元格（即二级菜单）
If WorksheetFunction.CountA(Sheets("数据").Rows(2)) <> 0 Then
ActiveCell.Offset(0, 1) = AA
End If
End Sub
以上过程是单击菜单时执行的宏过程，用于将一级和二级菜单的显示标题导出到活动单元格及活动单元格右边一个单元格。如果只有一级菜单，则只导入一级菜单的文字。步骤5 返回工作表界面，在“数据”工作表中按图2-30所示方式输入数据。其中第一行用于创建一级菜单，其他数据用于创建二级菜单；在区域中间不能有空白单元格。步骤6 切换到“职工表”，选择“开发工具”选项卡，单击【宏】按钮，在弹出的对话框中选择过程名“选项”并单击【执行】按钮，程序会弹出对话框等待用户指定需要产生二级菜单的区域，如图2-32所示。选择一个或者多个区域，程序会将地址保存在注册表中。█ 图2-32 选择产生二级菜单的区域步骤7 单击B2:B10区域中任意单元格，将弹出图2-31所示的二级菜单。如果选择菜单“业务部”→“胡大链”，那么B列和C列同时产生“业务部”和“胡大链”，如图2-33所示。█ 图2-33 使用二级菜单对两个单元格赋值步骤8 切换到“数据”工作表，将第一行以外的数据删除。返回“职工表”，选择 B4单元格，此时将弹出一级菜单，如图2-34所示。█ 图2-34 一级菜单步骤9 切换到“数据”工作表，恢复删除前的所有数据，并且在 E 列追加部门“策划部”和姓名“胡军”、“张英姿”。进入“职工表”，选择B2单元格，在弹出的菜单中也自动追加对应的二级菜单，如图2-35所示。█ 图2-35 自动添加二级菜单 原理分析※“ActionControl”对象的功能与限制 ※“ActionControl”对象代表当前所单击的菜单，可以通过“Caption”属性获取其标题文字，并导入单元格中。不过对于上一层菜单则无法获取，所以利用“OnAction”所指定的SUB过程到指定的区域中查找与“ActionControl”对象的Caption字符串相同的单元格，它所在列的首行标题即为上层菜单所显示的文本。本例中使用工作簿级事件而不用工作表事件，是为了让程序更具通用性，使其在任意工作表的指定区域中都可以调用二级菜单。“Workbook_SheetSelectionChange”是工作簿级的 SelectionChange 事件，它表示工作簿中选择任意工作表的单元格时执行的过程。如果需要指定某工作表例如“总表”忽略二级菜单，那么可以在事件的代码前加入一句代码： 知识扩展
If Sh.Name = "总表" Then Exit Sub
ShowPopup可以将指定的命令栏作为快捷菜单，在指定坐标或当前光标位置显示。如果指定坐标则在该坐标处显示，否则在鼠标箭头处显示。它可以调用自定义工具栏，例如本案例中的应用，也可以调用所有内置的快捷菜单。例如以下代码显示工作表标签菜单：
CommandBars("PLY").ShowPopup
疑难37 如何将所有表中查找的完成数汇总到总表图2-36所示包括多个组别的目标产量与实际产量，如何实现将所有组别中完成目标者汇总到总表中?█ 图2-36 某生产线产量统计表 解决方案利用循环对“总表”以外的每个工作表进行数据查找。查找前，在D列创建一个辅助区，利用公式“=IF(B2-C2=0,0/0,"")”将所有完成目标者标识一个错误值，再利用SpecialCells方法定位所有错误值所在行，并复制到“总表”中，最后清除所有辅助区。 操作方法步骤1 按【Alt+F11】组合键打开VBE窗口。步骤2 选择菜单“插入”→“模块”，并输入以下代码：
Sub 多表查找并汇总()
Dim sht As Worksheet, arr(), i As Integer
On Error Resume Next '验证是否存在“总表”
Set sht = Sheets("总表")
If Err <> 0 Then
'如果不存在“总表”则在最末处添加一个总表
Sheets.Add , after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "总表"
Else
'否则清除总表的所有数据
sht.Cells.Clear
End If
Sheets(1).Rows(1).Copy sht.[a1]
'将标题行复制到总表
For Each sht In Sheets
'遍历所有工作表
If sht.Name <> "总表" Then
'仅对总表以外的表进行操作
With sht.Range(sht.[D2], sht.Cells(Rows.Count, 3).End(xlUp).Offset
(0, 1))
'建立辅助区
.FormulaR1C1 = "=IF(RC[-2]-RC[-1]=0,0/0,"""")"
'在辅助区设置公式，当完成值等于目标值时公式返回错误
'定位D列所有错误单元格（即已完成的），并将整行复制到总表中第一个空行
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Copy Sheets("总表
").Cells(Sheets("总表").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
.Clear
'清除辅助区
End With
End If
Next
Sheets("总表").Columns(4).Clear
'清除公式所在列
End Sub
步骤3 光标置于代码中任意位置，并按【F5】键执行，程序将对每个表中已完成者信息合并到“总表”中，如图2-37所示。█ 图2-37 合并所有组别完成数 原理分析找到完成数且合并到总表，常规思路是利用For...Next循环对C列和B列的值进行比较，如果相等则整行复制到“总表”。然而循环次数太多，效率则相应偏低。本例创建辅助列，利用公式“=IF(B2-C2=0,0/0,"")”将已完成和未完成的单元格区别开来。其中已完成者公式结果为“#DIV/0!”，而SpecialCells方法刚好可以定位这部分单元格，最后再整行复制到总表中。 知识扩展※ 利用SpecialCells定位实现快速查找 ※对某列取值或者查找信息有很多思路，而利用SpecialCells定位特殊对象是最简单的。如果数据中有某个特点是 SpecialCells 可以利用的，则直接定位，否则创建辅助区制造出SpecialCells可以利用的条件，再进行定位。创建辅助区的公式，最简单的思路是在工作表中输入公式，通过录制宏获取代码。疑难38 在窗体中罗列每月产量冠军名单图2-38所示包含了多个月的生产数据。如何实现查找每月的产量冠军并同时显示在窗体列表中呢？█ 图2-38 产量表 解决方案创建一个窗体，在窗体中添加一个列表框。利用公式“=MATCH(MAX(D2:D21), D2:D21,)”获取每个工作表中生产冠军的所有信息，然后配合 For...Next 循环找出每个月的生产冠军，并导入到数组中。最后将数组一次性赋值给窗体中列表框的List属性。 操作方法步骤1 按【Alt+F11】组合键打开VBE窗口。步骤2 选择菜单“插入”→“用户窗体”，并在属性窗口中将窗体的“Caption”属性修改为“每月产量冠军”；将工具箱中的列表框拖到窗体中，且调整窗体和列表框的大小，使其与图2-39一致。█ 图2-39 窗体中创建列表框步骤3 双击窗体进入窗体代码窗口，将自动产生的代码清除，然后重新输入以下代码：
Private Sub UserForm_Activate()
'激活窗体时执行
Dim sht As Worksheet, arr(), i As Integer, MaxRow As Integer, EndRow As Integer
Me.ListBox1.ListStyle = fmListStyleOption
'指定列表框的显示外观
Me.ListBox1.ColumnCount = 5
'列表框显示5列
Me.ListBox1.ColumnWidths = "40,40,40,40,40"
'每列的宽度为40
i = 1
ReDim Preserve arr(1 To 5, 1 To i)
'重新分配数组的存储空间
arr(1, i) = "月份"
'指定列表框的标题
arr(2, i) = "姓名"
arr(3, i) = "机台"
arr(4, i) = "组别"
arr(5, i) = "产量"
For Each sht In Sheets
'遍历所有工作表
i = i + 1
'累加变量
EndRow = sht.Cells(Rows.Count, 1).End(xlUp).Row
'找到工作表的最后非空行行号
'利用公式计算每个工作表中D列最大值所在的行号
MaxRow = Evaluate("=MATCH(MAX(" & sht.Name & "!D2:D" & EndRow & "),"
& sht.Name & "!D2:D" & EndRow & ",)") + 1
ReDim Preserve arr(1 To 5, 1 To i)
arr(1, i) = sht.Name
'数组1行i列写入工作表名
arr(2, i) = sht.Cells(MaxRow, 1) '2行i列写入姓名
arr(3, i) = sht.Cells(MaxRow, 2) '3行i列写入机台
arr(4, i) = sht.Cells(MaxRow, 3) '4行i列写入组别
arr(5, i) = sht.Cells(MaxRow, 4) '5行i列写入产量
Next
Me.ListBox1.List = WorksheetFunction.Transpose(arr)
'将数组倒置后写入列表框
End Sub
步骤4 选择菜单“插入”→“模块”，并在模块中输入以下代码：
Sub 多表查找()
UserForm1.Show 0
End Sub
步骤5 执行过程“多表查找”，将会弹出图2-40所示的窗体，罗列出每月的产量冠军。█ 图2-40 在窗体中罗列所有产量冠军 原理分析本案例中有两个亮点：VBA中套用公式计算最大值所在行和利用数组对列表框赋值。※ 不采用循环，一次性找出最大值所在行 ※查找一列中最大值，通常采用循环来进行。本案例中利用 Evaluate 方法计算公式“=MATCH(MAX(D2:D21),D2:D21,)”，从而一次性找出最大值所在行，避免循环。不过公式需要记录不同工作表的最大值，所以在引用区域前需要添加表名。当找到最大值及最大值对应的姓名、机台和组别时，将它导入到数组中，最后将数组赋予列表框的List属性，在窗体中展示查找结果，且包括查找值的相关资料。 知识扩展公式“=MATCH(MAX(D2:D21),D2:D21,)”用于查找 D2:D21区域中最大值所在行。为了体现通用性，其中21利用VBA计算得出。不过如果一列中有多人产量相同时，仅取第一人。如果需要将同产量者全取出，那么需要更换思路，改用Find进行循环查找。如果要将产量冠军导出到工作表而不是窗体，那么可以将数组一次性写入单元格即可：
[H1].Resize(i, 5) = WorksheetFunction.Transpose(arr)
疑难39 如何将具有外部数据引用的单元格转换成值如果工作表中引用了其他工作簿的数据，如图2-41所示，当本工作簿寄出给客户或者下属部门后，会因为找不到引用源而失去链接。那么如何删除所有外部链接呢? 解决方案具有外部链接的公式均有一个特点：公式中包括“[]”和“’！”。那么使用 Find 方法查找包含该字符的公式，转换成数值即可。█ 图2-41 生产表中引用其他表的单价 操作方法步骤1 按【Alt+F11】组合键打开VBE窗口。步骤2 选择菜单“插入”→“模块”，并输入以下代码：
Sub 查找外部链接并转为值()
Dim Cell As Range, FirstAddress As String, sht As Worksheet
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
For Each sht In Worksheets ' 在所有工作表中循环（注意不是sheets）
With sht.UsedRange '在已用区域中查找
'查找包括“]”和“'!”的公式，它表示该单元格有外部引用。
Set Cell = .Find("=*]*'!", LookIn:=xlFormulas, LookAt:=xlPart)
If Cell Is Nothing Then GoTo line
'如果未找到，则执行line标签后的语句
FirstAddress = Cell.Address '记录第一个查找到的单元格地址
Do
'循环查找其他单元格
Cell = Cell.Value
'将公式转换成值
Set Cell = .FindNext(Cell)
'查找下一个
Loop Until Cell.Address = FirstAddress
End With
line:
Set Cell = Nothing '将变量Cell重置为nothing
Next sht
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
步骤3 光标置于代码中任意位置，并按【F5】键执行，所有工作表中引用其他工作簿的公式都瞬间被转换成数值。 原理分析※ 通过“[]”和“’！”定位具有外部链接的公式 ※公式引用其他工作簿的数据时，被引用的工作簿被删除或者修改名称、移动名称等都会造成公式结果错误。将文件下发或者邮件发送前有必要将具有外部引用的公式转换成数值。根据外部链接公式的特点：包括“[]”和“’！”。所以利用 Range.Find 方法查找具有该特征的单元格即可，通过等号赋值将找到的单元格转换成值。 知识扩展Find方法查找不到对象时，返回Nothing。而本例中如果本工作表不存在外部引用，那么变量Cell即为Nothing，此时它不存在Address属性，所以在代码中必须使用防错语句。疑难40 如何让链接到其他表中隐藏单元格的超链接生效超级链接可以单击进入其他工作表指定的单元格。然而链接的工作表被隐藏时，链接将失效，如图2-42所示。如何实现链接到隐藏表时也能生效呢？█ 图2-42 链接到隐藏工作表的超链接 解决方案首先利用Range(Target.SubAddress)方法判断链接对象是否为单元格，如果是其他工作表的单元格，那么先取消所引用的工作表的隐藏属性，然后选择被链接所引用的单元格。此过程必须通过工作簿事件SheetFollowHyperlink自动执行。 操作方法步骤1 按【Alt+F11】组合键打开VBE窗口。步骤2 如果未显示工程资源管理器，那么选择菜单“视图”→“工程资源管理器”。双击管理器中的“ThisWorkbook”进入工作簿事件代码窗口，并输入以下代码：
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
On Error Resume Next '防错，避免超级链接的对象为非单元格
Dim sht As Worksheet '声明一个工作表对象变量
Set sht = Range(Target.SubAddress).Parent '提取链接单元格所在工作表
If Err = 0 Then '如果未出现错误（表示链接对象是单元格）
If Not sht. xlSheetVisible = xlSheetVisible Then
'如果工作表sht处于隐藏状态
Range(Target.SubAddress).Parent.Visible = True '取消隐藏状态
Range(Target.SubAddress).Parent.Select '选择链接对象所在的工作表
Range(Target.SubAddress).Select '选择链接对象
End If
End If
End Sub
步骤3 返回工作表“生产表”，单击单元格C2，C2的超链接对象“单价表”将自动显示，且链接到B1也立即生效。 原理分析工作簿事件 SheetFollowHyperlink 在单击具有超链接的单元格时发生。本例利用该事件执行过程，可以实现单击超链接时判断该链接的引用工作表的单元格地址，将该表取消隐藏后选择对应的单元格即可。事件过程的参数Target代表当前链接，其SubAddress属性包括了引用的表及单元格。 知识扩展Parent表示上层对象。单元格对象的上层是工作表，工作表对象的上层是工作簿。※ 通过xlSheetVisible属性切换工作表显示状态 ※工作表的xlSheetVisible属性表示显示状态，赋值为xlSheetVisible时表示显示工作表。前置Not后则表示工作表处于隐藏状态。疑难41 如何实现多部门电话资料模糊查询公司多个部门的电话存储在多个工作表中，如图2-43所示。如何实现“查询表”的A1单元格输入任意字符时，在多部门间查找姓名中包含该字符的电话信息？█ 图2-43 电话簿 解决方案利用工作表Change事件调用Range.Find方法实现多表模糊查找。将找到的目标导入到数组，查询完毕后再一次性导出到工作表中。 操作方法步骤1 按【Alt+F11】组合键打开VBE窗口。步骤2 如果未显示工程资源管理器，那么选择菜单“视图”→“工程资源管理器”使其显示。然后双击管理器中的“查询表”进入工作表事件代码窗口，并输入以下代码：：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$A$1" Then Exit Sub '如果活动单元格不是A1则退出程序
Range(Rows("2:2"), Selection.End(xlDown)).ClearContents
'将第一行以外的内容清除
Dim sht As Worksheet, arr(), i As Integer
For Each sht In Sheets
'遍历所有工作表
If sht.Name <> "查询表" Then
'排除“查询表”
Set Rng = sht.UsedRange.Find(What:=Target.Text, LookIn:= xlValues,
LookAt:=xlPart)
'开始查找
If Rng Is Nothing Then GoTo line '如果未找到则跳转至标签line
Set mRng = Rng
'将找到的对象赋予另一个变量
FindStr = Rng.Address
'取第一个找到的单元格的地址
Do
i = i + 1
'累加变量
ReDim Preserve arr(1 To 4, 1 To i)
'重置数组变量存储空间
arr(1, i) = sht.Name
'数组1行i列写入工作表名
arr(2, i) = Rng.Text
'数组2行i列写入姓名
arr(3, i) = Rng.Offset(0, 1)
'性别
arr(4, i) = Rng.Offset(0, 2)
'电话
Set Rng = sht.UsedRange.FindNext(Rng)
'查找下一个
Loop While FindStr <> Rng.Address
'直到找到的单元格的地址等于第一个单元格地址时停止
End If
line:
Next
[a2].Resize(i, 4) = WorksheetFunction.Transpose(arr)
'将数组倒置后写入列表框
End Sub
步骤3 关闭VBE窗口，进入“查询表”中，在A1单元格中输入“张”并按下回车键，程序会在所有部门查找姓名中包括“张”的职员的信息，罗列在A1单元格之后的区域，按数组的大小自动扩展区域。显示的值包括部门和姓名、性别、电话，如图2-44所示。█ 图2-44 多部门电话查询结果 原理分析工作表事件 Change 用于代码所在工作表中任意单元格的值产生变化时执行指定的过程。该事件常会引起递归现象，所以使用 Change 事件时，通常配合“Application.EnableEvents =False”或者判断Target是否指定单元格的方式来进行防范。多表查询电话，本例按姓名查询，只要一个字符符合条件即可。那么Range.Find方法的参数LookAt必须使用xlPart，表示模糊查找。而如果不是包含关系，而是强调“姓”，即左边一位或者两位等于Target的值，那么Find的参数可以如下设置：
Find(What:=Target.Text & "*", LookIn:=xlValues, LookAt:=xlWhole)
知识扩展※ Target与Activecell的区别 ※工作表事件的过程有一个代表Range对象的参数Target，该参数代表活动工作表中选定的区域。它和Activecell有所区别，Target可能是一个单元格，也可能是区域，而Activecell则只能是一个单元格。多表查找一定要考虑某表不存在目标值的情况，通常利用“If Rng Is Nothing…”语句来防错，确保程序不会中途弹出错误信息框。疑难42 如何实现所有未收货款者在状态栏随机显示工作簿中有数十个客户的货款回收信息，其中部分客户未收款，如图2-45所示。如何才能打开工作簿时自动在状态栏随机显示未收款的客户，并且每2秒钟更新一次？█ 图2-45 收款记录表 解决方案利用“Auto_open”作为过程名，使其具有自启动的功能。在过程中利用 Range.Find 方法查找未付款的客户，并将其导入数组变量中，同时记录未收款的客户数量。然后利用另一个过程每隔2秒钟将数组中的客户名称展现在状态栏中。 操作方法步骤1 按【Alt+F11】组合键打开VBE窗口。步骤2 选择菜单“插入”→“模块”，并输入以下代码：
Dim arr(), i '声明公共变量，供两个SUB过程调用
Sub auto_open()
Dim sht As Worksheet, rng As Range, FindRng As Range, FindStr As String
For Each sht In Sheets
'遍历所有工作表
'获取C列收款时间所有区域（由于单元格可能为空，以A列最后一行为标准）
Set rng = sht.Range(sht.[c2], sht.Cells(Rows.Count, 1).End(xlUp).
Offset(0, 2))
Set FindRng = rng.Find(What:="", LookAt:=xlWhole)
'查找空白单元格
If FindRng Is Nothing Then GoTo line
'如果未找到则跳转至标签line
FindStr = FindRng.Address
'取第一个找到的单元格的地址
Do
i = i + 1
'累加变量
ReDim Preserve arr(1 To i)
'重置数组变量存储空间
arr(i) = FindRng.Offset(0, -2).Text
'将找到空单元格左边偏移两位（即客户名）写入数组
Set FindRng = sht.UsedRange.FindNext(FindRng)
'查找下一个
Loop While FindStr <> FindRng.Address
'直到找到的单元格地址等于第一个单元格地址时停止
line:
Next
If i > 0 Then Call 随机显示
'执行“随机显示”过程
End Sub
Sub 随机显示()
Application.OnTime Now + TimeValue("00:00:02"), "随机显示"
'每两秒钟执行
'在状态栏随机显示数组Arr的值。随机性来自于Rnd函数与客户数量的乘积
Application.StatusBar = "未收款客户：" &
arr(WorksheetFunction.RoundUp(Rnd * i, 0))
End Sub
步骤3 关闭工作簿并重新打开，在状态栏可以显示未收款客户名称，每2秒钟更新一次，如图2-46所示。█ 图2-46 在状态栏随机显示未收款客户 原理分析“Auto_open”即为自启动之意，用它作为 SUB 过程名称，则该过程可以在工作簿打开时自动执行，类似于“Workbook_Open”事件。每2秒钟更新，只能使用OnTime方法在当前时间的2秒钟之后调用过程自身，即递归来实现。而随机调用数组中某个元素，则必须调整数组的参数值在1到其最大上标之间。VBA的 Rnd 函数只能产生0到1之间的小数，所以将其乘以数组的最大上标后，利用工作表函数RoundUp向上进位即可满足需求。 知识扩展※ 利用OnTime定时执行程序 ※OnTime的功能为安排一个过程在将来的特定时间运行，既可以是具体某个时间，也可以是某个时段之后的一段时间。其语法如下：Application.OnTime(EarliestTime, Procedure, LatestTime, Schedule)OnTime的参数说明如表2-2所示。█ 表2-2 OnTime参数列表}

2023年湖南省长沙市统招专升本计算机自考真题(含答案)学校:________班级:________姓名:________考号:________一、单选题(50题)1.在Excel2010中，列表的最大标识是（）A.ZZB.XFDC.ZD.FF2.AdobePremiere应属于（）A.音频处理软件B.图像处理软件C.动画制作软件D.视频编辑软件3.在Access2003中，以下选项中不属于报表组成部分的是（）A.报表页眉B.页面页眉C.报表主体D.报表主题4.一幅分辨率为1280×1024的8∶8∶8的RGB彩色图像，其存储容量约为（）A.2.34MBB.3.75MBC.30MBD.1.2MB5.有一个32KB的内存储器，用十六进制数对它的地址进行编码，则编号可从0000H到（）A.32767HB.7FFFHC.B000HD.BEEEH6.在Word2010中的插入|插图组中不可插入（）A.公式B.剪贴画C.图片D.图表7.Word2010文档默认的文件扩展名是（）A.txtB.xlsxC.docxD.accdb8.下列属于TCP／IP传输层协议的是（）A.FTPB.HTTPC.SMTPD.UDP9.在Word中，如果要以RTF格式文件存盘，则必须在另存为对话框中，应选（）A.在文件类型列表中，选择Word文档，然后存盘B.在文件类型列表中，选择RichTextFormat,然后存盘C.在文件类型列表中，选择纯文本，然后存盘D.仅将扩展名写成RTF，然后存盘10.以下除（）外，其他都是图像文件格式A.movB.gifC.bmpD.jpeg11.在Windows中，打开一个菜单后，其中某菜单项会出现下属级联菜单的标志是（）A.菜单项右侧有一组英文提示B.菜单项右侧有一个黑色三角形C.菜单项左侧有一个黑色圆点D.菜单项左侧有一个J符号12.下列有关网络安全的叙述中，正确的是（）A.网络中的不安全因素主要来自网络外部，网络内部是安全区B.对Internet的威胁分为故意危害和无意危害，其中无意危害构不成坏影响C.有害信息侵入是网络的一种不安全因素，而信息泄露不属于安全性范畴D.防火墙用来过滤外部的访问，也过滤内部对因特网的访问13.在Excel2010中，工作簿指的是（）A.当前的操作区域B.一种记录方式C.整个Excel2010文档D.当前的整个工作表14.在PowerPoint2010文件选项卡中的新建命令的功能是建立（）A.一个演示文稿B.插入一张新幻灯片C.一个新超链接D.一个新备注15.第三代电子计算机使用的电子元件是（）A.晶体管B.电子管C.中小规模集成电路D.大规模、超大规模集成电路16.在计算机中,外设与CPU（）A.直接相连B.经过接口相连C.无连接标准D.在生产时集成在一起17.Internet中URL的含义是（）A.简单邮件传输协议B.Internet协议C.统一资源定位器D.传输控制协议18.将程序像数据一样存放在计算机中运行，是1946年由（）提出的A.图灵B.布尔C.爱因斯坦D.冯·诺依曼19.下列的IP地址中属于C类地址的是（）A.B.23C.D.224.34.4520.下列（）不属于网络传输介质A.光缆B.调制解调器C.微波D.双绞线21.下列选项中,表示文件分配表的是_____（）A.BOOTB.FATC.FDTD.FCB22.关于控制面板的说法，不正确的是________（）A.利用它不能调整日期和时间B.它为用户提供了一种形象化的修改系统设置的方式C.它是一个应用程序D.利用它可以对键盘、鼠标及打印机进行设置23.输入设备是将原始信息转化为计算机能接受的（），以便计算机能够处理的设备A.二进制数B.八进制数C.十六进制数D.十进制数24.在计算机中，每个存储单元都有一个连续的编号，此编号称为（）A.地址B.住址C.位置D.序号25.在Windows7应用环境中，利用鼠标拖动不能完成的操作是（）A.当窗口最大化时，将窗口缩小成图标B.当窗口不是最大时，移动窗口的位置C.当窗口有滚动条时，实现窗口的滚动D.将一个文件移动或复制到另一个文件夹内26.在微机系统中用两个字节表示带符号整数,其表示范围是____（）A.-32767~+32767B.-32768~+32767C.-32768~+32768D.-32767~+3276827.有关统一资源定位器写法正确的是（）A.\que\que.htmlB.http//\que\que.htmlC./que.htmlD./que/que.html28.下列关于计算机发现史的叙述中，错误的是（）A.世界上第一台电子计算机是在美国发明的ENIACB.ENIAC不是存储程序控制的计算机C.ENIAC是1946年发明的，所以世界从1946年起就开始了计算机时代D.世界上第一台投入运行的具有存储程序控制的计算机是英国人设计并制造的EDSAC29.在PowerPoint2010中，下列有关模板的说法错误的是（）A.它是控制演示文稿统一外观的最有力、最快捷的方法之一B.它是通用于各种演示文稿的模型，可直接应用于用户的演示文稿C.用户不可以自定义模板D.模板文件扩展名为.potx30.计算机采用二进制与（）无关A.运算规则简单B.可用多种方式进行数据压缩C.易于物理实现D.便于人们阅读31.欲对母版进行编辑，选PowerPoint的（）选项卡下的母版命令A.编辑B.插入C.审阅D.视图32.以下属于高级语言的是（）A.汇编语言B.C语言C.机器语言D.以上都是33.在Word2010中，下列关于分栏操作的说法，正确的是（）A.可以将指定的段落分成指定宽度的两栏B.任何视图下均可看到分栏效果C.设置的各栏宽度和间距与页面宽度无关D.栏与栏之间不可以设置分隔线34.在Windows7文件夹窗口中共有35个文件，用鼠标左键依次单击前5个文件，有（）个文件被选定A.0B.1C.5D.3535.工作表的A1单元格和B1单元格的值分别为四川理工学院、计算机学院，要求在C1单元格中显示四川理工学院计算机学院，则在C1单元格中应输入的公式是（）A.=北京邮电大学+计算机学院B.A1+B1C.=sum（A1,B1）D.=A1&B136.在WindowsXP中，下列程序不属于附件的是（）A.计算机B.记事本C.网上邻居D.画图37.网页制作中，超级链接应该使用的标记是（）A.B.C.D.38.下列有关Word2010中表格操作叙述正确的是（）A.将插入点定位在某个单元格内，切换到表格工具-设计选项卡，选择行和列组中的删除按钮B.拆分表格，可以从行拆分，也可以从列拆分C.合并单元格后，仅保留左上第一个单元格中的内容，其他单元格内容将丢失D.选择整个表格，按键盘的Backspace键，可以表删除整个表格39.下面IP地址中，合法的是____（）A.56B.C..34D.210.45.41.D40.在Windows7中，剪切命令的快捷键是（）A.Ctrl+AB.Ctrl+CC.Ctrl+VD.Ctrl+X41.下列关于Excel2010排序操作的叙述中正确的是（）A.排序时只能对数值型字段进行排序，对于字符型的字段不能进行排序B.用户可以根据需要按升序或降序或自定义序列来排序C.用于排序的字段称为关键字，在Excel2010中最多支持3个关键字D.一旦排序后就不能恢复原来的记录排列42.在Word中打印文档时，与打印第1，3，9及5至7页，在打印对话框中中页码范围应输入（）A.1,3,5,7,9B.1,3,5^7,9C.1~9D.1,3,5-7,943.以下关于用户账户的描述，不正确的是（）A.要使用运行Windows7的计算机，用户必须有自己的账户B.可以任何成员的身份登录到计算机，创建新的用户账户C.使用控制面板中的“用户和密码”可以创建新的用户D.当将用户添加到某组后，可以指派给该组的所有权限授予这个用户44.在Word2010中，通常使用（）来控制窗口内容的显示A.控制菜单B.滚动条C.最大化按钮D.标尺45.Internet是由（）发展而来的A.局域网B.ARPANETC.标准网D.WAN46.在Excel的A2单元格中输入数值10，B2单元格中输入公式=IF（A2>20，"A"，IF（A2>8，"B"，"C"）），则在B2单元格中显示的是（）A.10B.AC.BD.C47.关于防火墙技术的描述中，错误的是（）A.防火墙可以限制未授权的用户进入内部网络，过滤掉不安全的服务和非法用户B.防火墙可以布置在企业内部网和Internet之间C.防火墙可以查、杀本地计算机上的病毒D.防火墙是一个由软件和硬件设备组合而成、在内部网和外部网之间、专用网与公共网之间的界面上构造的保护措施48.微型计算机的内存容量主要指（）的容量A.RAMB.ROMC.CMOSD.Cache49.控制面板无法（）A.改变屏幕颜色B.注销当前注册用户C.改变CMOS的设置D.调整鼠标速度50.Windows7中，设置计算机硬件配置的程序是（）A.控制面板B.资源管理器C.WordD.Excel二、多选题(20题)51.对于EXCEL工作表，能够进行的操作的是________（）A.复制B.移动C.删除D.重命名52.在Word2010中，要选取某段落中连续的两行文本，可以将插入点移到开始位置后（）A.按Shift键不放，单击结束位置B.按Alt键不放，用光标移动方向键选取C.直接用鼠标拖动选取D.将鼠标移至页面左侧，当鼠标变成向右上箭头时单击鼠标左键53.电子政务安全中普遍存在的安全隐患有（）A.篡改信息B.恶意破坏C.冒名顶替D.窃取信息54.万维网的特点是（）A.分布式的信息资源B.统一的用户界面C.支持多种媒体D.应用广泛55.Windows的开始菜单中提供了运行命令，通过该命令可以（）A.打开文件夹B.打开应用程序C.打开文档D.打开Internet资源56.在使用Excel2010中的高级筛选功能时，必须先建立一个条件区域，以下关于条件区域的说法正确的是（）A.条件区域的首行必须包含作为筛选条件的字段名B.条件区域中可以包含多行用来输入筛选条件C.条件区域中位于同一行的多个筛选条件表示或的关系，即多个条件中只要有一个满足即可D.条件区域中位于不同行的多个筛选条件表示与的关系，即多个条件必须同时满足57.计算机病毒的特点是（）A.隐蔽性B.潜伏性C.传染性D.复发性58.在HTML文件中，属于字形标记的是（）A.B.C.D.59.在Word2010中，底纹可以应用于（）A.节B.文字C.段落D.整篇文档60.在Windows7中使用（）方法可以启动应用程序A.双击桌面上应用程序的快捷方式图标B.在资源管理器中选中程序文件，再执行菜单的文件—打开命令C.右击应用程序文件名，选择属性菜单，然后输入要执行的应用程序文件名D.在开始菜单的运行菜单项里输入要执行的应用程序文件名61.在Word2003中段落的对齐方式包括（）A.左对齐B.下对齐C.上对齐D.右对齐62.在PowerPoint2010中关于自定义动画,说法正确的是（）A.可以带声音B.可以添加效果C.可以调整顺序D.不可以进行预览63.以下属于Access2010数据库对象的是（）A.记录B.视图C.宏D.模块64.在Word2010中关于页眉和页脚的说法正确的是（）A.在页眉和页脚编辑框内，可以和在文本中一样设置字符的格式B.可以为部分页面设置不同的页眉和页脚C.在页眉/页脚编辑状态，可以直接对文档内容进行编辑D.页眉/页脚在所有视图模式下均可见65.防火墙是目前最重要的一种网络防护装备，其优点有（）A.强化安全策略B.防范恶意的知情者C.防范病毒D.限制暴露用户点66.关系数据库表中的列称为（）A.属性B.元组C.字段D.记录67.自由软件无版权，可随意复制、修改源代码和自由传播。下列属于自由软件的有（）A.Linux操作系统B.Office2003C.QQ软件D.TCP／IP协议68.在Windows7系统中，下列关于回收站叙说错误的是（）A.回收站是硬盘中的一块区域B.回收站的容量是固定的C.从U盘删除的文件不经回收站D.从硬盘上删除的文件一定都经回收站69.在Word2010中，下列关于表格描述正确的是（）A.表格中可以添加斜线B.表格中的数据不能排序C.表格中不可以插入图形D.表格中可以插入公式70.以下单元格引用中，属于混合引用的有（）A.A$B2B.$A2C.B$2D.$CE$20三、填空题(20题)71.域名地址中若有后缀.GOV，说明该网站是____创办的72.将八进制数473转换成二进制数是____73.网络层以上的互联设备的总称是____74.在数据库中，____只是一个虚表，在数据字典中保留其逻辑定义，而不作为一个表实际存储数据75.E-R是____的简称76.多媒体技术的最直接、最简单的体现是____77.Word中可选择格式菜单中的____命令来设置行间距78.一个完整的数据通信系统可划分为三大组成部分：信源、____和信宿79.DBMS提供____，可以实现对数据库数据的基本存取操作80.Excel中在默认情况下如果要输入一个分数7/12，应先输入再输入7/12，否则系统会默认是7月12日。____81.第四代计算机网络以____为核心82.Word2010提供了多种视图模式供用户选择，包括页面视图、阅读版式视图、Web版式视图、大纲视图和____视图等五种83.Windows7系统中快捷方式的扩展名是____（）84.VirtualReality的含义是____85.任何一个网站或网页都有一个确定的地址，这个地址被称为________。____86.____是微软公司发行的一套网络软件，它有WWW信息浏览、电子邮件通信、Telnet登录等功能87.在Excel中，单元格的引用有相对引用、绝对引用和____88.在PowerPoint2003中，使字体加粗的快捷键是____89.____是指计算机CPU在单位时间内发出的脉冲数90.超媒体是____的超文本四、简答题(10题)91.简述Excel中文件、工作簿、工作表和单元格之间的关系92.一幅分辨率为1024×1024、颜色深度为1的黑白图像，不压缩存储时需要占用多少字节的内存空间？93.什么是模拟信号？什么是数字信号？94.南桥芯片和北桥芯片各有什么样的作用？95.简述文件系统的主要功能96.请写出多媒体技术的四个特点97.组装一部台式电脑,需要的部件有哪些？98.简述程序设计的一般步骤99.计算机中的总线分为几种?各自担负什么任务?100.IPv6与IPv4相比，具有哪些优点？五、设计阅读题(10题)101.写出下列程序运行时，单击窗体后，输入m值为12，n值为99后，窗体上显示的结果（）PrivateSubForm_Click（）DimmAsInteger,nAsInteger,rAsIntegerm=InputBox（"请输入M的值："）n=InputBox（"请输入N的值："）r=mModnDoUntilr=0m=n:n=r:r=mModnLoopPrintnEndSub102.有招生信息表（ZS.DBF），表中数据如下表所示：招生信息表（ZS.DBF）设计如下图所示的表单，该招生信息表已添加到表单数据环境汇总，查询命令按钮的Click事件代码如下。renshu=0cj=0mz=""selectzsscanif民族<>"汉族"renshu=renshu+1cj=cj+高考成绩mz=民族endifendscanthisform.text1.value=renshuthisform.text2.value=cj/renshuthisform.text3.value=mzthisform.refresh表单运行时，单击查询命令按钮，3个文本框text1.text2和text3中分别输出的结果是（）103.下列程序的运行结果为（）dimew1（5）x="a"w1=""fori=5to1step-1forj=1toiw1（i）=w1（i）+xendforx=chr（asc（x）+1）?=6-i,w1（i）endfor104.执行下列程序，显示的结果是（）one="WORK"two=""a=LEN（one）i=aDOWHILEi>=1two=two+SUBSTR（one,i,1）i=i-1ENDDO105.名为comp.dbf的表内容如下图所示，已保存在应用程序运行环境中。下述程序执行后，屏幕上的显示结果为（）dimensiona（10）,b（10）usecompgotopskipscattertoas=0fori=1to10ifa（i）/3=int（a（i）/3）s=s+1endifendfor?s106.写出下列程序运行时，单击窗体后，窗体上的显示结果（）DimxAsInteger,yAsInteger,zAsIntegerPrivateSubForm_Click（）x=1:y=2:z=3CallFunA（y）z=FunB（x）Printx,y,zEndSubPublicSubFunA（zAsInteger）x=x+zz=x*zEndSubPublicFunctionFunB（ByValyAsInteger）AsIntegery=z+1FunB=x+yEndFunction107.已知表text的内容如下，下述程序运行后，屏幕上显示的计算结果为（）。108.写出下列程序运行时，单击命令按钮后，文本框的显示内容（）PrivateSubCommand1_Click（）Dimint1ASinteger,int2asintegerint2=1Forint1=1To3int2=（int2+1）*2NextText1.Text=int2EndSub109.已知窗体某主菜单上有2个子菜单项，鼠标单击第2项菜单后请写出程序运行的结果。文本框初始内容为空（）'a1、2顺序为2个子菜单名PrivateSuba1_Click（）DimiAsIntegerFori=1To5Text1.Text=Text1.Text+Str（i）NextiEndSubPrivateSuba2_Click（）DimiAsIntegerFori=1To5Text1.Text=Text1.Text+Chr（i+64）NextiEndSubPrivateSubText1_Change（）PrintText1.TextEndSub110.磁盘上已创建名为f1.prg和f2.prg的程序文件，下面的程序运行后，在文本框text1中输入6，然后单击命令按钮Command1，表单上显示的计算机结果是（）n=val（thisform.text1.value）ifint（n/2）=n/2f=f1（n）elsef=f2（n）endif?int（f）,int（n）f1.prg的代码：parametersxx=x*xf1=x+xreturnf1f2.prg的代码：parametersxx=x*xf2=x+x+xreturnf2六、操作题(2题)111.（三）PowerPoint操作题张老师要在PowerPoint2010中对如图5所示演示文稿中的幻灯片进行相关设置。请结合所学知识回答下列问题。仅将第一张幻灯片的主题设为“暗香扑面”，下列操作正确的是（）A@选中第一张幻灯片，在“设计”选项卡的“主题”功能区，右键单击“暗香扑面”，选择“应用于选定幻灯片”B@选中第一张幻灯片，在“设计”选项卡的“主题”功能区，右键单击“暗香扑面”，选择“应用于所有幻灯片”C@选中第一张幻灯片，在“设计”选项卡的“主题”功能区，左键单击“暗香扑面”D@右键单击第一张幻灯片，选择快捷菜单里的“重设幻灯片”112.要以图9所示工作表为数据源，用图表形式呈现各部门女职工数与本部门职工数对比情况，下列操作最优的是（）A.选择部门和女职工数所在列区域，插入柱状图B.选择部门、职工数和女职工数所在列区域，插入柱状图C.选择部门和女职工数所在列区域，插入饼图D.选择部门、职工数和女职工数所在列区域，插入饼图参考答案1.BB在Excel2010中，列表的标识是按照A、B、C……Z、AA、AB、……一直到XFD递增排列，一共16384列2.DAdobePremiere是一款常用的视频编辑软件，由Adobe公司推出。它有较好的兼容性，且可与Adobe公司推出的其他软件相互协作。目前这款软件广泛应用于广告制作和电视节目制作中3.D4.BB8∶8∶8的RGB图像，说明该图像为24位。图像所占存储空间为1280×1024×24/8B，将单位转换为MB，则1280×1024×248×1024×1024=3.75MB，所以本题选B5.B首先确定存储单元的个数（32KB/1B）,然后将存储单元的个数转化为十六进制,最后通过公式：末地址编号-首地址编号+1=存储单元的个数，即可计算出末地址编号。如题，存储单元一共有32×1024个，将其转换为十六进制数为8000H，根据公式可得：末地址编号=8000H-1-0000H=7FFFH6.AA选项A中的公式选项是在插入|符号组中的7.CWord2010文档默认的文件扩展名是.docx，Excel2010文档默认的文件扩展名是.xlsx，PowerPoint2010文档默认的文件扩展名是.pptx，Access2010文档默认的文件扩展名是.accdb，.txt是文本文档的默认文件扩展名8.DFTP（文件传输协议）、HTTP（超文本传输协议）、SMTP（简单邮件传输协议）均属于TCP/IP协议的应用层协议，TCP（传输控制协议）和UDP（用户数据报协议）属于TCP/IP协议的传输层协议9.B10.AA常见的图像文件格式有BMP格式，JPEG格式，PSD格式，PCX格式，CDR格式，DXF格式，TIFF格式，EPS格式，GIF格式等，MOV是常见的视频文件格式11.B菜单项中可以包含级联菜单，级联菜单的项右侧有一个黑色三角形12.DD网络内部和外部都具有不安全因素，故意危害和无意危害都可以构成坏影响，信息泄露也属于安全性范畴13.C在Excel2010中，整个Excel2010文档就是一个工作簿，该Excel中的所有工作表都包含在工作簿中14.A在PowerPoint2010文件选项卡中的新建命令的功能是新建一个演示文稿15.CC第一代电子计算机使用的电子元件是电子管；第二代电子计算机使用的电子元件是晶体管；第三代电子计算机使用的电子元件是中小规模集成电路；第四代电子计算机使用的电子元件是大规模、超大规模集成电路16.B17.CC统一资源定位器URL是一个简单的格式化字符串，它包含有被访问资源的类型、服务器的地址以及文件的位置等，又称为网址。统一资源定位器由四部分组成，它的一般格式是:协议://主机名/路径/文件名18.DD将程序像数据一样存放在计算机中运行就是存储程序和程序控制思想，是由美籍匈牙利科学家冯·诺依曼提出来的19.BC类IP地址的有效范围是～54,所以本题选B20.BB计算机网络按传输介质的不同可以划分成有线网和无线网。有线网主要采用双绞线、同轴电缆、光纤或电话线做传输介质。无线网主要以无线电波或红外线为传输介质，另外，还有卫星数据通信网，它是通过卫星进行数据通信的。调制解调器属于通信设备21.B22.A23.A24.A为了便于存放，每个存储单元必须有唯一的编号（称为地址），通过地址可以找到所需的存储单元，取出或存入信息。所以本题选A25.AA当窗口最大化时，如果要将窗口缩小成任务栏上的图标，需要单击窗口的最小化按钮，只利用鼠标拖动无法将窗口缩成图标26.B27.D28.CC第一台真正意义上的电子计算机ENIAC于1946年2月在美国的宾夕法尼亚大学正式投入运行，ENIAC的发明表明了计算机的问世，并不代表着人们进入了计算机时代。1951年，世界上第一台商品化批量生产的计算机UNIVAC-I投产，从此计算机从实验室走向社会，由单纯为军事服务进入为社会公众服务，被认为是计算机时代的真正开始29.C模板是以特殊格式保存的演示文稿，模板文件的扩展名是.potx。用户在设计演示文稿时可以先选择演示文稿的整体风格，再进行进一步的编辑和修改，这是控制演示文稿统一外观的最有利最快捷的方法之一。用户可以将现有的演示文稿另存为扩展名为.potx的模板文件来设置自己的模板30.D计算机采用二进制，是因其运算规则简单，便于数据压缩，物理上容易实现，与人们的阅读习惯无关31.D母版命令是在视图选项卡下的32.B高级语言包括BASIC语言、FORTRAN语言、C语言、Java语言等，机器语言和汇编语言属于低级语言33.AA在Word2010中，只能在页面视图和阅读版式视图下才能看到分栏效果，其他视图下不显示分栏；栏宽和间距与页面宽度有关，页面越宽，可设置的栏宽与边距也就越大；可以通过分栏对话框设置栏与栏之间的分隔线34.B35.D文本运算符&用来连接一个或多个文本数据以产生组合的文本36.C37.C38.D表格操作中插入、删除位于表格工具-布局选项卡中，拆分表格只能从行拆，合并单元格后原单元格内容也将合并39.B40.DCtrl+A是全选，Ctrl+C是复制，Ctrl+V是粘贴，Ctrl+X是剪切41.BB在Excel2010中，排序条件最多可以支持64个关键字42.D43.BWindows7中有三种类型的用户账户，分别是标准账户、管理员账户和来宾账户。管理员账户拥有最高的控制权限，可以对其他用户账户进行修改，标准账户在进行会对其他用户的安全造成影响的操作时，需要管理员的认可，来宾用户不能更改计算机设置，也不能创建新用户账户。44.BB当文档内容超出窗口的显示范围时，编辑区右侧和底端会分别显示垂直与水平滚动条，拖动滚动条中的滚动块，或单击滚动条两端的小三角按钮，编辑区中显示的区域会随之滚动，从而可查看其他内容45.BInternet是由ARPANET（阿帕网）发展而来的46.CC函数IF（A1，A2，A3）的功能是：如果条件A1为真，则函数返回A2值，否则返回A3值。该题运用了IF函数的嵌套形式，由其功能知，选项C正确47.C防火墙是一个把互联网和内网隔开的设施，是一种计算机硬件与软件的结合，它使Internet和内部网之间建立起一个安全关卡，从而保护内部网络免受非法用户的侵入，是保护网络安全的重要措施，但防火墙不能查杀本地计算机上的病毒48.A微型计算机的内存容量主要是指RAM的容量49.CCMOS是一块RAM芯片，要想对CMOS进行设置，必须在CMOS设置界面进行。通常是在开机时同时按下特定的按钮，比如F2、Delete、F12等，或根据电脑屏幕上的提示打开CMOS设置界面，对CMOS进行设置。CMOS不能通过控制面板来改变设置，其余选项均可通过控制面板进行操作50.AWindows7中控制面板可以设置、控制计算机硬件配置，修改显示属性51.ABCD52.ACAC选项B应是按住Shift键不放，用光标移动方向键选取；选项D仅能选中一行文本53.ABCD54.ACDWWW（WorldWideWeb）中文名字为万维网，是一个应用在Internet上的规模庞大的分布式系统，它采用超文本或超媒体的信息结构，建立了一个简单但强大的全球信息系统。WWW功能强大，支持多种媒体，界面形式丰富，应用广泛，实现了全球信息共享55.ABCD56.ABAB条件区域中位于同一行的多个筛选条件表示与的关系，不同行的多个筛选条件表示或的关系57.ABC计算机病毒具有传染性、隐蔽性、寄生性、潜伏性、破坏性和可触发性等特点58.BCBC称为字体标记，主要对文字格式进行设置，例如文字大小、颜色、字体等。、是字形标记，用于设置文字的下划线、粗体等59.BC在Word2010中的边框和底纹对话框中，其中底纹可以应用于文本和段落。边框可以分别应用于文本、段落和整篇文档60.ABD在通过程序文件来启动应用程序时，打开程序文件即可启动应用程序61.AD62.ABCPowerPoint2010中的自定义动画，可以带声音、可以添加效果、可以调整顺序、也可以进行预览63.CDCD数据库对象包括表、查询、窗体、报表、宏和模块64.ABAB页眉/页脚和文档内容不能同时编辑；页眉/页脚可以在页面视图和阅读版式视图下可见，其他视图不可见65.ADAD防火墙的缺点是不能防范恶意的知情者；不能防范不通过它的连接；不能防备全部威胁；不能防范病毒66.ACAC二维表中垂直方向的列称为属性，有时也叫做一个字段。二维表中水平方向的行称为元组，有时也叫做一条记录67.AD68.BD回收站是硬盘中的一块区域，用户可以自行修改大小。从硬盘上删除的文件如果大于回收站容量就不经过回收站69.ADAD在Word2010中，可以通过表格工具→布局→排序选项对表格数据进行排序，也可以通过插入→图片选项在表格中插入图片70.BCBC选项A是一个错误的单元格引用。选项D是绝对引用71.政府72.10011101173.网关74.视图75.实体—联系76.多媒体计算机77.段落78.信道79.数据操纵语言（DML）80.空格（0和空格）81.Internet82.草稿83.lnk84.虚拟现实85.IP地址86.IE或InternetExplorer87.混合引用88.Ctrl+B89.主频90.多媒体91.评分要点，共4分1、一个工作薄即为一个Excel文件2分2、一个工作薄由若干个工作表组成1分3、一个工作表由多个单元格组成1分92.图像的分辨率和像素的颜色深度决定了文件图像的大小，计算公式为：行数×列数×颜色深度÷8=图像所占字节数，黑白图像的颜色深度为1，所以该图像在不压缩存储时需要占1024×1024×1÷8=131072B=128KB的内存空间93.模拟信号是在各种传输介质（传送信号的物理线路，如双绞线）中连续变化的电磁波或光波。数字信号是传输介质中的电压脉冲序列或光波脉冲序列，具有传输速率高，传输成本低，对噪声不敏感等优点94.芯片组分为北桥芯片和南桥芯片。北桥芯片决定着CPU的类型，主板系统的总线频率，内存类型、容量和性能，显卡插槽规格；而南桥芯片决定着扩展槽的种类与数量、扩展接}