程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。Ptivate Sub Form_load()Dima(1T05)As Integer,n=5a(1)=20：a(2)=25：a(3)=10：a(4)=40：a(5)=15______Forz=1 To n-mIf a(z)＞a(z+1)Thent=a(z)a(z)=(z+1)a(z+1)=tEnd IfNextZNext

题目

程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。

Ptivate Sub Form_load()

Dima(1T05)As Integer,n=5

a(1)=20：a(2)=25：a(3)=10：a(4)=40：a(5)=15

______

Forz=1 To n-m

If a(z)＞a(z+1)Then

t=a(z)

a(z)=(z+1)

a(z+1)=t

End If

NextZ

Next

相似考题

1.（8）下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。Private Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x="；xEnd Sub

2.下列事件过程的功能是：通过Foma_Load事件给数组赋初值为35、48、15、22、67， Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。Dim Arr()Private Sub Form_Load()______End SubPrivate Sub Form_CUck()For EaCh x In ArrIf Int(x/3)=x/3 ThenPdnt X

3.本程序用冒泡法对数组a[]的元素从大到小排序，请在程序空白处填空。

4.（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer Arr1=Array(12,435,76,-24,78,54,866,43) Min=arr1(1) For i=2 To 8 If arr1(1)<Min Then Next i Print"最小值："；Min End Sud

更多“程序运行后,利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容,将程序补充完整 ”相关问题

  • 第1题：

    程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，在横线处应填写（ ）。

    A. Form=0 To 4

    B. Form=0 To 4

    C. Form=1 To 4

    D. Form=1 To 4


    正确答案：C
    C)    【解析】本题考查冒泡排序。可通过双重循环来实现冒泡排序，题中内层循环进行的是相邻元素两两比较，每一轮使未排序中的最大数移动到数组最后的元素中。外层循环需要进行的次数计算方法为：有n个数要排序时，则要进行n-1轮外层循环。题中共有5个数，因此外循环进行4轮，所以m最大值为4。

  • 第2题：

    补充程序Ccon042.C,使程序中的sort()函数用冒泡法对数组a中的m个元素从大到小排序


    for（i=0；i</**/m-1/**/；i++）
    if/**/（a[j]<a[j+1]）/**/
    a[j]=/**/a[j+1]/**/；

  • 第3题：

    定义一个排序的子程序过程，程序运行后，单击窗体，随机产生0～100之间的10个整数赋给一个一维数组，然后调用此子程序过程将一维数组中的数据按照从小到大的顺序进行排序，最后在窗体上输出排序前及排序后的数。 要求：排序采用冒泡法。 保存工程和窗体，窗体文件名为：昵称-8-5.frm;工程名为：昵称-8-5.vbp。将工程文件和窗体文件压缩成：昵称-8-5.rar，以附件形式提交。


    不一定

  • 第4题：

    下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【 】、【 】、【 】处将程序补充完整。

    Option Base 1

    Private Sub Command1_Click ()

    Dim a

    a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)

    For i=【 】

    For j=【 】

    If a(i)【 】a(j) Then

    a1=a(i)

    a(i)=a(j)

    a (j) =a1

    End If

    Next j

    Next i

    For i=1 To 10

    Print a(i)

    Next i

    End Sub


    正确答案：a To 9i+1 To 10 ＞=
    a To 9,i+1 To 10, ＞=

  • 第5题：

    下面程序的功能是：将数组a下标为偶数的元素从小到大的排序，其他元素不变。给定的程序不完整，请在画线处填入适当的内容，回答 42～44 题。 注意：不得增行或删行，也不得更改程序的结构!

    第42题：请填写【1】处标准答案。


    正确答案：
    1OStep2

相关内容