VB6版本 
 
 在VB6中生成随机数有些不同。 我不说哪个更好，因为我只熟悉VB6方法。 但是肯定会产生一个随机数（更正确地说是一个伪随机数）是 
 
 在VB6中更简单 。 
 您只需调用Rnd（）函数。 
 
 此示例表单将执行相同的操作-每次单击按钮，它将显示1到10之间的随机数。 
 
 
 若要使用此代码，请在VB6中启动一个新项目。 创建一个新窗体，并添加一个命令按钮。 将命令按钮的名称更改为“ cmdRandom”。 
 
 
 如果然后双击该表单，您将看到一个“空”窗口代码模板，其外观应与此类似。 
 
 
Option Explicit 
Private Sub Form_Load() 
End Sub
 选择整个窗口（只需按Ctrl-A），然后粘贴此代码即可替换它... 
 
Option Explicit
DefLng A-Z 
Private Sub Form_Load()
  ' At startup, "seed" VB's pseudo-random number generator.
  Randomize
End Sub 
Private Sub cmdRandom_Click()
  ' Each time the button is clicked, display
  ' a message box showing a random number between 1 and 10.
  MsgBox "The random number generated is: " & Format(RandomNumBetween(1, 10))
End Sub 
Private Function RandomNumBetween(ByVal LowerLimit As Long, ByVal UpperLimit As Long) As Long
  ' This function returns a pseudo-random number between
  ' the specified limits (inclusive).
  RandomNumBetween = Rnd * (UpperLimit - LowerLimit) + LowerLimit
End Function
 对于那些喜欢它的人，我将附上Frm文件的副本，您可以将其简单地添加到您的项目中。 
 
 这里有些事情可能值得一提... 
 
 
 从外观上看，这不适用于VB.Net，但是在VB6中，最好将随机数生成封装在这样的函数中。 忘记正确的程序来生成两个极限之间的随机数很容易，人们往往会得到偶尔超出极限的数字，从而导致程序错误。 设置类似的通用功能（将来您将始终使用它）可防止此类错误。 
 您可能已经在代码提示中注意到Option Explicit 。 如果您的VB安装程序没有自动插入此，您应该下拉到T ools菜单中选择[B] O ptions，进入编辑器选项卡，勾选选件R equire变量声明 。 有关此选项的讨论将很快在这里发布，但与此同时，请从我这里获取-这将防止出现很多错误。 
 也许您还注意到了DefLng AZ 。 如果您未指定其他类型，这仅指示VB使用Long作为所有变量的默认数据类型。 每当使用整数时，通常最好使用Long数据类型，除非有特殊的原因要避免使用它。 作为32位处理器上的本机数据类型，它需要较少的转换，因此处理速度稍快。 
 
 

  
 
   
 附加的文件 
 
   
 Form1.zip （725字节，2357视图） 
 
  
 
 
 
From: https://bytes.com/topic/visual-basic/insights/738862-generating-random-numbers-vb6

VB6.0升级到VB.NET后，发现随机数函数也发生了变化，在VB.NET中Random类是一种能够产生满足某些随机性统计需求的数字序列的伪随机数生成器。
 在代码把光标定位到单词Random，点F1键获取帮助。
 一、Random类常用知识点（以下内容来源于帮助，点击进入Random类帮助网页）：
 1、构造函数：
 （1）、Random() 
 使用与时间相关的默认种子值，初始化 Random 类的新实例。
 （2）、Random(Int32) 
 使用指定的种子值初始化 Random 类的新实例。
 参数为种子值，数据类型为Int32，用来计算伪随机数序列起始值的数字。 如果指定的是负数，则使用其绝对值。
 2、方法：
 （1）、Next：返回一个随机整数。
 A、无参数：Next()——返回一个非负随机整数。
 B、一个参数：Next(maxValue) ——返回一个小于所指定最大值的非负随机整数。
 参数（maxValue）：类型为Int32，要生成的随机数的上限（随机数不能取该上限值）。maxValue 必须大于或等于 0。
 返回值：类型为Int32，大于或等于零且小于 maxValue 的 32 位有符号整数，即：返回值的范围通常包括零但不包括 maxValue。 但是，如果 maxValue 等于 0，则返回 maxValue。
 C、两个参数：Next(minValue,maxValue)——返回在指定范围内的任意整数。
 参数（minValue）：类型为Int32，返回的随机数的下界（随机数可取该下界值）。
 参数（maxValue）：类型为Int32，返回的随机数的上界（随机数不能取该上界值）。 maxValue 必须大于或等于 minValue。
 返回值：类型为Int32，一个大于等于 minValue 且小于 maxValue 的 32 位带符号整数，即：返回的值范围包括 minValue 但不包括 maxValue。 如果 minValue 等于 maxValue，则返回 minValue。
 （2）、NextBytes：用随机数填充指定字节数组的元素。
 NextBytes(buffer)
 参数（buffer）：Byte[]，包含随机数的字节数组。
 说明：字节数组的每个元素设置为随机数字大于或等于 0，且小于或等于MaxValue。
 （3）、NextDouble：返回一个大于或等于 0.0 且小于 1.0 的随机双精度型浮点数。
 没有参数，返回值类型为Double。
 3、使用方法：
 要生成各种类型的随机数，必须先得到它的实例对象，然后再生成随机数。注意只实例化一个对象，可以多次方法调用，生成的数字分布均匀，每个数字返回的可能性均相等。
 二、Random类生成随机数的弱点
 Random类生成随机数是伪随机数，所以在Random的内部产生机制中还是有一定规律的，并非是真正意义上的完全随机。 如果种子值相同则每次均产生相同的随机数。如下面代码在构造函数中指定了种子值：
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rand As Random = New Random(66)
        For i As Integer = 0 To 10
            Me.Label1.Text = Me.Label1.Text & rand.Next() & Environment.NewLine
        Next
    End Sub
 
每次运行程序均生成相同的随机数序列，如下图所示，不信你就测试一下。
 
 三、怎样才能每次运行程序时均生成不同的随机数？
 其实很简单，就是每次运行程序时改变Random类的构造函数的种子值，可以有以下做法：
 第一种方式： 使用无参数的Random()构造函数；
 默认种子值是使用DateTime.Now.Ticks作为种子值的，如果触发Random函数间隔时间很短， 就有可能造成产生一样的随机数。
 第二种方式： 使用RNGCryptoServiceProvider生成种子值；生成速度较慢。
 在帮助里有看到推荐，如下图：
 
 第三种方式： 使用Guid生成种子值； 生成速度快。
 测试代码如下：
 
Public Class Form1
    ''' <summary>
    ''' 通过RNGCryptoServiceProvider获取种子值
    ''' </summary>
    ''' <returns></returns>
    Private Shared Function GetRandomSeed() As Integer
        Dim bytes As Byte() = New Byte(3) {}
        Dim rng As System.Security.Cryptography.RNGCryptoServiceProvider = New System.Security.Cryptography.RNGCryptoServiceProvider()
        rng.GetBytes(bytes)
        Return BitConverter.ToInt32(bytes, 0)
    End Function
    
    ''' <summary>
    ''' 通过Guid获取种子值
    ''' </summary>
    ''' <returns></returns>
    Private Shared Function GetRandomSeedbyGuid() As Integer
        'Return New Guid().GetHashCode()
        Return Guid.NewGuid().GetHashCode()
    End Function

    ''' <summary>
    ''' 默认种子值生成随机数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnTime_Click(sender As Object, e As EventArgs) Handles BtnTime.Click
        Dim rand As Random = New Random()
        Me.Label1.Text = ""
        For i As Integer = 0 To 10
            Me.Label1.Text = Me.Label1.Text & rand.Next() & Environment.NewLine
        Next
    End Sub
    
    ''' <summary>
    ''' RNGCryptoServiceProvider种子生成随机数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnRNG_Click(sender As Object, e As EventArgs) Handles BtnRNG.Click
        Dim rand As Random = New Random(GetRandomSeed())
        Me.Label1.Text = ""
        For i As Integer = 0 To 10
            Me.Label1.Text = Me.Label1.Text & rand.Next() & Environment.NewLine
        Next
    End Sub
    
    ''' <summary>
    ''' Guid种子生成随机数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnGuid_Click(sender As Object, e As EventArgs) Handles BtnGuid.Click
        Dim rand As Random = New Random(GetRandomSeedbyGuid())
        Me.Label1.Text = ""
        For i As Integer = 0 To 10
            Me.Label1.Text = Me.Label1.Text & rand.Next() & Environment.NewLine
        Next
    End Sub
End Class
 
四、生成数字和字母组合的随机数
 开始想到用ASCII码，但数字、小写字母及大写字母的ASCII码是不连续的，觉得不是很理想，下面的方法感觉还不错，做个笔记。
 
Public Function GetAlphanumeric() As String
        Dim str As String = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim rnd As New Random()
        '返回数字
        'Return rnd.[Next](10).ToString()
        '返回小写字母
        Return str.Substring(10 + rnd.[Next](26), 1)
        '返回大写字母
        'Return str.Substring(36 + rnd.[Next](26), 1)
        '返回大小写字母混合
        'Return str.Substring(10 + rnd.[Next](52), 1)
        '返回小写字母和数字混合
        'Return str.Substring(0 + rnd.[Next](36), 1)
        '返回大写字母和数字混合
        'Return str.Substring(0 + rnd.[Next](36), 1).ToUpper()
        '返回大小写字母和数字混合
        'Return str.Substring(0 + rnd.[Next](61), 1)
    End Function
 
五、生成不重复随机数
 1、 从N个数中随机取出一个数，与数组第N个数调换；
 2、 从前N-1个数中随机取出一个数，与第（N-1）个数调换；
 ……
 代码通过_end-1，把生成过的数用最后一个数代替，省去删除移动的开销。
 代码如下：
 
Public Function GetRandomSequence(ByVal total As Integer) As Integer()
        Dim sequence As Integer() = New Integer(total - 1) {}
        Dim output As Integer() = New Integer(total - 1) {}

        For i As Integer = 0 To total - 1
            sequence(i) = i
        Next

        Dim random As Random = New Random()
        Dim _End As Integer = total - 1

        For i As Integer = 0 To total - 1
            Dim num As Integer = random.[Next](0, _End + 1)
            output(i) = sequence(num)
            sequence(num) = sequence(_End)
            _End -= 1
        Next

        Return output
    End Function
 
本文参考了以下博文：
 不重复随机数列生成算法
 学习过程得到网友uruseibest的帮助，表示感谢！

 
        函数rand()是真正的随机数生成器，而srand()会设置供rand()使用的随机数种子。如果你在第一次调用rand()之前没有调用srand()，那么系统会为你自动调用srand()。而使用同种子相同的数调用 srand()会导致相同的随机数序列被生成。
         srand((unsigned)time(NULL))则使用系统定时/计数器的值做为随机种子。每个种子对应一组根据算法预先生成的随机数，所以，在相同的平台环境下，不同时间产生的随机数会是不同的，相应的，若将srand（unsigned）time(NULL)改为srand(TP)（TP为任一常量），则无论何时运行、运行多少次得到的“随机数”都会是一组固定的序列，因此srand生成的随机数是伪随机数。
         库函数中系统提供了两个函数用于产生随机数：srand()和rand()。 原型为：
         函数一：int rand(void)；
         从srand (seed)中指定的seed开始，返回一个[0, RAND_MAX（0x7fff）]间的随机整数。
         函数二：void srand(unsigned seed)；
         参数seed是rand()的种子，用来初始化rand()的起始值。
         但是，要注意的是所谓的“伪随机数”指的并不是假的随机数。其实绝对的随机数只是一种理想状态的随机数，计算机只能生成相对的随机数即伪随机数。计算机生 成的伪随机数既是随机的又是有规律的 —— 一部份遵守一定的规律，一部份则不遵守任何规律。比如“世上没有两片形状完全相同的树叶”，这正点到了事物的特性 —— 差异性；但是每种树的叶子都有近似的形状，这正是事物的共性 —— 规律性。从这个角度讲，我们就可以接受这样的事实了：计算机只能产生伪随机数而不是绝对的随机数。
         系统在调用rand（）之前都会自动调用srand()，如果用户在rand()之前曾调用过srand()给参数seed指定了一个值，那么 rand()就会将seed的值作为产生伪随机数的初始值；而如果用户在rand()前没有调用过srand()，那么系统默认将1作为伪随机数的初始 值。如果给了一个定值，那么每次rand()产生的随机数序列都是一样的~~
         所以为了避免上述情况的发生我们通常用srand((unsigned)time(0))或者srand((unsigned)time(NULL))来 产生种子。如果仍然觉得时间间隔太小，可以在(unsigned)time(0)或者(unsigned)time(NULL)后面乘上某个合适的整数。 例如,srand((unsigned)time(NULL)*10)
         另外，关于time_t time(0)：time_t被定义为长整型，它返回从1970年1月1日零时零分零秒到目前为止所经过的时间，单位为秒。
 以上转自百度百科：rand函数
 

 
生成随机数函数rand用法，如代码所示:
 
 
#include "stdafx.h"
#include <time.h>
#include <stdlib.h>

int _tmain(int argc, _TCHAR* argv[])
{
	// 初始化随机数种子
	// time函数返回从1970年1月1日零时零分零秒到目前为止所经过的时间，单位为秒
	srand((int)time(NULL));

	int j;
	for (int i = 0; i < 10; i++) {
		j = (rand() * 10) / RAND_MAX + 1; // 生成1~10之间的随机数
		printf("j = %d \n", j);
	}

	unsigned start = (rand() * 1000)/ RAND_MAX + 15550; // 生成15550~16549之间的随机数
	printf("start = %d \n", start);

    start &= ~1; // 把start变为偶数，如果是奇数，则start变为start - 1的偶数
	printf("start = %d \n", start);

	getchar();

	return 0;
}
 
运行结果如下所示：
 
j = 9
 j = 6
 j = 7
 j = 8
 j = 1
 j = 5
 j = 3
 j = 1
 j = 10
 j = 9
 start = 16185
 start = 16184

 
 
rnd函数返回或者说产生一个小于1但大于或等于0的single类型的随机数。
 
 
 
 
产生随机数之前需要一个种子。
 
 
·不同的种子，可使随机数生成器生成不同的随机数；
 
 
·在一个种子下，生成的随机数相同。
 
 
 
 
随机数生成器的语句为randomize。格式为：randomize[x]。
 
 
·当x>0时，使用前一次调用rnd函数产生的随机数作为本次产生随机数的种子。一般通过使用该参数获得不同的随机数序列。
 
 
·当x<0时，使用x作为随机数种子，用于产生相同的随机数序列。
 
 
·当x=0时，返回最近一次调用rnd函数生成的随机数。
 
 
·当x省略时，调用rnd函数之前，如果没有执行randomize语句，则与x>0的情况相同。反之，如果执行了randomize语句，则rnd函数使用randomize语句提供的新种子值，返回随机数。
 
 
 
 
rnd函数产生的是[0，1）区间内的single类型数据。
 
 
*&&*如果要生成其他区间的随机数或者英文字母，则要通过表达式来实现：
 
 
·生成[0，x）区间的随机数single类型数据，使用表达式rnd*x
 
 
·生成[m，n）区间的随机数single类型数据，使用表达式m+rnd*（n-m）
 
 
·生成[m，n]区间的随机整数，使用表达式int（m+rnd*（n-m+1））或者使用表达式m+int（rnd*（n-m+1））
 
 
·生成一个随机的大写英文字母，使用表达式chr（int（rnd*27）+65）
 
 
·生成一个随机的小写英文字母，使用表达式chr（int（rnd*27）+97）