VB中，随机产生10个0~100之间的随机数，按从小到大的顺序排列怎么做？

可用冒泡排序法：

代码如下：

'不重复随机数排序
'添加 Command1 Command2 Command3Option Explicit Dim i&, j&, k&, t&, Trec&, Arr&(), RndVal&, TmpVal&, S Private Sub Form_Load()

Command1.Caption = "选随机数"
Command2.Caption = "小到大排序"
Command3.Caption = "大到小排序"

'*************************************** 安排控件摆放位置

Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

1 - 100 之间选 20 个随机数
Trec = 10 End Sub Private Sub Command1_Click() S = GetRnd(1, 100, Trec) Me.Cls
For i = 0 To Trec - 1 Print S(i) Next i End Sub Private Sub Command2_Click()

'********************** 由小排到大(冒泡排序法)

Me.Cls For i = 0 To Trec - 1 k = i For j = i + 1 To Trec - 1 If Arr(k) > Arr(j) Then k = j
Next j t = Arr(i): Arr(i) = Arr(k): Arr(k) = t Print Arr(i) Next i
End Sub Private Sub Command3_Click()

'********************** 由大排到小(冒泡排序法)

Me.Cls For i = 0 To Trec - 1 k = i For j = i + 1 To Trec - 1 If Arr(k) < Arr(j) Then k = j
Next j t = Arr(i): Arr(i) = Arr(k): Arr(k) = t Print Arr(i) Next i End Sub Public Function GetRnd(MinVal&, MaxVal&, Qty&) As Long() Randomize For i = MinVal To MaxVal
ReDim Preserve Arr&(i) Arr(i) = i Next For i = MinVal To MaxVal
RndVal = Int(Rnd * (MaxVal - MinVal + 1)) + MinVal TmpVal = Arr(i)= Arr(RndVal)
Arr(RndVal) = TmpVal Next For i = 0 To Qty - 1 Arr(i) = Arr(i + MinVal) Next GetRnd = Arr()

End Function

~

VB.NET怎么作一题,产生10个100以内的随机正整数,求最大,最小值,并显示...
答：'产生10个正整数 Dim intArr(10) As Integer For i As Integer = 1 To 10 intArr(i - 1) = Int(Rnd() * 99) + 1 Next '取最小值 Dim intMin As Integer = intArr(0)For j As Integer = 1 To UBound(intArr) - 1 If intMin > intArr(j) Then intMin = intArr(j)Next...

vb编程:随机产生10个1–100之间的整数,并按从小到大顺序输出,谁能帮我...
答：Private Sub Command1_Click()Dim a(10), i, j As Integer For i = 0 To 9 a(i) = Int(Rnd * 100) + 1 Print a(i);Next For i = 0 To 8 For j = i To 9 If a(i) > a(j) Then t = a(i)a(i) = a(j)a(j) = t End If Next Next Print For i = 0 To...

用c#编写一段程序,随机生成10个0到100之间的互不相同的整数,存放在一维...
答：indexOfMin); } /// <summary> /// 随机生成10个0到100之间的互不相同的整数 /// </summary> /// <returns></returns> static int[] Generate() { HashSet<int> s = new HashSet<int>(); Random rnd = new Random(); while (s.Count < 10) ...

vb程序:随机产生10个1-100之间(不包含1和100)的整数,并求出这10个数的...
答：Dim SUM As interger Dim i As intergerDim V As interger Private Sub Command1_Click() SUM = 0 For i = 1 To 10 Randomize V = int（1 + 98 * Rnd） SUM = SUM + V MsgBox "10个随机数的和为：" & SUM, 32 nextEnd Sub将楼上的改一下，应该更好 ...

vb编写程序,利用随机函数产生并显示10 个1~100 之间的随机整数并找出这...
答：Private Sub Command1_Click() Dim a(10) As Integer Randomize Max = 1 For i = 1 To 10 a(i) = 1 + Int(Rnd * 100) Print a(i); If a(i) > a(Max) Then Max = i Next i Print Print "a("; Max; ")="; a(Max)End Sub ...

利用VB如何设计下面问题:利用随机数产生10个1~100之间的随机数,显示...
答：max = a(0) '最大值最小值 min = a(0)For i = 1 To 9 If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next i Print "10个数中的最大值为" & max Print "10个数中的最小值为" & min For p = LBound(m()) To UBound(m())sum = sum + ...

在VB中,利用随机函数产生 10个 1---100 之间的随机整数,找出其中能被...
答：SDA End If Next JNext IText1.Text = Text1.Text & "生成的20个随机数：" & vbCrLfFor I = 1 To 20If AA(I) < 10 ThenText1.Text = Text1.Text & "0" & AA(I) & Space(3)ElseText1.Text = Text1.Text & AA(I) & Space(3)End IfIf I Mod 10 = 0 ThenText1...

VB设计一个裁判打分系统,高分悬赏
答：使用随机函数产生10个随机数，既然是打分，那么可以用取模运算使产生的数在0-100之间 random（x）%101 就产生了0-100之间的数。使用数组最方便了，编写一个max（x,y）和min（x，y）函数，使用循环求出最小和最大数去掉。或者直接把他们排序。.net下代码如下：using System;using System.Collections...

vb 利用随机函数产生10个1~100之间的随机数,显示出最大值最小值,平均...
答：a(i) = Int(Rnd * 100) + 1 arg = arg + a(i) If i = 0 Or a(i) > max Then max = a(i) If i = 0 Or a(i) < min Then min = a(i) Print a(i);NextPrintPrint "最大值："; maxPrint "最小值："; minPrint "平均值："; arg / 10End Sub ...

,随机产生10个100以内的任意整数,分别求偶数和奇数的平均值.求vb代码...
答：Private Sub Command1_Click()Dim i, a, b, c, d, e For i = 1 To 10 c = Int(Rnd() * 99) + 1 Text1 = Text1 & c & " " '===显示10个数到text中 If c Mod 2 = 0 Then '===判断偶数 a = a + c d = d + 1 '===统计偶数个数 ElseIf c Mod 2 = 1 ...