类模块实例3: 可看到计算过程的计算器

chunfengyidu · 发表于 2008-9-15 12:13

学习

slyrabbit · 发表于 2008-10-9 08:33

学习

zxy999 · 发表于 2008-10-9 08:46

下载学习

syxagri · 发表于 2008-10-28 15:30

Sub 梯形面积()
Dim tx As New 梯形   '实例化一个类，即分创建名称叫tx的梯形类对象
tx.高 = 10           '重新设置它的高度
tx.上底 = 2          '重新设置它的上底
tx.下底 = 3          '重新设置它的下底
MsgBox tx.面积       '计算它的面积
End Sub

JackBlack · 发表于 2008-11-17 22:47

谢谢！！！

goodhaohao · 发表于 2008-11-25 17:51

学习

zxy999 · 发表于 2008-12-3 10:32

学习中

xinyu_china · 发表于 2008-12-4 14:14

看看

jlwater2 · 发表于 2008-12-14 08:13

学习学习不累不累

beautywen · 发表于 2008-12-25 00:47

好资料，要好好学习。。

		自动登录	找回密码
密码			注册

[分享] 类模块实例3: 可看到计算过程的计算器