vb.net随机数生成 vb随机数生成器

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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

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

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) '如果当前数值小于最小值的变量就保存

MsgBox("最大值为" max)

MsgBox("最小值为" min)

End Sub

相关问答

Q1: 《VB.NET》中的“Randomize(x)”和“Rnd(x)”

Rnd[(number)]

number

的值决定了

Rnd

生成随机数的方式

如果

number

的值

Rnd

生成

小于

每次都使用

number

作为随机数种子得到的相同结果。

大于

序列中的下一个随机数。

等于

最近生成的数

一般为科学型数值

这个值也是不变的

rnd(x)

省略x不写

就和X0

效果一样

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

Randomize

用

number

将

Rnd

函数的随机数生成器初始化，该随机数生成器给

number

一个新的种子值。如果省略

number，则用系统计时器返回的值作为新的种子值。

如果没有使用

Randomize，则（无参数的）Rnd

函数使用第一次调用

Rnd

函数的种子值。

注意

若想得到重复的随机数序列，在使用具有数值参数的

Randomize

之前直接调用具有负参数值的

Rnd。使用具有同样

number

值的

Randomize

是不会得到重复的随机数序列的。

一般在使用rnd获取随机数

都是

randomize

int(rnd*(上限-下限+1）+下限)

这2个函数的X都是省略不写

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

Private Sub Command1_Click()

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

PrintNum "新生成vb.net随机数生成的6个随机数为vb.net随机数生成：", 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

PrintNum "排序后vb.net随机数生成的6个随机数为vb.net随机数生成：", num()

End Sub

Q3: 编写一个 VB.NET 程序,产生 100 个 100 以内的随机数，将他们从大到小排序后输出

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

Dim i As Integer, j As Integer, k As Integer

For i = 1 To 100 '给数组a一百个元素赋值，并换每行十个数字输出来窗体上

a(i) = Int(Rnd * 101)

k = k + 1

Print Tab((k - 1) * 5); a(i);

If k = 10 Then k = 0: Print

Next i

For i = 100 To 2 Step -1 '用冒泡排序法对数组进行排序

For j = 1 To i - 1

If a(j) a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To 100 '输出排好序的数组

k = k + 1

Print Tab((k - 1) * 5); a(i);

If k = 10 Then k = 0: Print

Next i

End Sub

Q4: vb.net中产生三位正整数的随机数的程序写法

'项目：VB中产生在一定正整数范围内vb.net随机数生成的不重复vb.net随机数生成的随机数'作者：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随机数生成的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb随机数生成器、vb.net随机数生成的信息别忘了在本站进行查找喔。