Question

VB中function过程自定义函数的参数是用来提醒自己的吗? 如 function c

VB中function过程自定义函数的参数是用来提醒自己的吗? 如 function calculate(radius)
calculate=2*3.14*radius
end function

r=inputbox(“input the radius of
the cirle." ，1)
msgbox calculate(r)
r 又怎么等于radius 呢

Answer 1

'自定义函数式: 函数名(参数)返回值。
'如: Function culat(rad As Double)As Integer
' culat=int(2*rad)
'End Function
'函数名culat,参数rad是Double类型,返回值是Integer类型。
'使用该函数后,culat是 (2 * rad) 的整数。
'Call culat(1)返回2,culat(2)返回4,culat(3)返回6,culat(4)返回8 …
'从函数式(Function…)到End Function ,参数首次是Call设置的值,从上往下执行,“函数名=”是等号右边表达式的值赋值给该函数。
Private Function calculat1(radiu As Integer)
radiu = InputBox("input the radius of the cirle.", "", "", 1, 1)
MsgBox (radiu)
End Function
Private Function calculat2(radiu As Integer)
Dim r
r = InputBox("input the radius of the cirle.", mutton, radiu, 1, 1)
MsgBox (r)
End Function
Private Function calculat3(mutton As String, radius As Long) As String '使用该函数时(如:“calculat3 "stinger",201”),向下找mutton、radius,找到的第一个mutton或radius是该函数使用时设置的值["stinger"和201(使用时 第一个mutton是字符串"stinger",第一个radius是整数201)]
radius = InputBox("input the radius of the cirle.", mutton, radius, 1, 1)
calculat3 = Str(2 * 3.14 * radius)
MsgBox (calculat3)
End Function
Private Sub Form_Click()
calculat1 (6)
calculat2 (2)
calculat3 "10010", 321
End Sub

Answer 2

r是你输入的数字，而r在你的function是叫radius。你可以换成其他如r。参数名字是为了更容易明白是什么意思。

追问

意思就是说calculate 函数会把括号内的数字自动认定为参数咯
但是如果有多个参数呢

追答

是的。多个参数就必须用逗号区分开来。

追问

我的意思是说在函数的参数为多个时又怎么传递 比如
function ww(aa As string, bb As single, cc As long)
难道是这样
ww= Len(aa)
ww= 2*bb
ww=cc/2
MsgBox ww(r)
如果r为 “顶顶顶“ 则输出为3
如果为2.2 则输出为
4.4 如果为100 则输出为50
就是系统有一个自动判断的过程。

上面过程简略了

追答

ww(Len(aa),2*bb,cc/2)
次序是对应你的参数位置。

追问

啥意思？