Private Sub Command1_Click( )
Dim a As Single
Dim b As Single
Dim total As Single
a = Val(Text1. Text)
b =Val(Text2. Text)
total =
Text3. Text =
End Sub
微信扫码预览、分享更方便