Vb中使用InputBox函数输入一位数N，在窗体上输出N位的随机整数的代码是什么
3个回答
展开全部
Private Sub Form_Click() '点击窗体运行
Dim N As Integer, X As Long
Randomize
N = Val(InputBox("请输入一个一位数"))
If N > 0 And N < 10 Then
X = Int(Rnd * 9 * 10 ^ (N - 1)) + 10 ^ (N - 1)
Print X
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Dim MyValue
MyValue = Int(Rnd*10^N)
if MyValue < 10^(N-1) then
MyValue = MyValue + (Int(Rnd*9)+1) * 10^(N-1)
end if
没认证是否正确，思路是产生一个N位的随机数，不满N位在最高位再补一个一位随机数
MyValue = Int(Rnd*10^N)
if MyValue < 10^(N-1) then
MyValue = MyValue + (Int(Rnd*9)+1) * 10^(N-1)
end if
没认证是否正确，思路是产生一个N位的随机数，不满N位在最高位再补一个一位随机数
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
