全国计算机等级考试VB经典必考资料，知识点总结(4)

“全国计算机等级考试”考试要点

知识点10：

1、过程与函数： ★ 过程与函数的参数类型有：实参和形参；传递方式有：值传递和地址传递。 ★ 以下程序中，x,y为实参；a,b为形参 注意：实参要与形参的类型、个数要相同。 ★ 在形参a,b之前如果加上关键字ByVal，那么就是按值传递；如果加上关键字ByRef或不加关键字，那么就是按地址传递。

★ 过程调用方式有两种：Call Swap(x,y)或Swap x,y (Swap是过程名)

注意：只有地址传递方式才能实现交换功能，值传递方式x,y的值不变。当有事件过程和通用过程一起运行时，先执行事件过程(Command_Click)。

例题：(1) 假定有如下的Sub过程：

Sub S(x As Single, ByVal y as Single) t=x x=t/y

y=t Mod y End Sub

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single, b As Single a=5:b=4 S a,b Print a,b End Sub

程序运行后，单击命令按钮，输出结果为_____C_____。 A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 程序分析：

首先形参x是地址传递方式，当a传递给x时，因此a与x拥有一个共同存储空间，图

形表示：；形参y是值传递方式，当b传递给y时，因此b与y是两个不同

存储空间，图形表示：

朱锦新

第 10 页

；那么在过程S中：运算x=t/y后，

2013-4-21

“全国计算机等级考试”考试要点

x=1.25，图形表示；因此a的值就是1.25；运算y=t Mod y后，y=1，图形表

示:，因为此时b和y存储空间不同，则不影响b的值，则

还是4,因此Print a,b的结果就是选择C答案。

知识点11：

1、菜单和鼠标事件 ★ 菜单编辑器的使用：

注意：菜单中的标题可以为空，但不论是第几级菜单名称必须唯一，且不能为空。 ★ 鼠标事件(按下鼠标键事件过程)

主要事件有：Form_MouseDown 、 Form_MouseUp 和 Form_MouseMove。 现在以某个为例说明：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single)

… End Sub

上述事件过程不仅使用在窗体上(Form_MouseDown),还可以使用于大多数控件上，包括命令按钮(Command1_MouseDown)或文本框(Text1_MouseDown)等。

以上鼠标事件过程的参数，含义如下：

(1)Button 有值1、2和4，分别表示按下左键、右键和中建；

(2)Shift 表示Shift、Ctrl和Alt键的状态，其值分别是1、2和4； (3)X，Y 表示鼠标光标的坐标位置 ★ 弹出式菜单(菜单和鼠标事件的结合使用)

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single)

朱锦新

第 11 页

2013-4-21

“全国计算机等级考试”考试要点

If Button=1 Then ?按下鼠标左键

PopUpmenu File ?通过PopUpmenu方法弹出菜单 End If ?File是一级菜单的名称 End Sub

运行效果：

2、公共对话框(又称通用对话框) ★ 通用对话框是我们考试中唯一一个控件箱中没有的控件，需要我们自己添加的，添加的方法是在“工程”菜单的“部件”项中选择“Microsoft Common Dialog Control 6.0”后，才会在控件箱中出现通用对话框图标

★ 通用对话框图形

。

根据以上图形，相应的程序代码如下：

朱锦新 第 12 页 2013-4-21

“全国计算机等级考试”考试要点

注意：CommonDialog.FilterIndex = 索引 (索引是从1开始)

知识点12：

1、文件

文件包括三种：顺序文件、随机文件和二进制文件 ①顺序访问：文件中数据是以ASCII码存储的。 ②随机访问：文件长度记录是固定不变的，数据类型可以不同，数据以二进制方式存储在文件中，可以任意时候，任意地方访问。

③二进制访问：必须知道数据是如何写入文件的。 ★ 如果源文件是字符类型，那么读写文件如下所示： a.读文件的格式：

Open App.Path & \文件名(In.txt)\文件号(#1) Do while Not EOF(文件号) Input #文件号,变量 … Loop

Close #文件号

或：

Open App.Path & \文件名(In.txt)\文件号(#1) Do while Not EOF(文件号) Line Input #文件号,变量 … Loop …… 此处隐藏：187字，全部文档内容请下载后查看。喜欢就下载吧 ……