Dim a,b,c,d,e,f,g,h,j,k,l,m,n
Msgbox ("第一式 ax+by=c")
a=inputbox("请输入a,b,c：（注意：请以空格分开输入）","提示","1 2 3")
b=split(a)
d=int(b(0))
e=int(b(1))
f=int(b(2))
Msgbox ("第二式 ax+by=c")
g=inputbox("请输入a,b,c：（注意：请以空格分开输入）","提示","1 2 3")
h=split(g)
j=int(h(0))
k=int(h(1))
l=int(h(2))
if d/j=e/k and e/k<>f/l then
Msgbox ("无解")
elseif d/j=e/k and e/k=f/l then
Msgbox ("无数解")
else
m=(e*l-k*f)/(e*j-d*k)
n=(d*l-j*f)/(d*k-e*j)
Msgbox ("x=" & m & " y=" & n & "")
end if
保存后缀为vbs的文件
打开即可
没有vb画面哈