写了一个函数调用不到，大家帮我看看

wujianping · 发表于 2010-3-10 15:42:34

Function RandomChar(a1,a2)
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
mychar = chr (Num1)&chr (Num2)&chr (Num3)&chr (Num4)
End Function

函数的实现是要输入2个ASCII码(a1,a2)，来得到纯大写或小写的随机字符串
在函数外部我应该用什么方法来得到mychar的值呢？

zzxxbb112 · 发表于 2010-3-10 15:49:36

1.申明全局变量 mychar
2.直接返回给函数~

Function RandomChar(a1,a2)
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
RandomChar = chr (Num1)&chr (Num2)&chr (Num3)&chr (Num4)
End Function

msgbox RandomChar(1,2)

wujianping · 发表于 2010-3-10 16:05:52

呵呵，谢谢，1.申明全局变量 mychar 这个怎么实现？

zzxxbb112 · 发表于 2010-3-10 16:08:58

函数外申明

wujianping · 发表于 2010-3-10 16:28:55

申明也不行啊
是用Dim mychar还是Public mychar as String？请指教

liujinkui · 发表于 2010-3-10 17:28:34

你只是想要mychar的值对吗？
Function RandomChar(a1,a2)
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
mychar = chr (Num1)&chr (Num2)&chr (Num3)&chr (Num4)
加上下面这句
RandomChar=mychar
End Function

wujianping · 发表于 2010-3-10 17:42:19

原帖由 liujinkui 于 2010-3-10 17:28 发表
你只是想要mychar的值对吗？
Function RandomChar(a1,a2)
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
mychar = chr (Num1)&chr (Num ...

我是想要二楼说的全局变量来获得值，不是在函数内部返回给函数的

lantianwei · 发表于 2010-3-10 17:56:11

dim myChar

Function RandomChar(a1,a2)
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
myChar= chr (Num1)&chr (Num2)&chr (Num3)&chr (Num4)
End Function

RandomChar(1,2)
msgbox myChar

对于跨ACTION时该方法会无效但可以用外部变量环境变量等实现好像有4种方式

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 写了一个函数调用不到，大家帮我看看

相关帖子

回复1#

站长推荐 /1