关于VB随机数字

来源：百度知道 编辑：UC知道 时间：2024/06/01 16:10:04
请高手给我 写段 能随机出 多位数的代码 并且最好自主选着 随机出几位数字 有用的回答 高分回报

你要的程序来了,自己已经验证OK!!!

Private Sub Command1_Click()
Dim num As Integer
num = Int(Val(InputBox("请输入随机出数字的位数(整形):", "输入位数")))
MsgBox "随机 " & num & "位数:"& Int((10 ^ num - 1 + 1) * Rnd + 1)
End Sub

自己试试看,以后共同学习!!!

Private Sub Command1_Click()
Dim N As Integer, I As Integer, St As String
Randomize
N = Int(Val(InputBox("输入数字的位数", "输入位数", 8)))
For I = 1 To N
St = St + Trim(Str(Int(Rnd * 10)))
Next
Print "这个"; N; "位数的完整值是："; St
Print "转化为数字后形式为："; Val(St)
End Sub

Private Sub Command1_Click()
n = Val(InputBox("输入随机位数"))
Print Int(Rnd * (10 ^ n))
End Sub

MsgBox Int(Rnd * (10 ^ Val(InputBox("输入随机位数："))))

用Rnd可以的