在VB中使用Randomize，是在主程序运行时调用一次即可，还是在每个使用Rnd的Function（Sub）中均需调用？

高手来了

randomize:初始化随机数生成器。语法:Randomize [number]可选的 number 参数是变量或任何有效的数值表达式。说明：Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子 值。如果省略 number，则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。注意：若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。Randomize 语句示例本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。Dim MyValueRandomize " 对随机数生成器做初始化的动作。MyValue = Int((6 * Rnd) + 1) " 生成 1 到 6 之间的随机数值。 rand() ：功能得到1与n之间的一个伪随机数。语法rand ( n )参数n：数值型变量或表达式，指定要产生的伪随机数的上界。有效值在1到32767之间返回值与n的数据类型相同。函数执行成功时返回1与n之间的一个伪随机数，包括1和n在内。如果参数n的值为null，rand()函数返回null randomize()功能初始化伪随机数发生器，这样让应用程序每次使用不同的伪随机数序列。语法randomize ( n )参数n：数值型变量或表达式，指定伪随机数生成器使用的起始值，不同的起始值可以生成不同的伪随机数序列。当n的值为0时，该函数把系统时钟作为伪随机数生成器的起始值，这样可以生成不可重复的伪随机数序列。当n的值不为0时，可以产生不同的伪随机数序列，但是，如果两次使用相同的伪随机数生成器起始值，那么两次生成的伪随机数序列相同。n的值在0到32767之间返回值integer。极少使用该函数的返回值。

Randomize 语句初始化随机数生成器。语法Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。说明Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

说了这么多我还是不知道怎么用啊！

不是楼主说的这个意思randomize()是c函数库提供的一个函数，功能给产生随机数的进行初始化random()能产生随机数，如不先调用randomize()进行初始化，每次产生的可能都是同一个数了

它是一个初始化随机数生成器。主要是返回一随机数前的声明；语法是Randomize [number] 比如Randomize x=RandomNumber (0,2）这是随机生成0-2之间的三个数字中的一个。

Randomize是初始化随机数种子，一定要用，否则Rnd函数返回的都是些相同的序列，失去了随机数的意义。一般一个程序使用一次就行了。例如PrivatesubForm_load()randomizeendsub这样之后，以后用Rnd便可放心使用。

randomize 　　函数名: randomize 　　功 能: 初始化随机数发生器 　　适用语言;BASIC,VISUAL BASIC,C,C++,Delphi等　　用 法: void randomize(void); 　　程序例: 　　#include <stdlib.h> 　　int main(void) 　　{ 　　int i; 　　randomize(); 　　printf("Ten random numbers from 0 to 99 "); 　　for(i=0; i<10; i++) 　　printf("%d ", rand() % 100); 　　return 0; 　　}VB 中的用法　　Randomize 语句示例　　本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。　　Dim MyValue　　Randomize " 对随机数生成器做初始化的动作。　　MyValue = Int((6 * Rnd) + 1) " 生成 1 到 6 之间的随机数值。　　Delphi 中的用法　　以下事例将随机产生0到100的数字，如果不使用Randomize函数，得到的结果将有规律性。　　procedure TForm1.btn1Click(Sender: TObject);　　begin　　randomize;　　ShowMessage(IntToStr(Random(100)));　　end; randomize加了TIMER是用系统的时钟来产生随机种子，这样才能保证每次随即的数尽量重复。

1、RandomizeTimer，msdn里说的是这个，我用程序调试，两个都没提示错误2、3：Rnd[(number)]number的值决定了Rnd生成随机数的方式。number小于0每次都使用number作为随机数种子得到的相同结果。number大于0序列中的下一个随机数。number等于0最近生成的数。number省略序列中的下一个随机数。说明Rnd函数返回小于1但大于或等于0的值。4、Randomize初始化rnd当你循环重复调用rnd时，如果不进行Randomize初始化，那产生的随机就不会变化。例如，在按钮事件里，调用a=rnd，每次点击按钮得到的a可能都是一样的。

这是一个较复杂的数学问题：我记得看到过相关介绍，具体不记得是哪里了。你可以搜一搜关键字为“产生随机数的算法”的相关内容。大致原理如下：在计算机程序设计语言中，都有定义了产生随机数的函数，程序员只要调用该函数，就可以产生随机数。数学中，函数需要有一个（或多个）自变量，那么产生随机数的函数，也需要一个自变量。下面解释vb的rnd函数与randomize函数的作用与关系：rnd函数需要一个自变量（也叫做产生随机数的种子），来产生一个随机数。但是，我们在使用rnd函数的时候，并没有给过它什么种子数？这就与randomize函数有关了：1，当使用rnd函数之前，如果没有使用randomize函数，那么，系统就以某一个固定的数值作为rnd函数的种子，从而产生第1个随机数，接下来第2次呢，就以第1次产生的随机数作为种子，来产生第2个随机数，第3次呢，就以第2次产生的随机数作为种子，来产生第3个随机数，....。一直按这个样方法产生一系列随机数，所以，在不使用randomize函数的情况下，每次使用rnd函数产生的随机数序列是相同的。2，当使用rnd函数之前，如果使用了randomize函数，那么randomize函数会产生一个随机数，然后，当第1次使用rnd函数产生随机数的时候，系统会把由randomize函数产生的随机数给rnd函数作为第1次的种子。3，randomize函数的使用格式：randomize[参数]其中参数，是一个数字，用来作为randomize函数产生随机数的种子。如果，每次用相同的参数，作为randomize的种子，那么，结果还是一样，得到的序列是相同的。例如：randomize1fori=1to100printrndnexti但是，randomize函数的格式中，参数是可选的，当不带参数的时候，系统会将计算机的时钟（具体不知道使用时钟的什么数据）作为randomize函数的种子，这样以来，有于计算机时钟是在变化的，特别是它的变化周期比较长，这样，就可以产生不同序列的随机数了。例如：randomizefori=1to100printrndnexti大概的原理就是这样，有不当之处请指正。记得以前学c语言还是数据结构的书上，专门介绍如何编写产生随机数的函数。

randomize()和random()这两个函数，在c语言的标准库里面，早就不用了。现在，要用srand()和rand()来设置种子和产生随机数了希望回答能帮到你，哪里不清楚再问。

在C语言里面rand()函数返回的是0到RAND_MAX的随机数，而且这个函数没有参数，所以你的代码可以改一下：去掉randomize()int i,j,a[N][N],temp; //randomize(); system("cls"); for(i=0;i<N;i++) for(j=0;j<N;j++) //a[i][j]=MIN+rand(MAX-MIN+1); a[i][j]=MIN+(int)((double)(rand())/RAND_MAX*(MAX-MIN+1));

Rnd 函数 返回一个包含随机数值的 Single。 语法 Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式。 返回值 如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。 大于 0 序列中的下一个随机数。 等于 0 最近生成的数。 省略 序列中的下一个随机数。 说明 Rnd 函数返回小于 1 但大于或等于 0 的值。 number 的值决定了 Rnd 生成随机数的方式。 对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。 在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。 为了生成某个范围内的随机整数，可使用以下公式： Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。Randomize语句但独用就可以，在第一个rnd函数之前有就可以，作用是初始化随机数生成器。如果不用这个语句的话，每次生成的随机数都相同，用了之后，每次的随机数就会不相同了。后面也可以加参数，但这样每次运行的结果也是相同的.不加参数，自动以系统计时器返回的数字作为参数。补充：msdn中的说明Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

前面那个使用默认的随机数种子，后面的以时钟为种子

不加的话每次随机出来的数据都是会一样的 加了的话每次都会打乱

Randomize主要是针对Rnd这个函数的给你举个代码示例吧PrivateSubForm_Click()Fori=1To10PrintInt(Rnd*10);""NextiEndSub你运行时点一下窗体会得到一组数记下来关闭程序然后再运行一遍记下再次得到的一组数看吧是一样的再给你一个程序PrivateSubForm_Click()RandomizeFori=1To10PrintInt(Rnd*10);""NextiEndSub运行时点一下窗体记下得到的一组数关闭再运行点一下窗体又得到一组数这两组数是不同的明白了吧

Randomize y=Rnd(1)

randomize()和random()这两个函数，在c语言的标准库里面，早就不用了。现在，要用srand()和rand()来设置种子和产生随机数了希望回答能帮到你，哪里不清楚再问。

rand()函数的返回值就是求取随机的值，所以如果没有对数据有要求，直接这样写：printf("%d", rand());//输出一个随机数.但如果对数有要求，如小数或在一定值以内：小数：rand()/100.0 //100.0后面的.0必须写，得到一个小数点后有两位小数的小数。一定范围内的数：rand()%m+n //m是数据区间差，n是最小值如：求[ 100，120）之间的数就是：rand()%20+100rand()函数得到的是一伪随机序列，即，每次运行时，得到的随机序列是相同的（这是为了保证调试程序时，每次保持相对稳定的数据，便于查找程序问题）。为了得到不同的随机序列，系统提供了srand(int n)函数设置随机种子，n值不同时，就会得到不同的随机序列，常用方法为：srand(time(NULL)); //time的返回值是当前系统时间（秒数），因为每次运行时的时间不同，time的结果就会是不同的值，这样，srand()设置的种子就会不同，得到的随机序列也就会不同。time在<time.h>中声明rand,srand在<stdilb.h>中声明

1、randomize()是c函数库提供的一个函数，功能给产生随机数的进行初始化。rand()能产生随机数，如不先调用randomize()进行初始化，每次产生的可能都是同一个数。函数名：randomize　　功能：初始化随机数发生器　　用法：voidrandomize(void);2、程序例：　　#include　　void main()　　{　　int i;　　randomize();　　printf("Ten random numbers from 0 to 99 ");　　for(i=0;i<10;i++)　　printf("%d ",rand()%100);　　}

C++中产生随机数可以用：srand(time(0)); //置随机数种子。1+rand()%x; //取得整数1到x之间的随机数。

Randomizea(i)=int((上界－下界＋1)*Rnd)＋下界

第二个的意思是等待45秒到55秒之间随机值。随机值的最小值不能小于45秒，所以45秒不能随机，必须是固定值。至于在45秒的基础上增加随机的几秒，由前面的随机函数控制，最多10秒。而第一个语句的含义是等待10秒到55秒之间随机值

Randomize //初始化随机数生成器d=int(Rnd()*10+12)//d的值为随机数12-22

rand()函数会返回一个不大于RAND_MAX的正整数，以下程序可以显示出所用C系统的RAND取值的上限：//---------------------------------------------------------------------------#include <stdio.h>#include <stdlib.h>int main(void){ printf("%d",RAND_MAX); return 0;}//---------------------------------------------------------------------------

函数名:random功能:随机数发生器用法:intrandom(intnum);程序例:#include<stdlib.h>#include<stdio.h>#include<time.h>/*printsarandomnumberintherange0to99*/intmain(void){randomize();printf("Randomnumberinthe0-99range:%d ",random(100));return0;}函数名:randomize功能:初始化随机数发生器用法:voidrandomize(void);程序例:#include<stdlib.h>#include<stdio.h>#include<time.h>intmain(void){inti;randomize();printf("Tenrandomnumbersfrom0to99 ");for(i=0;i<10;i++)printf("%d ",rand()%100);return0;}函数名:rand功能:随机数发生器用法:voidrand(void);程序例:#include<stdlib.h>#include<stdio.h>intmain(void){inti;printf("Tenrandomnumbersfrom0to99 ");for(i=0;i<10;i++)printf("%d ",rand()%100);return0;}

看下下面的帖子吧

randomize 下随机种子Rnd 生成随机数如果不下随机种子，每次运行程序生成的随机数都是一样的、

我知道C语言的随机数，Randomize应该是初始化随机函数吧，源代码可能很简单seed = i;其中i可能是当前系统时间，或者是快速变化着的CPU时钟，只要你想得到是可以的，都可以当做iseed就是随机种子，不同的种子种下之后，理论上就可以产生不同的果实(随机数列)而rand () (在C中的随机数)其实也复杂不到那里去，毕竟是伪随机数。它采用一种叫做线性同余法的方法生成随机数的。实际上就是这个递推公式Xn+1 = (AXn + B) mod Mmod就是求余(求模)的意思，也就是第二个随机数是根据第一个生成出来的，所以为什么第一个叫种子就不难理解了。M是周期(T = M - 1)的重要标志，M越大周期就越长，如果不想随机数经常重复就把它设置大一点吧。A和B都是常量，M是素数(质数)，A则是M的原根如果不知道这些是什么，那我给出我试过的一组数吧M = 32719 A = 2B = 17效果还可以，毕竟是伪随机数吧，不能要求太高，一下是我用C语言的实现#include <stdio.h>#include <windows.h>// Global variableint seed = 0;// Initialize the Seedvoid Srand ( int inSeed ){ seed = inSeed;}// Random Arithmeticint Random ( void ){ const unsigned int m = 32719; const int a = 2; const int b = 17; seed = (seed*a + b)%m; return seed;}// CPU clockint Clock ( void ){ _asm { RDTSC }}int main ( void ){ int inSeed; int randNumber; int count0 = 0, count1 = 0; printf ( "Please type the initial seed 0 for default " ); scanf ( "%d", &inSeed ); if ( inSeed != 0 ) Srand ( inSeed ); else Srand ( Clock () ); for ( int i = 0; i < 1000; i++ ) { randNumber = Random () % 2; printf ( "%d ", randNumber ); if ( randNumber == 0 ) count0++; else count1++; } printf ( "output 0 : %d ", count0 ); printf ( "output 1 : %d ", count1 ); system ( "pause" ); return 0;}如果不明白，用百度HI我吧

先srand(NULL)一下，再rand()%M

Rnd[(number)]number 的值决定了 Rnd 生成随机数的方式如果 number 的值 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。 大于 0 序列中的下一个随机数。 等于 0 最近生成的数。 省略 序列中的下一个随机数。 ====================先讨论没有加randomize时X小于0 如 rnd(-1) 以-1为种的随机数永远相同X大于0 如 rnd(1) 系统会先生成随机数列表 有N个随机数 你每执行一次rnd(1)就获取列表中下一个随机数 比如有这么个列表 程序开始时 得到0.7055475 执行第二次rnd(1)得到0.533424第三次0.5795186 你关闭程序重新打开 第一次得到还是0.7055475 .7055475 .533424 .5795186 .2895625 .301948 而你说的X>0 X<0没差别 是错的Print Rnd(1)Debug.Print Rnd(-2)和Debug.Print Rnd(-2)Print Rnd(1)结果是不一样的X等于0 最近生成的数 一般为科学型数值 这个值也是不变的rnd(x) 省略x不写 就和X>0 效果一样=========================Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。一般在使用rnd获取随机数 都是randomizeint(rnd*(上限-下限+1）+下限)这2个函数的X都是省略不写

Randomize 语句初始化随机数生成器的作用

楼上正解.

1、另外再定义一个数组，如：B(1 to 10)，用来记录对应A(i)点到过的次数。2、每次生成一个随机数 i 时，先检查一下B(i)是否为0，如为0，就直接输出并B(i)+1。如B(i)不为0，重新生产随机数 i 。3、当B(1)～B(10)均不为0的时候，对数组B进行重置清0。

编译器不同，生成随机数的方法也不同，你的程序是再TC中的方法；在VS中生成随即数的方法应该是这样的：#include <stdio.h>#include <stdlib.h>#include <time.h>#define N 10void main(){ int i; srand(time(0)); /*设置种子,并生成伪随机序列*/ for(i=0;i<N;++i) printf("%d ",rand()%100);/*得到[0,99]伪随机数*/}希望kutpbpb的回答能对你有所帮助！

randomize now指定一个随机数种子

“ randomize(random)”什么意思？是声明函数“randomize”还是什么？数据类型（int，float...)是什么？

VB里面有多个随机函数？语法Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。返回值如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。 大于 0 序列中的下一个随机数。 等于 0 最近生成的数。 省略 序列中的下一个随机数。 说明Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式。对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。Rnd 函数示例本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。Dim MyValueMyValue = Int((6 * Rnd) + 1) " 生成 1 到 6 之间的随机数值

自己看教程。

　Visual Basic中随机函数 　　格式：Rnd(<数值表达式>) 　　功能：求[0,1)之间的一个随机数 　　语法： 　　Rnd[(number)] 　　如果 number 的值是 Randomize 生成 　　小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。 　　大于 0 ，以上一个随机数为种子产生下一个随机数。 　　等于 0 ，产生与最近生成的随机数相同的随机数。 　　省略， 以上一个随机数为种子产生下一个随机数。 　　说明 　　Rnd 函数返回小于 1 但大于或等于 0 的值。 　　number 的值决定了 Rnd 生成随机数的方式。 　　对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。 　　在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。 　　为了生成某个范围内的随机整数，可使用以下公式： 　　Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 　　这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 　　注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。 编辑本段Rnd 函数示例　　本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。 　　Dim MyValue 　　MyValue = Int((6 * Rnd) + 1) " 生成 1 到 6 之间的随机数值 ,这里的int 是把后面产生的小数转换成整数！ 　　由于Rnd是[0，1），（6*Rnd）+1为[0，7）。int是求不大于number 的最大整数，所以得出1~6的随机数

random

Randomize是初始化随机函数种子用的Rnd是随机数函数。-----如果没有Randomize，那么Rnd因为种子是一样的，所以产生的随机数序列每次都是一样的。(你每次重新启动程序会发觉Rnd产生的是一样的数)有Randomize，那么每次种子都不一样，因此能产生真正是随机数。用实例说明吧。。PrivateSubCommand1_Click()PrintInt(Rnd*10)EndSub你运行下3次就好~比如得出3个随机数结果为775你关闭程序再次运行它还是775PrivateSubCommand1_Click()RandomizePrintInt(Rnd*10)EndSub而有加随机种子randomize的话你关闭再运行出来的结果就不一样了就不是775就可能是556或者其他

Rnd 函数返回一个包含随机数值的 Single。语法Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。返回值如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。 大于 0 序列中的下一个随机数。 等于 0 最近生成的数。 省略 序列中的下一个随机数。 说明Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式。对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

number就是代表一个数值Rnd会随机产生0-1之间的小数不难想到产生(a,b)区间的随机数:(b-a)*rnd+a 还有产生[a,b]区间的随机数:int((b-a+1)*rnd)+a

先在Begin后面打一个 randomize; 以初始化随机函数生成器然后可以用赋值语句来产生随机数。例： n:=random(100); 这代表随机生成一个0～99 的数。所以 你应该用 n:=random(100)+1

语句名:Randomize功 能:初始化随机数发生器用 法:RandomizeRandomize 语句示例本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。Dim MyValueRandomize " 对随机数生成器做初始化的动作。MyValue = Int(6 *Rnd+1) " 生成 1 到 7 之间(不包括7)的随机整数。你上面的没有写错，但你要不重复的话，你要把生成的放到数组里，生成后对比一下，如果有了，继续生成。这样就没有重复的了。

Option ExplicitPrivate Sub Form_click()Dim i As Integer, a(20) As IntegerRandomizeFor i = 1 To 20 a(i) = Int(Rnd * 90) + 10NextFor i = 1 To 20 Print a(i);Next iPrintFor i = 20 To 1 Step -1 Print a(i);NextEnd Sub代码如上：期待被采纳。

通过一个函数random，就会生成你需要的随机数，希望对你有帮助

Randomize "随机种子初始化Dim Int_A As IntegerInt_A=Int(Rnd()*10) "生成0-9之间的随机整数Int_A=Int(Rnd()*100) ‘生成0-99之间的随机整数希望对你有帮助：）

int(rnd * (n-m+1)) + m返回区间[m,n]内的整数