[填空题]下列程序为比较排序法排序程序，请补充完该程序(该程序对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 【9】
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 【10】 To 10
If a(i) ＞ a(j) Then
t = a(i)
【11】
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个数值数据进"的相关试题:

[填空题]下列程序是用来计算1+2+3……+10的程序段，请补充该程序。
Dim i, s, k As Integer
s =0: k = 0
For 【9】 To 1
k=k+1
s=s+ k
Next i
Print s

[单项选择]以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click（　） Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub
A. i Mod 2= 0
B. x mod 2=0
C. I mod 2＜＞0
D. x mod 2＜＞0

查看答案

[填空题]下面程序是用来打印九九乘法表的，请补充完整。　　Dim i As Integer，j As Integer，Strl$ 　　Strl=" " 　　For i=1 To 9 　　Forj=1 To 9 　　　If 【9】 Then 　　　　　　Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) 　　　　Else 　　　Strl=Strl & Chr(13) 　　　【10】　　　　End If 　　　　Next j 　　Next i 　　Print Str

查看答案

[填空题]下面程序是用来打印九九乘法表的，请补充完整。　　Dim i As Integer，j As Integer，Strl$　　Strl=" "　　For i=1 To 9　　Forj=1 To 9　　　If 【9】 Then　　　　　　Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j))　　　　Else　　　Strl=Strl & Chr(13)　　　【10】　　　　End If　　　　Next j　　Next i　　Print Str

查看答案

[填空题]下面程序是用来打印九九乘法表的，请补充完整。　　Dim i As Integer，j As Integer，Strl$ 　　Strl=" " 　　For i=1 To 9 　　Forj=1 To 9 　　　If 【】 Then 　　　　　　Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) 　　　　Else 　　　Strl=Strl & Chr(13) 　　　【】　　　　End If 　　　　Next j 　　Next i 　　Print Str

查看答案

[填空题]下列程序是判断一个整数(>=3)是否为素数，请补充完整。　　Dim n As Integer 　　n=InputBox("请输入一个整数(>=3)") 　　k=Int(Sqr(n)) 　　i=2 　　swit=0 　　While i<=k And swit=0 　　　　If n Mod i=0 Then 　　　　【】　　　　Else 　　　　【】　　　　End If 　　Wend 　　If swit=0 Then 　　　　Print n；"是一个素数。" 　　Else 　　　　Print n；"不是一个素数。" 　　End If

查看答案

我来回答:

提交