Function:
Click产生会产生5个10位随机数显示在画面上;
Click清空,会情况5个输入框,供用户重新产生;
Click保存到数据库,可以将数据保存到库RANDOM;
Clickt退出,则退出应用程序。
Notice:
程序中必须将保存到数据库和产生随机数也成公用的function, 并且放到一个Module中;
程序中可以有全局变量,但form不可以有全局变量;
程序的Start Object,必须是sub main。当场结分。急。急。。
Click产生会产生5个10位随机数显示在画面上;
Click清空,会情况5个输入框,供用户重新产生;
Click保存到数据库,可以将数据保存到库RANDOM;
Clickt退出,则退出应用程序。
Notice:
程序中必须将保存到数据库和产生随机数也成公用的function, 并且放到一个Module中;
程序中可以有全局变量,但form不可以有全局变量;
程序的Start Object,必须是sub main。当场结分。急。急。。
Dim i As Integer, r As Integer, Str As String
Randomize
For i = 1 To 10
r = Left(Rnd * 10, 1)
Str = Str & r
Next
初始化随机数生成器。Public Shared Sub Randomize [ number ]
各部分说明
number
可选项。一个 Object 或任何有效的数值表达式。
备注
Randomize 用 number 将 Rnd 函数的随机数生成器初始化,并给它一个新的种子值。如果省略 number,则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize,则(无参数的)Rnd 函数使用第一次调用 Rnd 函数的同一数字作为种子,并从此使用上一次生成的数字作为种子值。注意 若要重复随机数序列,请在使用带数值参数的 Randomize 之前先调用带负参数的 Rnd。使用带有相同 number 值的 Randomize 不会重复前一序列。
安全说明 由于 Random 语句和 Rnd 函数从一个种子值开始,然后生成处于有限范围内的数字,因此,如果某个人知道生成这些数字的算法,他就可以预测结果。因此,不应使用 Random 语句和 Rnd 函数生成加密使用的随机数。
示例
本例使用 Randomize 语句将随机数生成器初始化。由于省略了数字参数,Randomize 使用来自 Timer 函数的返回值作为新种子值。Dim MyValue As Integer
Randomize ' Initialize random-number generator.
MyValue = CInt(Int((6 * Rnd()) + 1)) ' Generate random value between 1 and 6.
要求
命名空间:Microsoft.VisualBasic模块:VBMath程序集:Microsoft Visual Basic .NET 运行库(位于 Microsoft.VisualBasic.dll 中)
返回一个 Single 类型的随机数。Public Shared Function Rnd[(number)] As Single
参数
number
可选项。一个 Single 值或任何有效的 Single 表达式。
返回值
如果 number 为 Rnd 生成
小于零 每次都相同的数字,并将 number 用作种子。
大于零 序列中的下一个随机数。
等于零 最近生成的数字。
未提供 序列中的下一个随机数。 备注
Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式:由于每一次后续调用 Rnd 函数都用序列中前一个生成的数作为下一个数的种子,因此对于任何给定的初始种子都会生成相同的数字序列。在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有一个基于系统计时器的种子。若要生成某给定范围内的随机整数,可使用此公式:CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
这里,upperbound 是此范围的上限,而 lowerbound 是范围的下限。注意 若要重复随机数序列,请在使用带数值参数的 Randomize 之前先调用带负参数的 Rnd。使用带有相同 number 值的 Randomize 不会重复前一序列。
安全说明 由于 Random 语句和 Rnd 函数从一个种子值开始,然后生成处于有限范围内的数字,因此,如果某个人知道生成这些数字的算法,他就可以预测结果。因此,不应使用 Random 语句和 Rnd 函数生成加密使用的随机数。
示例
本例使用 Rnd 函数生成一个 1 到 6 之间的随机整数值。Dim MyValue As Integer
MyValue = CInt(Int((6 * Rnd()) + 1)) ' Generate random value between 1 and 6.
要求
命名空间:Microsoft.VisualBasic模块:VBMath程序集:Microsoft Visual Basic .NET 运行库(位于 Microsoft.VisualBasic.dll 中)
text1.text = Int(100000000 * Rnd + 1000000000)
text2.text = Int(100000000 * Rnd + 1000000000)
text3.text = Int(100000000 * Rnd + 1000000000)
text4.text = Int(100000000 * Rnd + 1000000000)
text5.text = Int(100000000 * Rnd + 1000000000)
End Sub
Private Sub Command1_Click清空()
text1.text = ""
text2.text = ""
text3.text = ""
text4.text =""
text5.text = ""
End Sub
Private Sub Command1_Clickt退出()
UNLOAD ME
End Sub先给分,再告诉你保存
你们可以测试 一下!! 在10个数中每 次运行的结果都是一样的。就是在得到10 个数后 EXIT 一次
然后 再运行。我测试 过了没有一次不一样的!!
而且我用的是29位的,还是一样的!! 这个函数不能用于多次,用一次可以。我花了三天的时间写一种简单的注册码用了这种方法结果三天白费了!! 你再想想吧!!
Randomize
这样就会产生随机数了