模仿别人的Class例子，自己做的一个Class，欢迎讨论（测试程序Calc）

heqingbluesky 发表于 2007-12-22 15:36:21

Call Testcase

Class Standard_Caculation

Dim a,b,c

Sub Class_Initialize
   MsgBox "Welcome everyone!"
End Sub

Sub Class_Terminate
                        Msgbox"Goodbye everyone!"
                                       End Sub

SubAddition(a,b)
c= a+b
Ifc=3 Then
msgbox("The result is correct.")
else
msgbox("The result is wrong!")
End If

End Sub

Sub Subtraction(a,b)
c=a-b
Ifc=2 Then
msgbox("The result is correct.")
else
msgbox("The result is wrong!")
End If

End Sub

Sub Divide(a,b)
c=a/b
If c=2Then
msgbox("The result is correct.")
else
msgbox("The result is wrong!")
End If

End Sub

Sub Multiply(a,b)
c=a*b
If c=8 Then
msgbox("The result is correct.")
else
msgbox("The result is wrong!")
End If

End Sub

End Class

Sub Testcase()
set result=New Standard_Caculation
result.Addition 1,2
result.Subtraction 3,1
result.Divide 4,2
result.Multiply 4,2
Set result=Nothing
End Sub

本人对于Class的理解只是初级，希望大家拍砖！！！

LittleDuck 发表于 2007-12-24 12:22:33

言简意赅，不错不错，好例子

heqingbluesky 发表于 2007-12-24 14:36:28

谢谢LZ支持.

板砖发表于 2007-12-24 14:44:13

:victory: :victory:

jessieqyl 发表于 2007-12-27 12:48:43

虽然简单,但是很好的例子呢...:)
收藏...

trancy 发表于 2009-7-9 16:47:48

嗯挺好的，思路和C语言的一样

liujinkui 发表于 2009-7-10 10:42:30

支持下。

liujinkui 发表于 2009-7-10 10:48:34

提个小建议，代码要规范

liujinkui 发表于 2009-7-10 10:59:07

谢谢，学到了定义类中的这两个方法
            Sub Class_Initialize
               MsgBox "Welcome everyone!"
            End Sub
            Sub Class_Terminate
               Msgbox"Goodbye everyone!"
            End Sub

foxzhang0 发表于 2009-7-13 16:23:19

回复 1# 的帖子

谢谢，学到知识了

heqingbluesky 发表于 2009-7-14 16:22:52

原帖由 liujinkui 于 2009-7-10 10:48 发表 http://bbs.51testing.com/images/common/back.gif
提个小建议，代码要规范

例如？

songfun 发表于 2009-7-15 00:25:46

这个class不是模仿我的吗:)

heqingbluesky 发表于 2009-7-15 10:28:46

原帖由 songfun 于 2009-7-15 00:25 发表 http://bbs.51testing.com/images/common/back.gif
这个class不是模仿我的吗:)

那我就把你“山寨”了一把。:lol

whoamiyaya 发表于 2009-9-22 22:54:14

哈，原来还可以这么用~~收藏：）

页: [1]

51Testing软件测试论坛 's Archiver

模仿别人的Class例子，自己做的一个Class，欢迎讨论（测试程序Calc）

回复 1# 的帖子