相关试卷

Const n = 10

Dim a(1 To n + 5) As Integer

Din tmp(1 To n + 5) As Integer

    '读取n个整数保存到数组a中，并在文本概Text1中显示，代码略。

Private Sub Comnand1_ Click()

    Do While True

        If Not Merge() Then Exit Do

        '在列表概List1中输出这一轮合并后的数据，代码略。

    Loop

End Sub

Function Position(low As Integer) As Integer

    Din i As Int eger

    For i=low To n-1

        If  Then Exit For

    Next i

    Position = i

End Function

Function Merge() As Bool ean

    Dim i As Integer， flag As Boolean， p1 As Integer， p2 As Integer

    Dim low1 As Integer， high1 As Integer， high2 As Integer

    flag = False： low1= 1

    Do While low1 < n

        high1 = Position(low1)

        If high1 = n Then Exit Do Else flag = True

        high2 = Position(high1 + 1)

        p1=low1：p2=high1+1

        i = low1

        Do While

            If p2>high2 Or p1 <= high1 And a(p1) < a(p2) Then

                tmp(i)=a(p1)：p1=p1+1

            Else

                tmp(i)=a(p2)：p2=p2+1

            End If

            i =i+1

        Loop

        For i = low1 To high2

            a(i) = tmp(i)

        Next i

    Loop

    Merge = flag

End Function

Const n=6

Dina(1 To n*n)As Integer

Private Sub Form_Load()      ' 产生n*n个数组元素，每行按n个数显示在list1中

    Din i As Integer， s As String

    For i=2 To n* n

        a(i)=Int(Rnd*90)+10

        s =s+ Str(a(i))

        If i Mod n = 0 Then List1.AddItem s： s =“”

    Next i

End Sub

Private Sub Comnand1_ Click()

Dim i As Integer， j As Integer， k As Integer

    For i = 1 To n*n

        k= i

        For j= To i+n step -n

            If a(k) > a(j) Then k= j

        Next j

        If  Then t= a(k)： a(k) = a(i)： a(i) =t

    Next i

    ‘将排序后数组a的元素，每行按n个数显示在list2中．

End Sub

①在“云”图层第60帧执行插入 (选填：关键帧\空白关键帧\帧)：

②在“云”图层第60帧将库中“云”元件应用到舞台，并放置在恰当的位置：。

(提示： OOUNTIF丽数用于统计某个区域满足条件的单元格个数。例如：=OOUNTIF (B4：B20，"<100")表示在数据区域B4：B20中统计数值小于100的单元格个数。)