Question

求一个asp函数功能（包含数组跟随机数的）

输出连续下标的数组内容3个；如题：现有数组下标1、2、3、4、5、6、7、8、9、10假如我的随机函数产生的值是：3，那输出的内容是：3、4、5假如我的随机函数产生的值是：7，那输出的内容是：7、8、9假如我的随机函数产生的值是：1，那输出的内容是：1、2、3就是从数组下标中随机产生一个随机数，然后输出来这个随机数连续的3个内容（数组中说的是下标吧）。有谁明白我要的这个函数的功能啊？来打救一下我吧，谢谢啦

Answer 1

我没有很多接触Asp，语法忘记；但是我写了一个vb.net的算法给你，经过测试完全可以，现在给你哦：Module Module1 Function GetRandomNumbers(ByRef group() As Integer) As Integer()
'获取数组总的长度,防止数组溢出
Dim length As Integer = group.Length
'获取随机数时间序列
Randomize() Dim index As Integer = Fix(Rnd() * (group.Length - 1))
Dim newarray(2) As Integer newarray(0) = group(index)
newarray(1) = group(index + 1)
newarray(2) = group(index + 2) Return newarray End Function
Sub Main() '测试
For Each I As Integer In GetRandomNumbers(New Integer() {1, 2, 3, 4, 5, 6, 7, 8, 9, 10})
Console.WriteLine(I) Next End SubEnd Module
【运行效果】