VB中 模块 public function 的规则与用法

Question

在输入程序 If InStr(strline(i), "GOTO") > 0 And InStr(strline(i - 1), "RAPID/") > 0 Then nline = nline + 10 AAA (i) New_File.WriteLine oo oo = "" Public Function AAA(i As Long) 。。。 oo = "N" & CStr(nline) & " " & "G00" & " X" & numb(0) & " Y" & numb(1) & " Z" & numb(2 若将New_File.WriteLine oo oo = "" 放入AAA(i)这个模块当中会出现错误 所以想问下 public function 模块的用法

Answer 1

Function 语句,声明 Function 过程的名称，参数以及构成其主体的代码。

说明：

如果没有使用 Public、Private 或
Friend 显式指定，则 Function 过程缺省为公用。

Function 过程可以是递归的；也就是说，该过程可以调用自己来完成某个特定的任务。不过，递归可能会导致堆栈上溢。通常 Static 关键字和递归的 Function 过程不在一起使用。

Function 过程与 Sub 过程的相似之处是： Function
过程是一个可以获取参数，执行一系列语句，以及改变其参数值的独立过程，而与子过程不同的是：当要使用该函数的返回值时，可以在表达式的右边使用 Function
过程，这与内部函数，诸如 Sqr、Cos 或 Chr 的使用方式一样。

要从函数返回一个值，只需将该值赋给函数名。在过程的任意位置都可以出现这种赋值。如果没有对 name
赋值，则过程将返回一个缺省值：数值函数返回 0，字符串函数返回一个零长度字符串 ("")，Variant 函数则返回 Empty。如果在返回对象引用的 Function
过程中没有将对象引用赋给 name （通过 Set），则函数返回
Nothing。

Function 语句示例

该示例使用 Function 语句来声明 Function 过程的名称、参数、以及构成
Function 过程主体的代码。

'下面的用户自定义函数返回
'它的参数的平方根。
Function CalculateSquareRoot(NumberArg As Double) As Double
   If NumberArg < 0 Then   '评估参数。
      Exit Function   '退出调用过程。
   Else
      CalculateSquareRoot = Sqr(NumberArg)   '返回平方根。
   End If
End Function

Answer 2

Public Function AAA(i As Long) 看清楚了，function函数一般情况下是有返回值的！ 如果你不需要返回值，用SUB本回答被提问者采纳

Answer 3

啥情况