以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  随机使用的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56527)
--  作者：jinzhengbe
--  发布时间：2014/9/7 23:38:00
--  随机使用的方法

if e.datarow("lei") then

e.datarow（"name2")= "aaaa"  or  "bbbb" or "cccc"  中随机生成一个

end if

 

这个代码该怎么写？
--  作者：飞飞
--  发布时间：2014/9/8 1:06:00
--  
Rnd() 生成的是小于1的小数
Rnd()*100，是小于100的小数，取整即可
[此贴子已经被作者于2014-9-8 1:07:16编辑过]
--  作者：狐狸爸爸
--  发布时间：2014/9/9 8:39:00
--  
Dim a() as string = {"aaaa","bbbb"，"cccc"}
if e.datarow("lei") then
    e.datarow（"name2")= a(rand.next(0,3))
end if