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

heqingbluesky

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
               
                Sub  Addition(a,b)
                c= a+b
                If  c=3 Then
                        msgbox("The result is correct.")
                        else
                        msgbox("The result is wrong!")
                End If
               
                End Sub
               
                Sub Subtraction(a,b)
                c=a-b
                If  c=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=2  Then
                         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

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

heqingbluesky

谢谢LZ支持.

板砖

jessieqyl

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

trancy

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

liujinkui

支持下。

liujinkui

提个小建议，代码要规范

liujinkui

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

foxzhang0

谢谢，学到知识了

heqingbluesky

原帖由 liujinkui 于 2009-7-10 10:48 发表
提个小建议，代码要规范

例如？

songfun

这个class不是模仿我的吗

heqingbluesky

原帖由 songfun 于 2009-7-15 00:25 发表
这个class不是模仿我的吗

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

whoamiyaya

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