使用类的题目，帮我！！

Question

创建一个应用程序，添加一个类模块，该类模块包含实现加、减、乘、除的方法，从用户端接受两个数，调用类的方法进行运算并显示结果。谢谢指教！！！

Answer 1

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Public Function division(ByVal Num1 As Long, ByVal Num2 As Long) As Long
    division = Num1 - Num2
End FunctionPublic Function multiplication(ByVal Num1 As Long, ByVal Num2 As Long) As Long
    multiplication = Num1 * Num2
End FunctionPublic Function subtraction(ByVal Num1 As Long, ByVal Num2 As Long) As Long
    subtraction = Num1 - Num2
End Function
Public Function addition(ByVal Num1 As Long, ByVal Num2 As Long) As Long
    addition = Num1 + Num2
End FunctionOption ExplicitPrivate Sub Command1_Click()
    Dim my As New Class1
    MsgBox my.addition(1, 2)
End Sub