产生1-100随机整数
VB代码：
Dim randNum
Randomize
randNum=int(rnd*99)+1
c#代码:
Random ra=new Random();
int randNum=ra.Next(1,100);
产生1-100区间10个互不相同的整数(不重复随机数)
VB代码：
Dim a(10)
for k=1 to 10
randomize
Do
x = Int(Rnd*99) + 1
j = True
For i = 1 To k - 1
If x = a(i) Then j = False: Exit For
Next
Loop Until j
a(k) = x
next
c#代码：
Random ra= new Random();
int[] a= new int[10];
for (int i = 0; i <= 10 - 1; i++)
{
a[i] = ra.Next(1, 100); //取出值赋到数组中
}