编写一个 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

Print

Print

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

VB.NET中函数Rnd能够返回什么的随机数

返回大于等于0小于1之间的随机数。

Visual Basic中随机函数

格式：Rnd(数值表达式)

功能：求[0,1)之间的一个随机数

语法：

Rnd[(number)]

如果 number 的值是 Randomize 生成

小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。

大于 0 ，以上一个随机数为种子产生下一个随机数。

等于 0 ，产生与最近生成的随机数相同的随机数。

省略， 以上一个随机数为种子产生下一个随机数。

说明

Rnd 函数返回小于 1 但大于或等于 0 的值。

number 的值决定了 Rnd 生成随机数的方式。

对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。

在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

vb.net取随机数vb.net里面怎么取去随机数

与VB6里边完全一样：

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

Randomize()

MsgBox(Rnd() * 100)

End Sub

vb。net取随机数

取随机数可以用 Random 类。

给定10个数的话，可以把这10个数放在一个数组里，然后取0~9的范围内的随机数，用它当数组下标取数组成员即可。

名称栏目：vb.net随机数 随机数 vb
文章URL：http://cdweb.net/article/dooesji.html