求一个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个内容(数组中说的是下标吧)。有谁明白我要的这个函数的功能啊?来打救一下我吧,谢谢啦
输出连续下标的数组内容3个;如题:现有数组下标1、2、3、4、5、6、7、8、9、10
假如我的随机函数产生的值是:3,那输出的内容是:3、4、5
假如我的随机函数产生的值是:7,那输出的内容是:7、8、9
假如我的随机函数产生的值是:1,那输出的内容是:1、2、3
就是从数组下标中随机产生一个随机数,然后输出来这个随机数连续的3个内容(数组中说的是下标吧)。有谁明白我要的这个函数的功能啊?来打救一下我吧,谢谢啦
答案:我没有很多接触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 Integernewarray(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 Sub
End Module
【运行效果】