如何用VB实现向表中添加随机数据

我想实现在数据库中的一个表中自动添加随机的数据这样一个功能， VB中用代码怎么实现啊数据库是ACCESS 例如：我有这样一个表编号年月日运行时合格时合格率想随机的添加如下类似的数据： 1 2007年3月8日 60 60 100 其中合格率＝合格时/运行时*100 运行时，合格时在0－60之间希望那位高手给我讲讲用什么方法可以实现

举报该问题

其他回答

第1个回答 2019-06-22

用随机函数
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
是不会得到重复的随机数序列的。

相似回答

请问在EXCEL表格某个位置随机加1到5的VB按钮怎么写?答：Sub AddRndNumb() Dim Result As Long Dim lngUp As Long, lngLow As Long lngLow = 1 lngUp = 5 Randomize Sheets("sheet1").Range("G2") = Int(Rnd() * (lngUp - lngLow + 1) + 1) '产生在lngUp-lngLow之间随机整数End SubSub ClearRng() Sheets("she...

如何从vb里随机生成数字生成在EXCEL表格里?答：“保存路径”格式是“c:\1.xls”另:exl.saveas要改为obook.saveas

vb 在label中随机产生10以内的加减乘除怎么做答：在窗体上加1个标签label1，一个按钮Command1，参考代码如下：Private Sub Command1_Click()Dim a(1 To 2) As Integer Dim x As Integer Dim n As Integer Dim i As Integer Dim TF As Boolean Dim MyOP As String '产生2个不相等的数，用于运算 Randomize n = 0 Do While n < 2 x = ...

用VB做一个产生随机数的程序答：用VB做一个产生随机数的程序过程：1 创建随机数窗体：2 编写产生随机数的事件：Private Sub Command1_Click()Randomize '初始化随机数生成器 List1.AddItem Int((Rnd * 9) + 1)End Sub 3 运行结果：

vb怎么产生随机数? 指定随机数从text1至text2,点击按钮输出的3个随机...答：private sub command1_click()dim a as integer dim b as integer dim r(1 to 3) as integer dim i as integer a=val(text1.text)b=val(text2.text)for i=1 to 3 randomize if a

如果使VB中里text控件产生随机数据答：Private Sub Command1_Click()Text1.Text = ""Dim letter() As String letter() = Split("a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z", "|")Dim i As Integer For i = 1 To 24 Text1.Text = Text1.Text + letter(Int(Rnd() * 25))Next Text2...