我的随机数组列表不起作用答案

【问题标题】：My randomized Array list is not working我的随机数组列表不起作用
【发布时间】：2016-09-24 10:06:09
【问题描述】：

我有以下 VB 代码。我试图让它随机化一个报价以在刷新时打印到页面上，但它不是为我做的。

有什么明显的错误吗？

<%


Dim quotes As New ArrayList, quoters As New ArrayList
quotes.Add("The Warehouse excites me every single time"): quoters.Add("- Samantha Jones")
quotes.Add("Everyone is just so friendly"): quoters.Add("- Bianca Emit")
quotes.Add("A great place to explore new things!"): quoters.Add("- Adrian Soft")
quotes.Add("I absolutely LOVE The Warehouse!!!!!!!!!!!!!"): quoters.Add("- Adam Jenkins")
quotes.Add("I look forward to it every week!"): quoters.Add("- Mary Binge")


Randomize
Dim quoteNumber As Byte = CInt * (quotes.Count - 1)


Response.Write("""" & quotes(quoteNumber) & """<br />" & vbCrLf)
Response.Write(quoters(quoteNumber))

%>

【问题讨论】：

（注意：双关语完全是故意的） 我的眼睛在流血，你确定是 VB**.Net** 吗？我想我和所有来自 VB（.Net 之前）世界的 ArrayList Randomize 和类似的东西一起旅行

标签： arrays vb.net arraylist

【解决方案1】：

Randomize 只是初始化随机数生成器。您需要调用Rnd() 来生成一个介于0 和1 之间的随机数。然后乘以您需要的范围。即count - 1

Dim quoteNumber as Integer = CInt( Rnd() * (quotes.Count - 1) )

【讨论】：