1.定义一个加法函数
Private
Function
addition(a
As
Double,
b
As
Double)
As
Double
addition
=
a
+
b
End
Function
2.在command1单击事件中触发，先在窗体中加入2个文本框和一个按钮command1
Private
Sub
Command1_Click()
Debug.Print
addition(Text1.Text,
Text2.Text)
End
Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024