首页 考试吧论坛 Exam8视线 考试商城 网络课程 模拟考试 考友录 实用文档 求职招聘 论文下载 | ||
2011中考 | 2011高考 | 2012考研 | 考研培训 | 在职研 | 自学考试 | 成人高考 | 法律硕士 | MBA考试 MPA考试 | 中科院 |
||
四六级 | 职称英语 | 商务英语 | 公共英语 | 托福 | 雅思 | 专四专八 | 口译笔译 | 博思 | GRE GMAT 新概念英语 | 成人英语三级 | 申硕英语 | 攻硕英语 | 职称日语 | 日语学习 | 法语 | 德语 | 韩语 |
||
计算机等级考试 | 软件水平考试 | 职称计算机 | 微软认证 | 思科认证 | Oracle认证 | Linux认证 华为认证 | Java认证 |
||
公务员 | 报关员 | 银行从业资格 | 证券从业资格 | 期货从业资格 | 司法考试 | 法律顾问 | 导游资格 报检员 | 教师资格 | 社会工作者 | 外销员 | 国际商务师 | 跟单员 | 单证员 | 物流师 | 价格鉴证师 人力资源 | 管理咨询师考试 | 秘书资格 | 心理咨询师考试 | 出版专业资格 | 广告师职业水平 驾驶员 | 网络编辑 |
||
卫生资格 | 执业医师 | 执业药师 | 执业护士 | ||
会计从业资格考试(会计证) | 经济师 | 会计职称 | 注册会计师 | 审计师 | 注册税务师 注册资产评估师 | 高级会计师 | ACCA | 统计师 | 精算师 | 理财规划师 | 国际内审师 |
||
一级建造师 | 二级建造师 | 造价工程师 | 造价员 | 咨询工程师 | 监理工程师 | 安全工程师 质量工程师 | 物业管理师 | 招标师 | 结构工程师 | 建筑师 | 房地产估价师 | 土地估价师 | 岩土师 设备监理师 | 房地产经纪人 | 投资项目管理师 | 土地登记代理人 | 环境影响评价师 | 环保工程师 城市规划师 | 公路监理师 | 公路造价师 | 安全评价师 | 电气工程师 | 注册测绘师 | 注册计量师 |
||
缤纷校园 | 实用文档 | 英语学习 | 作文大全 | 求职招聘 | 论文下载 | 访谈 | 游戏 |
注意:
F按值传递参数
形参和实参的类型不一定要统一,VB自动进行数据的转换。
–例如:Private Sub Form_Click()
Dim a As String : a = 2
Call sub1(a)
Print a
End Sub
Private Sub sub1(ByVal b As Integer)
b = b + 1 : Print b
End Sub
F按地址传递参数
–当实参是变量时:如果形参规定了类型,则实参必须跟形参保持一致
如果形参没有规定类型,则VB按要求进行数据类型转换
–当实参是常量或表达式时:
VB自动用“按值传递”的方式进行处理,如果数据类型不统一,VB自动进行数据转换
例如:1、在应用程序中用“Private function Fun(X as integer,Y as single)”定义了函数Fun。调用函数Fun的过程中的变量I、J均为Integer型,能正确引用函数Fun的是( )
A.Fun(I,J) B.Call Fun(I,3.56) C.Fun(3.14,234) D.Fun("245","231.5")
2.程序中的不同过程之间,不能通过_________进行数据传递。
①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量
A. ①②④ B. ①②③ C.②④ D.④
二级考试必考题型:(课后习题)
传值 传地址 Static变量 同名变量 递归过程
例如:
1、以下有关变量作用域的说法中,错误的是( )
A. 只有在标准模块中用public语句说明的变量才是全局变量
B. 在过程中不能使用public语句说明全局变量
C. 在标准模块的通用声明处可用private语句说明模块级变量
D. 在窗体的通用声明处可用private语句说明窗体级变量
2.一个名为frm1的窗体,在窗体通用声明处和过程sub1中分别定义:public k as integer、dim k as integer如何在sub1中访问全局变量k( )
A.frm1.k B.form.k C.form1.k D.k
例:阅读程序,给出输出结果:
(1)字符串处理(数组参数)
Option Base 1
Private Sub Form_Click()
Dim st As String, char As String
Dim data() As String, i As Integer, j As Integer
st = "10281018123811181038"
For i = 1 To Len(st)
If Mid(st, i, 1) <> "8" Then
char = char & Mid(st, i, 1)
Else
j = j + 1
ReDim Preserve data(j)
data(j) = char
char = ""
End If
Next i
Call conver(data, char)
Print char
End Sub
Private Sub conver(a() As String, ch As String)
Dim i As Integer, j As Integer
Dim n As Integer, dec As Integer
For i = 1 To UBound(a)
n = Len(a(i))
For j = 1 To n
dec = dec + Val(Mid(a(i), j, 1) * 8 ^ (n - j))
Next j
ch = ch & Chr(dec)
dec = 0
Next i
End Sub
相关推荐:2011年计算机等级考试二级VB基础教程汇总北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |