大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net随机数语句 vb60随机数

vb.net程序,利用随机函数产生100个1到100之间的整数,求其中的最大最小值。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

木垒哈萨克网站建设公司成都创新互联,木垒哈萨克网站设计制作,有大型网站制作公司丰富经验。已为木垒哈萨克上1000家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱,请找那个售后服务好的木垒哈萨克做网站的公司定做!

Randomize() '产生随机数种子 以防止每次生成结果都一样

Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果

Dim max As Integer, min As Integer '声明两个变量存最大值和最小值

min = 1000 : max = 0 '设置初值

For i = 0 To 99 '循环100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间

If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存

If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存

Next

MsgBox("最大值为" max)

MsgBox("最小值为" min)

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 k() As Integer = New Integer() {1, 2, 3, 4, 5, 6}

Dim p1 As Integer

Random r = new Random();

int p1 = k(r.Next(5)) '随机出现0~5之间的数。

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随机数语句 vb60随机数
标题来源:http://dzwzjz.com/article/dospdcc.html
在线咨询
服务热线
服务热线:028-86922220
TOP