没有合适的资源?快使用搜索试试~ 我知道了~
首页VB二级考试:过程与变量教程-第7次课程
VB二级考试:过程与变量教程-第7次课程
0 下载量 184 浏览量
更新于2024-06-29
收藏 943KB PPT 举报
本资源是一份针对计算机VB二级考试的课程PPT,专注于第7次课程,主要讲解了Sub过程和Function过程的区别与用法。课程内容包括: 1. 过程:分为Sub过程(子过程)和Function过程(函数过程),这两者都是程序执行的基本单元,Sub过程没有返回值,而Function过程可以返回一个值。学习如何正确地定义和调用这些过程是VB编程基础。 2. 变量作用域:讲解了局部变量和全局变量的区别。局部变量是在过程(如Sub过程或Function过程)内部声明的,其生命周期仅限于该过程,每次过程调用时都会重新初始化;全局变量则在整个应用程序范围内有效,可以在任何地方被访问,通常在模块的声明部分使用Dim、Private、Public或Global关键字进行声明。 3. 数组参数:在过程定义中,可能会涉及数组参数的传递,这有助于处理多元素的数据结构。理解如何处理数组参数对于编写高效代码至关重要。 4. 对象参数:在VB中,对象参数允许传递复杂的对象实例,这对于面向对象编程是不可或缺的部分。 5. 静态变量:特别强调了定义在过程中的静态变量,它们的特点是在每次执行过程中保留上次的结果,这对于某些需要持久状态的场景很有用。 课程中还通过实例,如2006年和2004年的考试题目,展示了对变量声明规则的理解,如不能在标准模块中定义Static类型变量,以及窗体层变量需先声明后使用等概念。最后,通过一个简单的事件过程,演示了如何使用Static变量并观察其行为,以及局部变量的作用范围。 这份PPT适合准备计算机VB二级考试的学生,通过深入理解和实践这些知识点,考生能够更好地掌握VB语言的流程控制和数据管理,提高编程能力。
资源详情
资源推荐
![](https://csdnimg.cn/release/download_crawler_static/87044138/bg7.jpg)
P101考点1Sub过程
一
一
、
、
建
建
立
立
Sub
Sub
过
过
程
程
[Static][Private|Public]
[Static][Private|Public]
Sub
Sub
过
过
程
程
名
名
([
([
参
参
数
数
表
表
])
])
语
语
句
句
块
块
[ExitSub]
[ExitSub]
[
[
语
语
句
句
块
块
]
]
EndSub
EndSub
PrivateSubabc(xAsInteger)
PrivateSubabc(xAsInteger)
IfSgn(x)=1Then
IfSgn(x)=1Then
MsgBox"
MsgBox"
输
输
入
入
的
的
是
是
正
正
数
数
"
"
ElseIfSgn(x)=-1Then
ElseIfSgn(x)=-1Then
MsgBox"
MsgBox"
输
输
入
入
的
的
是
是
负
负
数
数
"
"
Else
Else
MsgBox"
MsgBox"
输
输
入
入
的
的
0"
0"
EndIf
EndIf
EndSub
EndSub
子程序过程
![](https://csdnimg.cn/release/download_crawler_static/87044138/bg8.jpg)
P102调用Sub过程
1.
1.
用
用
Call
Call
语
语
句
句
调
调
用
用
Sub
Sub
过
过
程
程
Call
Call
过
过
程
程
名
名
[
[
(
(
实
实
际
际
参
参
数
数
)
)
]
]
2.
2.
把
把
过
过
程
程
名
名
作
作
为
为
一
一
个
个
语
语
句
句
来
来
使
使
用
用
过
过
程
程
名
名
实
实
际
际
参
参
数
数
与
与
第
第
一
一
种
种
方
方
式
式
相
相
比
比
,
,
它
它
有
有
两
两
点
点
不
不
同
同
:
:
(
(
1
1
)
)
去
去
掉
掉
关
关
键
键
字
字
Call
Call
;
;
(
(
2
2
)
)
去
去
掉
掉
"
"
实
实
际
际
参
参
数
数
"
"
的
的
括
括
号
号
。
。
Private Sub
Private Sub
Command1_Click()
Command1_Click()
Dim a As Integer
Dim a As Integer
a = InputBox("enter a")
a = InputBox("enter a")
Call abc(a)
Call abc(a)
End Sub
End Sub
Private Sub abc(x As Integer)
Private Sub abc(x As Integer)
If Sgn(x) = 1 Then
If Sgn(x) = 1 Then
MsgBox "
MsgBox "
输
输
入
入
的
的
是
是
正
正
数
数
"
"
ElseIf Sgn(x) = -1 Then
ElseIf Sgn(x) = -1 Then
MsgBox "
MsgBox "
输
输
入
入
的
的
是
是
负
负
数
数
"
"
Else
Else
MsgBox "
MsgBox "
输
输
入
入
的
的
0"
0"
End If
End If
End Sub
End Sub
Private Sub
Private Sub
Command1_Click()
Command1_Click()
Dim a As Integer
Dim a As Integer
a = InputBox("enter a")
a = InputBox("enter a")
abc a
abc a
End Sub
End Sub
Private Sub abc(x As Integer)
Private Sub abc(x As Integer)
If Sgn(x) = 1 Then
If Sgn(x) = 1 Then
MsgBox "
MsgBox "
输
输
入
入
的
的
是
是
正
正
数
数
"
"
ElseIf Sgn(x) = -1 Then
ElseIf Sgn(x) = -1 Then
MsgBox "
MsgBox "
输
输
入
入
的
的
是
是
负
负
数
数
"
"
Else
Else
MsgBox "
MsgBox "
输
输
入
入
的
的
0"
0"
End If
End If
End Sub
End Sub
通用过程只有通过事件过程调用才能被执行
剩余39页未读,继续阅读
![pptx](https://img-home.csdnimg.cn/images/20210720083543.png)
![application/x-zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
安全验证
文档复制为VIP权益,开通VIP直接复制
![](https://csdnimg.cn/release/wenkucmsfe/public/img/green-success.6a4acb44.png)