weixin_40187983
2019-01-08 17:34
采纳率: 73.6%
浏览 541

vb.net 随机生成RGB色,但不能重覆RGB色值

我想生成一个随机且不重覆的RGB色值,100组(实际上不一定,可能更少或更多)

我通过while载入100组RGB色,请问这个产生随机RGB的函数怎么写呢?

Dim rowIndex as long=0
While rowIndex < 100
    mytb.Rows(rowIndex).Item(0)=此处载入RGB色的函数
    rowIndex+=1
End While

谢谢
使用vb.net

  • 写回答
  • 好问题 提建议
  • 追加酬金
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • threenewbee 2019-01-08 23:50
    已采纳
    Dim rnd As New Random
    Dim arr(0 To 99) As Long
    Dim rowIndex as long=0
    While rowIndex < 100
        Do
            r = rnd.NextInt()
            if arr.Take(rowIndex).All(Function(x) x <> r) exit do
            Loop
        mytb.Rows(rowIndex).Item(0)=r
            arr(rowIndex) = r
        rowIndex+=1
    End While
    
    评论
    解决 无用
    打赏 举报
查看更多回答(1条)

相关推荐 更多相似问题