当前位置: 高中信息技术 / 综合题
  • 1. (2021高二下·浙江期中) 使用数组a实现英文字符的螺旋矩阵显示,螺旋从外到内字符依次变小,依据上述描述设计了如下VB程序,在Text1中输入矩阵的行数n(n≤5),单击“生成螺旋”按钮Command1,在List1中显示n×n的螺旋矩阵。程序运行界面如第16题图所示,请回答下列问题:

    1. (1) 当输入的行数为3时,单击“生成螺旋”按钮,列表框中第一个显示的英语字母是
    2. (2) 请在划线处填入合适的代码。

      Private Sub Command1_Click()

          Dim a(1 To 100) As String

          Dim i As Integer, j As Integer, m As Integer, n As Integer

          Dim ts As String, t As Integer, v As Integer

          n = Val(Text1.Text)

          v =

          t = 1

          For m = n To 1 Step -2

              For i = 1 To m            '向右方向填数

                  a(t + i - 1) = Chr(Asc("A") + v - 1)

                  v = v - 1

              Next i

              t = t + n - 1

              For i = 1 To m - 1      '向下方向填数

                  a(m + t) = Chr(Asc("A") + v - 1)

                  v = v - 1

                 

              Next i

              t = t - n

              For i = m - 1 To 1 Step -1      '向左方向填数

                  a(t + i) = Chr(Asc("A") + v - 1)

                  v = v - 1

              Next i

              For i = m - 2 To 1 Step -1    '向上方向填数

                  a(t - n + 1) = Chr(Asc("A") + v - 1)

                  v = v - 1

                  t = t - n

              Next i

              t = t + 2

          Next m

          For i = 1 To n         '在List1 中输出数组数据

              ts = ""

              For j =To i * n

                  ts = ts + " " + a(j)

              Next j

              List1.AddItem ts

          Next i

      End Sub

微信扫码预览、分享更方便