Question

用VF怎么实现输入一元二次方程系数求根，编程

Answer 1

clear
text
一元二次方程求解
ax^2+bx+c=0
endtext
input "请输入a的值：" to a
input "请输入b的值：" to b
input "请输入c的值：" to c
m=b*b-4*a*c
if m>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1的值是：",x1
?"x2的值是：",x2
else
?"此方程无实根!"
endif

追问

还有个问题，用VF实现1-2+3-4+5-6+7-8+9-10，我会多加分，谢谢，我学VF的，程序太差

追答

clear
s=0
for i=1 to 10
k=(-1)^(i+1)
s=s+i*k
endfor
?"1-2+3-4+5-6+7-8+9-10=",s