VB无效外部过程

帮我检查一下
Input #"a,b,c" = a, b, c
d = b ^ 2 - 4 * a * c
IFd≥0THEN
p = -b / (2 * a)
q = Sqr(d) / (2 * a)
IFd = 0
Print "x1=x2=": p
Else
Print "X1,X2=": p q, p - q
End If
Else
Print "No real root."
End If
End

1、VB 没有“≥”这个运算符，可以用“>=”
2、-b VB没有这种写法，你可以写成 (-1)*b或者0-b
3、IFd = 0 这个语法也错误，应该是 IFd = 0 then
4、Print "X1,X2=": p q, p - q 这个语法也不对 应该是Print "X1,X2=" & p & "," & q & ",X1-X2=" & p - q
5、第一句没看明白是什么意思

要去加强下基础语法的使用

这个没问题。你的格式实在是... Input "a,b,c=", a, b, c d = b ^ 2 - 4 * a * c If d>=0 then p = -b / (2 * a) q = Sqr(d) / (2 * a) if d = 0 then Print "x1=x2="; p Else Print "X1,X2="; p+q, p - q End If Else Print "No real root." End If End

是把代码写在子过程、函数过程或属性过程外而发生的错误。 在过程外无效： 该语句必须发生在子过程、函数过程或属性过程（property get、property let 和 property set）内部。这个错误的起因与解决方法如下所示： *一个可执行的语句，如 static 或 redim，出现在模块级别中。 在模块级中 static 是不需要的，因为所有的模块级变量都是静态的。在模块级中用 dim 来代替 redim。想要在模块级中创建动态数组，请用 dim 加空括弧来声明它。 注意 在模块级只能使用注释与声明性语句，例如 const、declare、deftype、dim、option base、option compare、option explicit、option private、private、public 和 type。子过程、函数过程和属性过程语句发生在它们的过程体之外，但在过程内声明。