|
Public Class Form1 Dim N As Int16 Dim O, P As New Math Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click N = InputBox("ENTER NUMBER :") O.CUBE(N) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click N = InputBox("ENTER NUMBER :") P.CUBE(N) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click MsgBox(O.Y) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MsgBox(P.Y) End Sub Class MATH Public Y As Int16 Sub CUBE(ByVal X As Int16) Y = X * X * X End Sub End Class End Class |