锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net随机不重复 随机生成不重复整数vb

IT技术随机数

VB.net随机产生10个小于数字不重复Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j
j = GetRndNotRepeat(1, 10, 10)
If j(0) Then
For i = 1 To 10
MsgBox(j(i))
Next
End If
End Sub
Public Function GetRndNotRepeat(ByVal NumMin As Integer, ByVal NumMax As Integer, ByVal n As Integer)
'编制:xsfhlzh
'功能:取NumMin到NumMax间的n个随机整数
'说明:取数标志数组是Byte ， 每一位表示NumMin到NumMax间某个数的状态
Dim arr() As Integer
If nNumMax - NumMin1 Then
ReDim arr(0)
arr(0) = 0
Return arr
Else
ReDim arr(n)
Dim m As Integer
Dim b() As Byte
m = Int((NumMax - NumMin) / 8)
ReDim b(m)
'取数标志
Dim i
Dim x, y, z As Integer
Randomize()
arr(0) = 1
For i = 1 To n
Do
'找到x的位置 ， y表示x在数组的第几个字节，z表示x在该字节的第几位
x = Int(Rnd() * (NumMax - NumMin1))NumMin
y = x - NumMin
z = 2 ^ (y Mod 8)
y = y \ 8
Loop While b(y) And z
b(y) = b(y) Or z
arr(i) = x
'找到未取的数，并放入数组 ， 设置标志位
Next i
End If
Return arr
End Function
vb.net取随机数问题 从1-10中取6个数字，要求这6个数字不重复 。该如何编写？需要自己建一个Function？Imports System.Linq
Module Module1
Sub Main()
Dim nums() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim r As New Random
Dim result As Integer() = nums.OrderBy(Function(x)
Return r.Next
End Function).Take(6).ToArray
'检验
For Each n In result
Console.WriteLine(n)
Next
Console.ReadLine()
End Sub
End Module
vb.net中产生三位正整数的随机数的程序写法'项目：VB中产生在一定正整数范围内的不重复的随机数'作者：qq15495835Private Sub Command1_Click() Max = 100'随机数上限值 Min = 1'随机数下限值 Amount = 10'产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环 ReDim a(Amount) Randomize For i = 0 To Amounta(i) = Int((Max - Min1) * RndMin)For j = 0 To iIf ij And a(i) = a(j) Then i = i - 1Next Next Text1 = Join(a, vbCrLf)End Sub'请采纳参考！谢谢！
vb.net 编写一个函数，此函数每秒运行一次 ， 每次随机生成的数值都100%不会相同，可以考虑借用时间对象其实用Environment.TickCount就可以了，函数获取系统启动后经过的毫秒数
因为时间不重复，所以如果间隔1秒永不重复且随机
【vb.net随机不重复 随机生成不重复整数vb】关于vb.net随机不重复和随机生成不重复整数vb的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：如何在学校旁边做营销销售，如何在学校周围做外卖

    下一篇：erp系统几时出现，erp系统的形成和发展大致经历了五个阶段