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