下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。Dim a(1 To 10)AS IntegerPrivate Sub Form. _Click()Randomizep=“”For i = 1 To 10Dox = Int (Rnd * 90) + 10yes = 0For j = 1 To【 】If x = a(j) Then yes = 1: Exit ForNextLoop While yes = 1a(i) = xNext iFor i = 1 To 9For【

题目

下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。

Dim a(1 To 10)AS Integer

Private Sub Form. _Click()

Randomize

p=“”

For i = 1 To 10

Do

x = Int (Rnd * 90) + 10

yes = 0

For j = 1 To【 】

If x = a(j) Then yes = 1: Exit For

Next

Loop While yes = 1

a(i) = x

Next i

For i = 1 To 9

For【 】To 10

If a(i) ＞ a(j) Then

t = a(i)

【 】

a(j) = t

End If

Next j

Next i

p = Str(a(1))

For i = 2 To 10

p = p & “,” & Str(a(i))

Print p

Next i

End Sub

相似考题

1.下列程序的作用是：打开顺序文件C:\stuDatA.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。Private Sub Form_Click()【 】Do While Not EOF(1)Input 1，StrNo，StuName，StuEngPrint StuNo；Tab(10)；StuName；Tab(20)；StuEngLoopClose 1End Sub

2.如果一个排序程序所设定的测试用例为(1)表空(2)表中只有一个元素(3)表中均有相同的关键字值(4)元素已排序则此测试方法称为____________。A、等价分类法B.边缘值分析法C.因果图法D.错误推测法

3.一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。Private Sub Command1_Click()Dim a(10，10)As IntegerFor i=1 To【 】For j=1 To 10If【 】Then【 】=1Elsea(i，j)=0End IfNext jNext iFor i =1 To 10For j=1 To 10Print a(i，j)；Next jPrintNext iEnd Sub

4.若有以下程序段: …… int a[]={4,0,2,3,1},i,j,t; for(i=1;i=0 && t>a[j]) {a[j＋1]=a[j];j－－;} a[j＋1]=t; } …… 则该程序段的功能是( )。A.对数组a进行插入排序(升序)B.对数组a进行插入排序(降序)C.对数组a进行选择排序(升序)D.对数组a进行选择排序(降序)

更多“下列程序为比较排序法排序程序,请补充完该程序(该程序对10个数值数据进行排序处理)。 Dim a(1 To ”相关问题

  • 第1题：

    以下冒泡法程序对存放在a[1]，a[2]，……，a[n]中的序列进行冒泡排序，完成程序中的空格部分，其中n是元素个数，程序按升序排列。
    （1）j<=n-1
    （2）i<=n-j
    （3）a[i]=a[i+1]
    （4）a[i+1]=temp
    （5）当某趟冒泡中没有出现交换则已排好序，结束循环
    略

  • 第2题：

    完善三个数字对象排序程序。


    正确

  • 第3题：

    1、完善三个数字对象排序程序。


    错误

  • 第4题：

    以下函数为直接选择排序算法，对a[1]，a[2]，…a[n]中的记录进行直接选择排序，完成程序中的空格。
    n-1；n；k=j；a[i]=a[k]；a[k]=temp
    略

  • 第5题：

    请完成汇率和金额排序程序。


    错误

相关内容