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

:L
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？请指教 :L

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

回复1#

你只是想要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 发表 http://bbs.51testing.com/images/common/back.gif
你只是想要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种方式
页: [1]
查看完整版本: 写了一个函数调用不到，大家帮我看看