vb.net随机生成数字,vb中随机生成数字
怎么用vb.net随机产生5个不同的数，范围1-33，求帮忙改一下
Private Sub Command1_Click()
成都创新互联公司主要从事成都网站制作、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务天镇,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
Dim num(6) As Integer
Dim i As Integer, j As Integer
Dim tmp As Integer
Randomize '防止每次生出随机数一样
For i = 0 To 5
num(i) = Int(Rnd * 53) + 1
Next
PrintNum "新生成的6个随机数为：", num()
For i = 0 To 5
For j = 0 To 5
If num(j) num(j + 1) Then
tmp = num(j)
num(j) = num(j + 1)
num(j + 1) = tmp
End If
Next
Next
PrintNum "排序后的6个随机数为：", num()
End Sub
vb.net 随机出数字，但要求包含特定数字如何做？
下面是你需要的，经过三次随机，可以看一下，直接调用函数返回一个字符就是你要的，看不懂再追问哈
Structure jiqi
Dim num As Integer
Dim num2 As Integer
End Structure
Public Function chansheng() As String
Dim str As String = ""
Dim n As Integer = 0
Dim p68 As Integer
Randomize()
p68 = Int(Rnd() * 2) + 1
Dim a(10), b(8) As Integer
For i = 1 To 6
b(i) = i - 1
Next
b(7) = 7
b(8) = 9
For i = 1 To 6
Randomize()
a(i) = b(Int(Rnd() * 8) + 1)
Next
If p68 = 1 Then
For i = 7 To 10
a(i) = 6
Next
ElseIf p68 = 2 Then
For i = 7 To 10
a(i) = 8
Next
End If
Dim c(10) As Integer
Dim temp As jiqi
Dim pi(10) As jiqi
For i = 1 To 10
pi(i).num = a(i)
pi(i).num2 = Int(Rnd() * 1000) + 10
Next
For i = 1 To 10
For j = 1 To 10 - i
If pi(j).num2 pi(j + 1).num2 Then
temp = pi(j + 1)
pi(j + 1) = pi(j)
pi(j) = temp
End If
Next j
Next i
For i = 1 To 10
str = str pi(i).num
Next
Return str
End Function
vb.net怎么随机生成5个不同是数（1-33内的数），大神求救
想要生成多少个都行。
Randomize()随机打乱
dim a1 as integer=cint(rnd()*32))+1
dim a2 as integer=cint(rnd()*32))+1
dim a3 as integer=cint(rnd()*32))+1
dim a4 as integer=cint(rnd()*32))+1
dim a5 as integer=cint(rnd()*32))+1
vb.net中产生三位正整数的随机数的程序写法
'项目：VB中产生在一定正整数范围内的不重复的随机数'作者：qq15495835Private Sub Command1_Click() Max = 100 '随机数上限值 Min = 1 '随机数下限值 Amount = 10 '产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环 ReDim a(Amount) Randomize For i = 0 To Amount a(i) = Int((Max - Min + 1) * Rnd + Min) For j = 0 To i If i j And a(i) = a(j) Then i = i - 1 Next Next Text1 = Join(a, vbCrLf)End Sub'请采纳参考！谢谢！
vb.net怎样生成随机数
Dim a As Integer = CInt(Int((9999 - 1000 + 1) * Rnd() + 1000))
注：randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
这里，upperbound 是此范围内最大的数，lowerbound 是此范围内最小的数。
VB.NET中随机产生十个数字
下面的代码已经经过测试
Private Sub RandList()
Dim I As Integer
Dim R As New System.Random
ListBox1.Items.Clear()
For I = 1 To 10
ListBox1.Items.Add(R.Next(30, 100).ToString)
Next
End Sub
分享名称：vb.net随机生成数字,vb中随机生成数字
文章起源：http://6mz.cn/article/hodgop.html