网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序为比较排序法排序程序，请补充完该程序(该程序对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
参考答案
更多 “ 下列程序为比较排序法排序程序，请补充完该程序(该程序对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【 】To 10If a(i) ＞ a(j) Thent = a(i)【 】a(j) = tEnd IfNext jNext ip = Str(a(1))For i = 2 To 10p = p “,” Str(a(i))Print pNext iEnd Sub ” 相关考题
考题
下列程序的作用是：打开顺序文件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
考题
若有以下程序段: …… int a[]={4,0,2,3,1},i,j,t; for(i=1;i=0 j－－;} a[j＋1]=t; } …… 则该程序段的功能是( )。
A.对数组a进行插入排序(升序)B.对数组a进行插入排序(降序)C.对数组a进行选择排序(升序)D.对数组a进行选择排序(降序)
考题
如果一个排序程序所设定的测试用例为(1)表空(2)表中只有一个元素(3)表中均有相同的关键字值(4)元素已排序则此测试方法称为____________。A、等价分类法B.边缘值分析法C.因果图法D.错误推测法
考题
一下程序的作用是生成一个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
考题
1、完善三个数字对象排序程序。
热门标签
最新试卷