网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
程序运行后，利用冒泡法对数组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
参考答案
更多 “ 程序运行后，利用冒泡法对数组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 ” 相关考题
考题
（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
考题
（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
考题
下列事件过程的功能是：通过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
考题
程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，在横线处应填写（ ）。A. Form=0 To 4B. Form=0 To 4C. Form=1 To 4D. Form=1 To 4
考题
下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【 】、【 】、【 】处将程序补充完整。Option Base 1Private Sub Command1_Click ()Dim aa=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)For i=【 】For j=【 】If a(i)【 】a(j) Thena1=a(i)a(i)=a(j)a (j) =a1End IfNext jNext iFor i=1 To 10Print a(i)Next iEnd Sub
考题
下面程序的功能是：将数组a下标为偶数的元素从小到大的排序，其他元素不变。给定的程序不完整，请在画线处填入适当的内容，回答 42～44 题。 注意：不得增行或删行，也不得更改程序的结构!第42题：请填写【1】处标准答案。
考题
定义一个排序的子程序过程，程序运行后，单击窗体，随机产生0～100之间的10个整数赋给一个一维数组，然后调用此子程序过程将一维数组中的数据按照从小到大的顺序进行排序，最后在窗体上输出排序前及排序后的数。 要求：排序采用冒泡法。 保存工程和窗体，窗体文件名为：昵称-8-5.frm;工程名为：昵称-8-5.vbp。将工程文件和窗体文件压缩成：昵称-8-5.rar，以附件形式提交。
热门标签
最新试卷
