51Testing软件测试论坛

标题: 写了一个函数调用不到，大家帮我看看 [打印本页]

作者: wujianping 时间: 2010-3-10 15:42
标题: 写了一个函数调用不到，大家帮我看看
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

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
呵呵，谢谢，1.申明全局变量 mychar 这个怎么实现？

作者: zzxxbb112 时间: 2010-3-10 16:08
函数外申明

作者: wujianping 时间: 2010-3-10 16:28
申明也不行啊
是用Dim mychar还是Public mychar as String？请指教

作者: liujinkui 时间: 2010-3-10 17:28
标题: 回复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

原帖由 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
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软件测试论坛 (http://bbs.51testing.com/)