今天写了一个函数，研究了一下VBS中数组如何作为函数的返回值，也研究了一下如何使用rnd()。下面是我的code:

Function GenerateRandom()
 Dim myarray(2)
 Dim aa, bb, cc
 Dim myvalue, bbbase, ccbase

 bbbase=array("Beijing", "NewYork", "Copenhagen", "Paris", "London", "Gothenborg")
 ccbase=array("China", "America", "Denmark", "Franch", "England", "Sweden")

'Get a number contains 8 characters

aa= Int((99999999 - 11111111+ 1) * Rnd + 11111111)

' Get a number between 1 to 6
 myvalue=Int((6 * Rnd) + 1)
 bb=bbbase(myvalue)
 cc=ccbase(myvalue)

 myarray(0)=CStr(aa)
 myarray(1)=bb
 myarray(2)=cc

 GenerateRandom=myarray
 
End Function

'****************************************************

' Call the function

Dim testarr

 testarr=GenerateRandom

msgbox testarr(0)

msgbox testarr(1)

msgbox testarr(2)