Question

写一个vbs函数怎么样设置函数的参数默认值

Answer 1

dim x
sub test(a,b)
	set regexp=new RegExp
	with RegExp
		.Pattern="^(0|[^\d]*)$"
		if .test(a) then a=10 '如果默认值是0或者其他非数字,则设定默认值等于10
	end with
	x= x & a*b & vbcrlf '返回x的结果a的值乘b
end sub
test "0",2
test "",2
test "abc",2
test "2",2
wsh.echo x

比如说0、空值、非数字的时候,使用默认值