VB中用选择法将10个整数排序，从小到大排列在另外一个文本框中输出。
先从中选出最小的数与第1个数交换位置;后是除第一个数外，其余9个数中选最小的数与第2个数交换位置，以此类推，选择了9次后，这个数列已按升序排列。
Private Sub Command1_Click()
Dim A(9) As Integer, i%, m%, t%, AA%
For i = 0 To 9
Randomize
A(i) = Int(Rnd * 90) + 10
Print A(i);
Next
For i = 0 To 8
t = i
For m = i + 1 To 9
If A(m) < A(t) Then t = m
Next m
If t <> i Then AA = A(i): A(i) = A(t): A(t) = AA
Print A(i);
Next i
Print A(9)
End Sub
VB中用选择法将10个整数排序,从小到大排列在另外一个文本框中输出。
Option Explicit Private Sub Command1_Click()Dim A(9) As Integer, i%, m%, t%, AA For i = 0 To 9 Randomize A(i) = Int(Rnd * 90) + 10 Print A(i);Next Print For i = 0 To 8 t = i For m = i + 1 To 9 If A(m) < A(t) Then t = m Next m If t ...
VB中“随机产生10个数,用选择法对10个数进行从小到大排序”要怎么做啊...
Dim arr(0 To 9) As Integer Private Sub Form_Load()Dim i, j, k Randomize For i = 0 To 9 arr(i) = Int(Rnd * 100)Debug.Print arr(i);Next i Debug.Print For i = 0 To 9 k = i For j = i + 1 To 9 If arr(k) > arr(j) Then k = j Next j If k <> ...
vb6.0用选择法对10个整数排列
通过选择排序算法，可以将数组a中的10个整数按照升序排列，实现从小到大排序。
用选择法对10个整数从小到大排序
简单选择排序的基本思想:第1趟,在待排序记录r[1]~r[n]中选出最小的记录,将它与r交换;第2趟,在待排序记录r[2]~r[n]中选出最小的记录,将它与r[2]交换;以此类推,第i趟在待排序记录r[i]~r[n]中选出最小的记录,将它与r[i]交换,使有序序列不断增长直到全部排序完毕。 以下为简单选择排序的存储状...
VB选择法排序
End SubI等于1时 就是拿第一位和第二位比较 比较大的的数排后面 然后比较第一位和第三位 For j = i + 1 To 10 直到比较到最后一位 i=2 时也是如此 循环9次就完成排序5 3 2 7 i=1 时 J=2时 3 5 2 7 J=3时 2 5 3 7 j=4时 2 5 3 7 I=2时 j=3时 2 3 5 7 ...
vb题随机生成【0,100】10个数,选择法排序。
Private Sub Command1_Click()Dim a(10) As Integer For i = 1 To 10 a(i) = Int(101 * Rnd)Next i For i = 1 To 9 k = i For j = i + 1 To 10 If a(j) < a(k) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t Next i For i = 1 To 10...
编写程序,用选择法对10个整数按从小到大顺序排序
for(i=0;i<10;i++) { printf("%d ",a[i]); } return 0;} 追问 怎么结果不是输入的10个数的正确排序,而是一堆很怪的数? 更多追问 本回答由提问者推荐 举报| 答案纠错 | 评论 15 9 倒霉熊lujin 采纳率:59% 来自:芝麻团 擅长: C\/C++ 编程语言 教育\/科学 娱乐休闲 电脑\/网络 为...
用选择法对输入的10个整数排序
include<stdio.h>int main(){int i,j,k,t,a[10]; for(i=0;i<10;i++)\/\/输入10个整数 scanf("%d",&a[i]); for(i=0;i<9;i++)\/\/排序10个数，需要9轮 {k=i;\/\/当前最小值的编号 for(j=i+1;j<10;j++)\/\/扫描后续所有元素 if(a[j]<a[k])k=j;\/\/如后面...
vb求助~!!!选择法排序~
Next j Next i End Sub void rank1(int a[],int n){ int i,j,t;for (i=0;i<n-1;i++){for(j=i+1;j<n;j++){if (a[j]<a[i]){ t=a[i];a[i]=a[j];a[j]=t;} };};} 优化后的程序：Private Sub rank(n As Integer, a() As Long)For i = 1 To n - 1...
怎么用选择法对10个整数进行排序?
而基准为最后一个元素，故完成排序）。main()int array[10];\/\/给数组初始化!int i,j,k,temp;for(i=0;i<10-1;i++) { k=i;for(j=i+1;j<10;j++)if (array[j]<array[k]) k="j" ;="" temp="array[k];array[k]=array;array=temp;" }="" } ...
