Dim a(9) As Integer
Dim i As Integer
Dim r As Integer
Dim t As Integer '产生随机数
Randomize
For i = 0 To 9
a(i) = CInt(Rnd() * 100)
Next i '排序
For i = 0 To 8
For r = i + 1 To 9
If a(i) > a(r) Then
t = a(i)
a(i) = a(r)
a(r) = t
End If
Next r
Next i '显示数据
Label1.Caption = ""
For i = 0 To 9
Label1.Caption = Label1.Caption + "第" + CStr(i + 1) + "个随机数=" + CStr(a(i)) + vbCrLf
Next i
End Sub
利用随机函数产生10个【1,100】的随机整数 (1) 打印这10个数 (2...
Private Sub Command1_Click()Dim a(10)Randomize Print "随机产生10个[1,100]之间的整数"For i = 1 To 10 a(i) = Int(Rnd * 100)Print a(i);Next Print Print "使用选择排序法从大到小排序"For i = 1 To 10 For j = 1 To i If a(i) > a(j) Then t = a(i): a(i)...
1、随机产生10个10-99范围内的整数,分别用选择和冒泡法将数据按从大到...
Private Sub Form_click()Dim A(1 To 10)Randomize For I = 1 To 10 A(I) = Int(Rnd * 90) + 10 Next I For I = 1 To 9 '选择法 p = I For J = I + 1 To 10 If A(J) < A(I) Then p = J End If Next J tem = A(I)A(I) = A(p)A(p) = tem Next I...
将随机产生范围从1到100的10个整数放在数组a(1 to 10)中,用选择法将数...
代码如下：public class Array_Number { public static void main(String[] args) { double[] doubleArr = new double[10];List<Double> list = new ArrayList<Double>();stroeRandomNumber(doubleArr);storeInList(list, doubleArr);System.out.println(list);System.out.println("===");getList...
怎么用选择法vb排序,给你从一百个数字的范围里选十个数字,给这十个数字...
5 4 3 2 1 比如上面这5个数字我们把它按照由小到大的顺序排列，从前往后相临两位比较大小，如果前一位比后一位大就把它俩 换位，5比4大就把5和4换位，得到45321 5又比3大 5和3换位 得到43521 依次类推最后得到 43215 这样就把最大的一个数字移到最后面了 然后不看5 ，剩下4321 再用...
c语言:产生10个范围在{1,100}内的随机整数,利用选择排序法对这组数升 ...
int main (void){ srand(time(0));int a[10],n=10,i,j,k,temp;for (i=0;i<10;i++)a[i]=rand()%100+1;for(i=0;i<n-1;i++){ k=i;for(j=i+1;j<n;j++)if(a[k]>a[j]) k=j;if(i!=k){ temp=a[i];a[i]=a[k];a[k]=temp;} } for (i=0;i<10;i...
编写程序,用选择法对10个整数按从小到大顺序排序
int a[10]={1,3,6,8,9,7,5,4,2,1}; int i; printf("before\\n"); for(i=0;i<10;i++) { printf("%d ",a[i]); } sort(a,10); printf("\\nafter\\n"); for(i=0;i<10;i++) { printf("%d ",a[i]); } return 0;} 追问 就是不要固定那10个数,可以自己输入10个数的 追...
VB怎样把数字按从大到小排列??急求!!!
Private Sub Command1_Click()Dim arr() '设数字存放在arr数组中，数组长度已定义好。Dim i As Integer, j As Integer, t For i = 0 To UBound(arr)For j = i + 1 To UBound(arr)If arr(j) > arr(i) Then t = arr(i)arr(i) = arr(j)arr(j) = t End If Next j Nex...
C语言 编一个程序,产生0-100随机数,然后用选择排序法,从小到大排列
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[...
随机生成十个1到50这个区间范围内不相同的整数,分别运用选择排序法和冒...
选择排序法：include<stdio.h> include<stdlib.h> include int main(){ srand((unsigned)time(NULL));int i,j,t,a[10];for(i = 0; i < 10; ++i){ a[i]=rand() % 50 + 1;} for(i=0;i<10;i++){ for(j=i;j<10;j++){ if(a[i]>a[j]){ t=a[i];a[i]=a[j]...
vb6.0用选择法对10个整数排列
在VB6.0中，利用选择排序算法对10个整数进行排序，具体过程如下：定义数组a(1 to 10)用于存放10个整数。定义变量maxIndex，用于存储当前未排序部分中的最大值索引。定义变量tmp，用于临时存储交换位置的值。使用两层for循环实现排序过程，外层for循环控制每一趟排序，内层for循环用于查找当前未排序部分中的...
