51Testing软件测试论坛

标题: 模仿别人的Class例子，自己做的一个Class，欢迎讨论（测试程序Calc） [打印本页]

作者: heqingbluesky 时间: 2007-12-22 15:36
标题: 模仿别人的Class例子，自己做的一个Class，欢迎讨论（测试程序Calc）
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 时间: 2007-12-24 12:22
言简意赅，不错不错，好例子

作者: heqingbluesky 时间: 2007-12-24 14:36
谢谢LZ支持.

作者: 板砖 时间: 2007-12-24 14:44

作者: jessieqyl 时间: 2007-12-27 12:48
虽然简单,但是很好的例子呢...

收藏...

作者: trancy 时间: 2009-7-9 16:47
嗯挺好的，思路和C语言的一样

作者: liujinkui 时间: 2009-7-10 10:42
支持下。

作者: liujinkui 时间: 2009-7-10 10:48
提个小建议，代码要规范

作者: liujinkui 时间: 2009-7-10 10:59
谢谢，学到了定义类中的这两个方法
            Sub Class_Initialize
               MsgBox "Welcome everyone!"
            End Sub
            Sub Class_Terminate
               Msgbox"Goodbye everyone!"
            End Sub

作者: foxzhang0 时间: 2009-7-13 16:23
标题: 回复 1# 的帖子
谢谢，学到知识了

作者: heqingbluesky 时间: 2009-7-14 16:22

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

例如？

作者: songfun 时间: 2009-7-15 00:25
这个class不是模仿我的吗

作者: heqingbluesky 时间: 2009-7-15 10:28

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

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

作者: whoamiyaya 时间: 2009-9-22 22:54
哈，原来还可以这么用~~收藏：）

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)