如何设置从1到10这10个数字随机选择。

中原一剑　发表于：2017-02-24 08:51:04 　

复制

��ش˸��请大哥帮我修改一下：从1到10，这10个数字中随机选一个，0不要出现

Top

MDZZ 发表于：2017-02-24 09:11:18

点击下载此附件看看是这样吗

Top

宏鹏发表于：2017-02-24 09:59:46

生成50个0到100以内的随机数[Access软件网]
http://www.accessoft.com/article-show.asp?id=7724

Top

中原一剑发表于：2017-02-24 10:22:36

我的意思是从1到10这10个数字中随机选一个，0不要出现

Top

MDZZ 发表于：2017-02-24 10:38:54

Int(Rnd() * 10 + 1)

Top

飘摇王发表于：2017-02-28 13:42:28

Private Sub Command65_Click()
Dim i, s, s1 As Integer
For i = 1 To 1
s1 = Int(Rnd() * 10 + 1)
s = s & s1 & " "
Next i
Me.Text66.Value = s

End Sub

MDZZ老师的

Top

朱先生发表于：2017-02-28 16:02:35

Private Sub Command65_Click()
Dim i, s, s1 As Integer
    For i = 1 To 10
    s1 = Rnd * 9 + 1
        s = s & s1 & " "
    Next i
    Me.Text66.Value = s
End Sub

0 不出现了

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

如何设置从1到10这10个数字随机选择。