UC知道vb中每个随机数后面再显示除以225的结果
来源：百度知道 编辑：UC知道 时间：2024/06/15 19:06:42
vb中每个随机数后面再显示除以225的结果 将产生的随机数 和除以225的结果 显示到TXT文档中.在下面的式子里修改
Private Sub Form_Click()
Dim n As Integer
Randomize '生成随机种子
Do
n = Int(Rnd * (878 - 776 + 1)) + 776 'int(rnd*(m-n+1))+n是产生[n,m]之间随机整数的通用公式
Loop Until n Mod 4 = 0 '当n除以4的余数为0时（也就是n为4的倍数），退出循环
Print n
End Sub
一次运行显示100组数据 输出在TXT里 结果保留5位小数
Private Sub Form_Click()
Dim n As Integer
Randomize '生成随机种子
Do
n = Int(Rnd * (878 - 776 + 1)) + 776 'int(rnd*(m-n+1))+n是产生[n,m]之间随机整数的通用公式
Loop Until n Mod 4 = 0 '当n除以4的余数为0时（也就是n为4的倍数），退出循环
Print n
End Sub
一次运行显示100组数据 输出在TXT里 结果保留5位小数
Private Sub Form_Click()
Dim n As Integer, k As Integer
Randomize '生成随机种子
Open "d:\Rnd.txt" For Output As #1
Do
n = Int(Rnd * (878 - 776 + 1)) + 776 'int(rnd*(m-n+1))+n是产生[n,m]之间随机整数的通用公式
If n Mod 4 = 0 Then '当n除以4的余数为0时（也就是n为4的倍数）
Print #1, n; Format(n / 225, ".000") '打印n以及n除以225的余数，保留3位小数
k = k + 1
If k = 100 Then Exit Do '输出第100个满足要求的余数后，退出循环
End If
Loop
Close #1
MsgBox "生成完毕！"
End Sub
Private Sub Form_Click()
open "c:\1.txt" for append as #1
Dim n As Integer
Randomize '生成随机种子
Do
n = Int(Rnd * (878 - 776 + 1)) + 776 'int(rnd*(m-n+1))+n是产生[n,m]之间随机整数的通用公式
print #1,n,print #1 n/225
Loop Until n Mod 4 = 0 '当n除以4的余数为0时（也就是n为4的倍数），退出循环
Print #1, n
close #1
End Sub
Private Sub Form_Click()
open "d:\1.txt" for append as #1
Dim n As Integer
Randomize<