- 帖子
- 352
- 积分
- 332
- 技术
- 1
- 捐助
- 0
- 注册时间
- 2009-1-24
|
本帖最后由 ads350668398 于 2018-3-31 07:15 编辑
回复 9# yhcfsr
谢谢 看看我这几天的成果哈 vbs 666
Option Explicit
Dim a,b,a1,a2,a123
a=0.25
b=0.105
a1=0.1
a2=-0.25
a=a-b
a=a*a
a=0.5*a
a1=a1-b
a1=a1*a1
a1=0.3*a1
a2=a2-b
a2=a2*a2
a2=0.2*a2
a123=a+a1+a2
a123=sqr(a123)
msgbox a123
-----------------------
a=-0.5
a=sqr(a)
负数根求不能?????? |
|