2. 计算机
  3. 下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _Click() Randomize

下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _Click() Randomize

admin2010-03-30  31
问题 下列程序为比较排序法排序程序，请补充完该程序(该程序对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
选项
答案 i-1 , j=1, a(i)=a(j)
解析
转载请注明原文地址:https://kaotiyun.com/show/2v1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)