- 博客(1)
- 收藏
- 关注
原创 VB生成不重复的随机数
Private Sub Command1_Click()Dim i As Integer, k As Integer, j As IntegerDim n(10) As IntegerDim m As IntegerRandomizem = 0Text1.Text = ""k = Int(Rnd * 10)n(0) = km = 1k = Int(Rnd * 10)n(1) = km = 2Doaaa:For j = 0 To m - 2...
2021-09-02 11:43:18 2401
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人