随机生成n个整数

Private Sub command1_click()

    Dim a() As Integer 'a用来存放生成的随机n个正整数

        n = InputBox("请输入一个整数n,n>=1")

    ReDim a(1 To n)

    Dim p As String 'p表示随机生成的n个整数

    Randomize

        p = ""

    For i = 1 To n '生成n个整数

        Do

            x = Int(Rnd * 90) + 10 '存放中间生成的一个随机数,范围是099,包括0也包括99

            yes = 0 '用来判断生成的x要还是不要,0表示要,1表示不要

            For j = 1 To i - 1 '对要生成的第i个随机数进行检测,检测结果放在yes

                If x = a(j) Then yes = 1: Exit For '防止出现重复的数

            Next

        Loop While yes = 1

        a(i) = x

        p = p & Str(a(i)) & ","

    Next

    Label1.Caption = LTrim(Left(p, Len(p) - 1)) 'label1现实最终的随机生成的n个整数

End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值