今天做了几个vbs代码，可以用来解决一些简单的数学问题，但是还_数学吧

数学吧关注：883,784贴子：8,720,176

5回复贴，共1页

今天做了几个vbs代码，可以用来解决一些简单的数学问题，但是还

今天做了几个vbs代码，可以用来解决一些简单的数学问题，但是还没测试，请吧友斧正
第一个
Rem 计算鸡兔同笼问题
Dim a,b,c,d
a=InputBox("请您输入鸡和兔头的数量","头")
b=Inputbox("请您输入鸡和兔脚的数量","脚")
c=(4*int(a)-int(b))/2
d=(int(b)-2*int(a))/2
Msgbox("鸡的数量是"&c)
Msgbox("兔的数量是"&d)

送TA礼物

IP属地:北京

1楼2015-08-11 20:03回复

const PI=3.1415926
dim r,S
r=InputBox("请输入您要计算的圆的半径","半径","0")
S=PI*r*r
MsgBox("圆的面积是"&S)

IP属地:北京

2楼2015-08-11 20:03

Rem 解一元二次方程
msgbox("ax^2+bx+c=0")
Dim a,b,c,d,x1,x2
a=Inputbox("a=")
b=Inputbox("b=")
c=Inputbox("c=")
d=b^2-4*a*c
if d<0 then
msgbox("方程无解")
else
if d>0 then
x1=(-b+sqr(d))/(2*a)
x2=(-b-sqr(d))/(2*a)
msgbox("方程解为"&x1&"和"&x2)
else
x1=(-b+sqr(d))/2
msgbox("方程解为"&x1)
End if
end if

IP属地:北京

3楼2015-08-11 20:04