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

C\u8bed\u8a00 \u7f16\u4e00\u4e2a\u7a0b\u5e8f\uff0c\u4ea7\u751f0-100\u968f\u673a\u6570\uff0c\u7136\u540e\u7528\u9009\u62e9\u6392\u5e8f\u6cd5\uff0c\u4ece\u5c0f\u5230\u5927\u6392\u5217

//#include "stdafx.h"//vc++6.0\u52a0\u4e0a\u8fd9\u4e00\u884c.
#include "stdio.h"
#include "time.h"
#include "stdlib.h"
int main(void){
int nDec[100],i,j,k;
srand((unsigned)time(NULL));
for(i=0;i<100;nDec[i++]=rand());
for(i=0;i<100;i++){
for(k=i,j=k+1;j<100;j++)
if(nDec[k]>nDec[j]) k=j;
if(i!=k){
j=nDec[i];
nDec[i]=nDec[k];
nDec[k]=j;
}
printf("%d ",nDec[i]);
}
printf("\n");
return 0;
}

Private Sub Command1_Click()
Dim a(1 To 100)
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 101)
Next i
For i = 1 To 99
For j = 100 To i + 1 Step -1
If a(i) < a(j) Then b = a(i): a(i) = a(j): a(j) = b
Next j, i
For i = 1 To 100
Print a(i),
If i Mod 10 = 0 Then Print
Next i
End Sub

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

扩展阅读：cad快速看图 ... svipvb什么浏览器能打开 ... java编程入门 ... vb5.cccdn.net ... .net core使用vb ... vb.net教程 ... c++编程 ... python求1+2+3+n的和 ... vb. net表格控件 ...