久久京东热成人精品视频,伊人久久综合,国产一区二区精品自拍,在线精品国精品国产3d

<menu id="e206k"></menu>
<center id="e206k"></center>
  • <menu id="e206k"></menu>
    <center id="e206k"></center>
  • <menu id="e206k"><noscript id="e206k"></noscript></menu>
    當(dāng)前位置: 高中信息技術(shù) / 綜合題
    • 1. (2020高二上·諸暨期末) 對數(shù)組a中的n個元素進(jìn)行排序,生成左右交替上升的數(shù)據(jù)序列,結(jié)果如下表所示:

      a(1)

      a(2)

      a(3)

      ……

      a(n-2)

      a(n-1)

      a(n)

      27

      35

      39

      ……

      49

      39

      33

      小華由此設(shè)計一個VB程序,功能如下:單擊“排序”按鈕Command1,隨機(jī)生成10個兩位奇數(shù),將隨機(jī)生成的數(shù)據(jù)序列顯示在文本框Text1中,在文本框Text2中顯示完成排序后的數(shù)據(jù)序列,運(yùn)行結(jié)果如圖所示。

      Private Sub Command1_Click()

        Dim a(1 To 10) As Integer

        Randomize

        Const n = 10

        For i = 1 To n

            a(i) = ①

            Text1.Text = Text1.Text + Str(a(i))

        Next i

        For i = 1 To n \ 2

            For j = n - i + 1 To i + 1 Step -1

                If a(j) < a(j - 1) Then

                    t = a(j - 1)

                      ②

                    a(j) = t

                End If

            Next j

            For j = i + 1 To n - i

                If  Then

                    t = a(j): a(j) = a(j + 1): a(j + 1) = t

                End If

            Next j

        Next i

        For i = 1 To n

            Text2.Text = Text2.Text + Str(a(i))

        Next i

      End Sub

      1. (1) 代碼Command1_Click()中的Click屬于(單選,填字母:A .對象名/B .事件名/C .方法名/D .事件處理過程名)。
      2. (2) 程序中①處的代碼可能是          (單選,填字母)。
        A . Int(Rnd * 88) + 11 B . Int(Rnd * 89) + 11 C . Int(Rnd * 44) * 2 + 11 D . Int(Rnd * 45) * 2 + 11
      3. (3) 程序中②處填入合適的代碼
      4. (4) 程序代碼中,加框處語句有錯,請改正。

    微信掃碼預(yù)覽、分享更方便