51CTO博客开发
Const PI = 3.141592653 Private Sub Form_Load() Form1.ScaleHeight = Form1.ScaleWidth Shape1.Shape = 3 &nb
加法运算主要部分代码:Text3.Text = Val(Text1.Text) + Val(Text2.Text) 除法:If Val(Text2.Text) = 0 Then MsgBox "除数不能为零" Else Text3 = Val(Text1) / (Text2) End If End S
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号