我有以下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))
%>
Randomize
只是初始化随机数生成器。您需要调用Rnd()
以生成0到1之间的随机数。然后乘以所需的范围。IEcount - 1
Dim quoteNumber as Integer = CInt( Rnd() * (quotes.Count - 1) )
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句