以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在数组中随机取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159578)

--  作者:zcgmxf
--  发布时间:2020/12/31 8:35:00
--  [求助]如何在数组中随机取值
老师,如何在一个数组中随机取值?谢谢!

如:dim pas() as string = {5,10,15,20,25}
随机取一个

--  作者:有点蓝
--  发布时间:2020/12/31 9:53:00
--  
Dim pas() As String = {5,10,15,20,25}
msgbox(pas(rand.Next(0,pas.Length)))

--  作者:y2287958
--  发布时间:2020/12/31 9:55:00
--  
Dim pas() As Integer = {5,10,15,20,25}
Output.Show(pas(Rand.Next(0,pas.length-1)))

--  作者:有点蓝
--  发布时间:2020/12/31 10:10:00
--  
以下是引用y2287958在2020/12/31 9:55:00的发言:
Dim pas() As Integer = {5,10,15,20,25}
Output.Show(pas(Rand.Next(0,pas.length-1)))

不需要-1,不然25就取不到了