Question

VB代码 提示无效外部过程

Dim r As Single
Dim s As Single
r = InputBox("请输入半径")
s = 3.14 * (r ^ 2) - 2 * r ^ 2
Print s

就是“请输入半径”这个地方它说无效外部过程，什么意思，怎么解决

Answer 1

你这些代码应该放入一个事件过程中，比如你希望在点击窗体后就执行你这些代码，则：

Private Sub Form_Click()
Dim r As Single
Dim s As Single
r = InputBox("请输入半径")
s = 3.14 * (r ^ 2) - 2 * r ^ 2
Print s
End Sub

因为VB是事件驱动的编程语言，所有实际执行的代码都应该放入某个事件过程、自定义过程或自定义函数中，如果直接放在代码的通用部分就会提示“无效的外部过程”。通用部分只能放全局变量的声明，以及API函数的声明、常量的声明、自定义结构等。

Answer 2

您好，我测试了一下，可以正常使用
请检查您的VB编译器是否正常，或有其他代码干扰

Answer 3

Dim r As Single改成Dim r As String试试看

追问

没有用诶，应该是我不会用inputbox

追答

r = InputBox("请输入半径")
s = 3.14 * (int(r) ^ 2) - 2 * int(r) ^ 2
msgbox Cstr(s)

试试

Answer 4

你这些代码应该放入一个事件过程中，比如你希望在点击窗体后就执行你这些代码，则：

Private Sub Form_Click()
Dim r As Single
Dim s As Single
r = InputBox("请输入半径")
s = 3.14 * (r ^ 2) - 2 * r ^ 2
Print s
End Sub

因为VB是事件驱动的编程语言，所有实际执行的代码都应该放入某个事件过程、自定义过程或自定义函数中，如果直接放在代码的通用部分就会提示“无效的外部过程”。通用部分只能放全局变量的声明，以及API函数的声明、常量的声明、自定义结构等。