Excel word ppt office使用技巧大全(DOC格式)-第8部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
Excel中，系统默认状态下，输入文字的对齐方式是 ，输入数字的对齐方式是 6。在VB5的标准
控件中 控件适用于在一组按钮中显示多个选项，但用户只能而且必须选择其中一项。 控件适
用于放置用户只能看到但不能修改的少量文本。 7。在VB中，要改变Text1文本框内显示的信息
时，应当在其 窗口中，
XLIV
…………………………………………………………Page 45……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
将 属性进行重新设置。 8。VB5表达 （40 Mod 7）2的值是 2x2的VB5表达式为 9。如下程序实现
在当前窗口中显示一个消息框，消息框中显示有―是（Y）‖和―否（N）‖两个按钮，试将该程序
填写完整，使用户点击―是 （Y）‖按钮后能显示出数字1，点击―否（N）‖按钮后能显示出数字2
Private Sub Form_Click（） Msg=‘你想要继续吗？‖ Style=vbYesNo Response=msgbox（msg ； ）
If Response vbYes Print―1‖ Else End if End Sub 二、单选题（每题3分，共30分） 1。 Excel
主要用于（ ）领域。 。 A。 美术设计、装璜 B。 数据分析、财务管理 C工业设计、机械制造 D。
多媒体制作 2。 对话框窗口中的―确定‖按钮的作用是（ ） A。 确定输入的信息 B。 确定各选
项并开始执行 C。 关闭对话框不做任何事 D。退出对话框 3。 在个人计算机上，通常Excel是在
（ ）系统环境下运行的。 A．office97 B。MS…DOS C。Windows D。UNIX 4、Sheet1是Excel中的
一个默认（ ） A．工作薄 B。单元格 C。工作表 D。页 5、在Excel中，如果输入分数，则需在
数值闪加上 A． 0与空格 B。 空格与0 C。 空格 D。 0 6、在Excel中，公式―SUM＋ （D2：
C7）‖ 中的C7属于引用。 A。 绝对 B。 相对 C。 列相对行绝对的混合 D。 行相对列绝
对的混合 7、在Excel工作表中，系统默认状态下，日期和时间数据会自动对齐。 A。 靠
左 B。 靠右 C。 居中 D。 靠上 8、下述（ ）不是数据清单应具有的特征。 A。 一个数据清单
独占一个工作表 B。 数据清单中避免对单元格进行格式化 C。 其它信息不要放在数据清单的
区域内 D。 数据清单中避免出现空行或空列 9、下列VB5控件中（ ）可以自动设置滚动条。 A。
文本框 B。 图片框 C。 框架 D。 复选框 10、若想在窗体显示一句提示信息，下列控件最
适宜实现 A。 框架 B。 标签 C。 单选钮 D。 列表框 11、下述哪个是VB5合法变量名？（ ） A。
Then B。 If C。 ％h121 D。 Then_1 12、若想要建立一个学生管理的输入界面，其中要很要求选
择学生的性别和选择选修课情况（共有5门课，供任选），应如何在窗体利用单选按钮和复选
框来实现 A。 将5门课程用一组5个复选框来表示，将性别用一组两个复选框来表示 B。 将5门
课程用一组5个单选框来表示，将性别用一组两个复选框来表示 C。 将5门课程用一组5个复选
框来表示，将性别用一组两个单选框来表示
XLV
…………………………………………………………Page 46……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
D。 将5门课程用一组5个单选框来表示，将性别用一组两个单选框来表示 13、假设在当前VB5
窗体有一个个文本框Test3；并有Text3_keyPress过程如下（其中变量S1的初始值为0） Private
Sub Text3_keyPress （keyAscii As Integer） Static S1 If keyAscii=13 Then 13是回车符
的ASCII 码） S1=S1＋1 Form1。Print S1 If Text3。Text=‖11‖ Then MsgBox ―It is OK！‖
Text3。Enabled＋False End Else If S1=3 Then MsgBox ―Sorry；invalid password！‖ End Else
MsgBox ―Key in password again！‖ Text3。text=‖‖ End If End If End If End Sub 当程序
运行时用户要在文本框中输入11，回车后窗体和屏幕上各会显示： A。 窗体显示―1‖，屏
幕上弹出一个消息框，框内显示出―Sorry；invalid password！‖ B。 窗体显示―1‖，屏幕上弹出
一个消息框，框内显示出―Key in password again！‖ C。 窗体显示―1‖，屏幕上弹出一个消息
框，框内显示出―It is OK！‖ D。 窗体显示―3‖ ，屏幕上弹出一个消息框，框内显示出
―Sorry；invalid password！‖ 三、判断题（每题2分，共30分） 1、剪贴板中只能保存最后一
次剪切或复制的内容。（ ） 2、要关闭Excel的文档窗口，可以用Alt＋F4快捷键。（ ） 3、
Excel97启动后自动打开一个名book1的工作表。（ ） 4、在Excel中， 一个工作表可以包含
多个工作薄。（ ） 5、在Excel97中，如果在某个单元格输入的公式中使用的是绝对地址，则
复制该单元公式到另一单元时，Excel会对后一单元的公式作相应的调整。（ ） 6、在Excel
中进行数据分类汇总，既可以通过执行―数据‖菜单中的―分类汇总‖命令执行，也可以使用Excel
提供的数据透视表功能实现。前者适合依据多个字段进行分类汇总，后者适合依据一个字段进
行分类汇总。（ ） 7、在Excel中，当工作表的数据发生变化时，相应图表中的数据序列也会
随之变化，反之亦然（ ） 8、使用Excel默认的填充序列功能，可以自动填充出―第一课。。。。
第十课‖ 的序列。（ ） 9、在VB5的标准控件中复选框控件适用于在一组按钮中显示多个选项，
但用户只能而且必须选择其中一项。（ ） 10、在VB中，可能有许多事件过程不会被执行。这
是因为事件过程对应的事件没有发生。（ ） 11、在VB中，变体型变量是一种没有数据类型的
变量。（ ）
XLVI
…………………………………………………………Page 47……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
12、在VB中，Integer类型的类型声明符为― ！‖ 。 （ ） 13、在VB中，局部变量只在定义它的
过程内有效。（ ） 14、在VB5的过程中用Dim声明局部变量是动态变量，其值在过程执行完后
仍保留。用Static声明局部变量是静态变量，其值在程序执行完后会消失。（ ） 15、在VB
中，属性窗体和窗体属性中一回事。（ ） 四、多选题（提示：在下述题前有*标记的题选择
是有次序的，每小题2分，共20分） 1、―关闭计算机的正确步骤为‖ （ ） A。 选择―关闭系统
项‖ B。 在弹出的对话框选择―关闭计算机‖并单击―确定‖按钮 C。 单击―开始‖菜单 D。 关闭所
有已打开的窗口 2、下述输入数据中哪些是正确的Excel97的…6左2分之一？ （ ） A。 –61/2 B。
（61/2） C。 –6 1/2 D。 （6 1/2） 3、在Excel97当前工作表中，假设C5到F5单元格中已有数据型
数据，求出C5到F5的总值的公式可以是（ ） A。 Sum（c5；f5） B。 =Sum（c5：f5） C。 =c5＋d5＋e5＋f5
D。 ＋Sum（c5：f5） 4、下列（ ）是Excel97的应用范围。 A。 制作普通表格 B。 关联数据以及图
表应用 C。 数据模拟运算 D。 数据库的基本操作 5、如果要使A1成为活动单元格，可以（ ）。
A。 单击A1单元格 B。 按Home键 C。 按Ctrl＋Home键 D。 在编辑栏的―名称‖框内输入A1然后回
车 6、下述哪些数据不是Excel97中的合法的日期格式的数据。（ ） A。 1989年12月31号 B。
2001/1/11 C。 04…11…89 D。 1989。12。31 7、下述哪些是VB中合法的注释语句？（ ） A。 ―这
是一个注释‖ B。 这是一个注释 C。 Rem 这是一个注释 D。 这是一个注释 8、*在VB中将窗体
的标题设置成―评估展示‖ 的步骤为（ ）； A。 将Caption的值改为―评估展示‖ B。 将当前窗体
存盘 C。 将当前窗体成为焦点 D。 打开属性窗口 9、*向窗体添加控件的步骤为（ ）； A。 单
击工具箱中所需的控件 B。 移动鼠标到窗体中适当位置 C。 按下鼠标向另一对角拖曳直到满
意释放鼠标 D。 使窗体成为焦点
71、1。文件菜单栏（Excel 自带的） 文件就叫mandbars（〃File〃），你可以在打开命令后加
个菜单，类似的，编辑就是mandbars（〃Edit〃），视图就是mandbars（〃View〃），这些不会
因语言版本不一样而不同，全部是一样的。 2。快捷菜单栏 好像那些打印啊、打开文件啊、居
中对齐啊那些呢，叫mandbars（〃Standard〃）； 那些字体大小啊，颜色啊，就叫
（〃Formatting〃）。 3。右键 Excel的右键也是可以更改的，名叫：mandbars（〃Cell〃） 4。自定
义菜单 类似于数据透视表的那些浮动的窗体，不用名字，用mandbars。add就可以追加了，
最简单了。如果不能运行，记得加个Application。在mandbars的前面。 72、由于公司合同
较多，每次缴印花税时，计算每份印花税所需要的各面额印花的张数是一件比较繁琐的事。如：
这份合同需要缴纳23元的印花税则需要买两张10元、一张2元、一张1元面额的印花。幸好有
XLVII
…………………………………………………………Page 48……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Excel这个财会人员的得力工具，我编写了一段宏代码来自动帮我计算各面额印花的张数，既
快捷又方便。想到还有很多同行要做这项工作，所以写下来与大家共享。具体操作如下： 新
建一个Excel文件存为stampduty。xls；进入宏编辑器（Alt＋F11）在ThisWorkbook中加入以下代
码： '印花税各面额印花张数计算程序 BY…RAY DENG '用途：已知印花税额；计算各面额印花张
数 '使用方法：做好工具条后，只要选择要计算的原始数据；点击〃印花税面额计算〃工具条即可。
' （请不要选择全列；否则无效的计算太多。） Sub stamp_duty（） Static flagcal As Integer '
计算标志；首次计算时清空计算结果页；否则在结果页追加计算结果 Static rowbegain As
Integer '计算结果页上可用行号；计算结果追加时从这里开始 Dim filename As String '打
开的需要计算数据的文件名 Dim moneytype（7） As Single '定义面额 Dim money As Single Dim
billno As Integer '票额张数 filename = ActiveWorkbook。Name '记录当前打开的文件名 If
filename = VBAProject。ThisWorkbook。Name Then '不要在自身这个文件中操作 MsgBox 〃请
选 择 其 它 文 件 中 的 数 据 ！ 〃； vbInformation ＋ vbOKOnly Exit Sub End If
Application。ScreenUpdating = False '将屏幕更新关闭；可加快宏的运行速度 billno = 0 '
计数清0 moneytype（0） = 100 '印花税面额为0。5…100；以0。5为舍入标准 moneytype（1） = 50
moneytype（2） = 10 moneytype（3） = 5 moneytype（4） = 2 moneytype（5） = 1 moneytype（6） =
0。5 VBAProject。ThisWorkbook。Sheets（1）。Activate '打开结果页 If flagcal = 0 Then '
如 果 为 第 一 次 计 算 ； 则 清 空 结 果 页 Cells。Select Selection。ClearContents
Range（〃A1〃）。Select End If ActiveSheet。Cells（1； 1） = 〃Origin DATA〃 '先写上表头 For i
= 0 To 6 ActiveSheet。Cells（1； i ＋ 2） = moneytype（i） Next i Workbooks（filename）。Activate
'转到要计算的原始数据数据文件 rowno = ActiveWindow。RangeSelection。Rows。Count '所选
区 域 有 几 行 rowstart = ActiveWindow。RangeSelection。Row ' 起 始 行 colstart =
ActiveWindow。RangeSelection。Column '起始列 j = rowbegain '结果页中写结果的起始行
For i = 1 To rowno '开始读原始数据
XLVIII
…………………………………………………………Page 49……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
origindata = Cells（i ＋ rowstart 1； colstart） '读原始数据 '广州印花税尾数处理方法：
过0。5进1；不足舍去；刚好为0。5及其倍数则不变 If origindata * 100 Mod 50 0 Then money
= Round（origindata； 0） '以0。5为界限作四舍五入 Else money = origindata '整数及尾数
刚好为0。5不作处理 End If VBAProject。ThisWorkbook。Sheets（1）。Activate '转到结果页
ActiveSheet。Cells（i ＋ 1 ＋ j； 1） = origindata ' 在 第 一 列 写 入 原 始 数 据
Workbooks（filename）。Activate ''转到要计算的原始数据数据文件 For k = 0 To 6 '循环计
算各面额所需张数 While money 》= moneytype（k） money = money moneytype（k） billno =
billno ＋ 1 Wend VBAProject。ThisWorkbook。Sheets（1）。Activate ActiveSheet。Cells（i ＋ 1
＋ j； k ＋ 2） = billno '在相应位置写入该面额张数 billno = 0 '清0准备计算下一面额
Workbooks（filename）。Activate Next k rowbegain = rowbegain ＋ 1 '结果页中写结果的起
始行
