怎么用vb.net随机产生5个不同的数，范围1-33，求帮忙改一下

Private Sub Command1_Click()

创新互联专业为企业提供射阳网站建设、射阳做网站、射阳网站设计、射阳网站制作等企业网站建设、网页设计与制作、射阳企业网站模板建站服务，10多年射阳做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

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产生随机数

方法名称：next()；功能描述：返回一个0~2147483647之间的整数

方法名称：next(i)；功能描述：返回一个0~i之间的整数

方法名称：next(i，j)；功能描述：返回一个i~j之间的整数

方法名称：Nextdouble()；功能描述：返回一个0~1之间的随机小数

================

使用方法：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim rand = New System.Random()

MsgBox(rand.next().ToString())

End Sub

==========================

产生N个不同数的话，我给你个我写的VB的代码，你稍微改下：

产生0-10的数：

Private Sub Command1_Click()

Randomize

Dim a(10) As Long

n = 10

For i = 0 To n

a(i) = Int(Rnd() * (n + 1))

For j = 0 To i - 1

If a(i) = a(j) Then

i = i - 1

Exit For

End If

Next

Next

For i = 0 To n

Print a(i)

Next

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随机数教程 vb中随机数生成方法
文章出自：http://kswjz.com/article/doihjhj.html