Option ExplicitPrivate Sub Command1_Click() Debug.Print xx(2, 5) End SubPublic Function xx(x As Long, y As Long) As Double xx = x ^ y End Function
Option ExplicitPrivate Sub Command1_Click() Text3.Text = xx(Text1.Text, Text2.Text) End SubPublic Function xx(x As Long, y As Long) As Double xx = x ^ y End FunctionPrivate Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub
Debug.Print xx(2, 5)
End SubPublic Function xx(x As Long, y As Long) As Double
xx = x ^ y
End Function
End SubPublic Function xx(x As Long, y As Long) As Double
xx = x ^ y
End FunctionPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub