sub page_load(send as object,e as eventargs) dim r1 as random =new random() response.write("The result of r1.next()is:"+r1.next().tostring()) response.write("Theresultofr1.next(100)is:" +r1.next(100).tostring()) response.write("The result of r1.next(100,150) is:"+r1.next(100,150).tostring()) response.write("The result of r1.nextdouble() is:"+r1.nextdouble().tostring()) r1.nextbytes(r) // dim r(300) as byte response.write("the r(100) is:") response.write(r(199)) end sub </script> 其测试结果如图1所示: