50分求一个简单的随机数

Question

Public Function Createpass()
Dim Ran,i,LengthNum
LengthNum=1
Createpass=""
For i=1 To LengthNum
Randomize
Ran = CInt(Rnd * 9)
Randomize

Createpass =Ran

Next
End Function
上面这个函数是产生多大范围的随机数,我想要产生从1到5的随机数,该怎么改,包括1和5

Answer 1

Random rd=new Random();
int result=rd.Next(1,5);

Answer 2

CInt(Rnd * 4)+1
CInt(Rnd * 9)这个范围在0-9

Answer 3

sorry javascriptfunction GetRandomNum(Min,Max){
        var Range = Max - Min;
        var Rand = Math.random();
        return(Min + Math.round(Rand * Range));
}GetRandomNum(1,10)

Answer 4

参考如下:
我想得到一个大于等于10小于20的一个随机数..怎么得到?
注：要加using System;//(2005)
Random r = new Random();
int a=r.Next(10,20);