Question

VB如何调用函数

我是一名中学生,请大家说得详细一些,最好有例子

Answer 1

用MyFile = Dir("C:\WINDOWS\*.ini")函数，若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。

这个可选的errornumber参数可以为任何有效的错误号。如果errornumber是有效的错误号，但尚未被定义，则Error将返回字符串“应用程序定义的错误或对象定义的错误”。

如果errornumber不是有效的错误号，则会导致错误发生。如果省略errornumber，就会返回与最近一次运行时错误对应的消息。如果没有发生运行时错误，或者errornumber是 0，则Error返回一个长度为零的字符串 ("")。

扩展资料：

当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空格暗示有一正号。

使用 Format 函数可将数值转成必要的格式，如日期、时间、货币或其他用户自定义格式。与 Str 不同的是，Format 函数不包含前导空格来放置 number 的正负号。

注意 Str 函数只视句点 (.) 为有效的小数点。如果使用不同的小数点（例如，国际性的应用程序），可使用 CStr 将数字转成字符串。

参考资料来源：百度百科-DIR

参考资料来源：百度百科-ERROR

Answer 2

1.定义一个加法函数
Private Function addition(a As Double, b As Double) As Double
addition = a + b
End Function

2.在command1单击事件中触发，先在窗体中加入2个文本框和一个按钮command1
Private Sub Command1_Click()
Debug.Print addition(Text1.Text, Text2.Text)
End Sub

Answer 3

private Function fn1() as string '函数fn1,返回字符串类型的值
'函数体
fn1 = "你好"
end Function

private Function fn2(n as boolean) as string '函数fn2
fn2 = iif(n,"真","假")
end function

调用时:
dim str as string
str = fn1 'str = "你好"
str = fn2(true) 'str = "真"