第6章習(xí)題

一、單選題

1. D     2. A     3．(1)B，(2)B        

4．C      5. C     6. A        

 7. (1)C  (2)B  (3)A  (4)B  (5)D     

二、多選題

1. AD     2. CD

三、填空題

1.  12; 1, 3; -1, 2          2.  0  1  2  3

                                     2  2  2  2

                                     2  1  0  1

                                     4  4  4  4

3. Name, Index

4. 

(1) 0 To Index  

(2)Val(Text1(k).Text)

5. 

(1) i+1 To k     

(2) s(i)< s(j)    

(3) s(i)<>s(i-1)       

(4) h = h+1        

6. (1) ReDim a(1 To n + 1)             

(2) a(K + 1) = a(K)    (3) a(p)

編程及上機(jī)調(diào)試

1. 程序代碼如下：

Private Sub Form_Load()

     Show

     Dim a(100) As Single

     n = Val(InputBox("輸入個(gè)數(shù)n"))

     Print "處理前數(shù)據(jù) :"

     For k = 1 To n

         a(k) = Val(InputBox("請(qǐng)輸入第" & k & "個(gè)數(shù)"))

         Print a(k);

     Next k

     Print

     M = Int(n / 2)

     For k = 1 To M

         h = n - k + 1

         t = a(h):a(h) = a(k):a(k) = t

     Next k

     Print "處理的結(jié)果 :"

     For k = 1 To n

         Print a(k);

     Next k

End Sub

2. 程序代碼如下：

 Private Sub Form_Load()

     Dim a(6, 6) As Integer

     Show

     For i = 1 To 6

        For j = 1 To 6

           Select Case i

              Case Is < j

                  a(i, j) = 1

              Case Is > j

                  a(i, j) = 2

              Case Is = j

                  a(i, j) = 0

           End Select

           Print a(i, j);

        Next j

        Print

     Next i

     For i = 1 To 6

        t = a(1, i):a(1, i) = a(6, i):a(6, i) = t

     Next i

     Print: Print

     For i = 1 To 6

        For j = 1 To 6

            Print a(i, j);

        Next j

        Print

     Next i

End Sub

3．在窗體上建立兩個(gè)列表框List1(處理前數(shù)據(jù))和List2(處理后數(shù)據(jù))，以及標(biāo)簽Label1。程序代碼如下：

   Private Sub Form_Load()

       Dim a(100) As Integer, b(100) As Integer

       Randomize

       n = 100

       For i = 1 To n              '輸入數(shù)組a的n個(gè)元素

           x = Int(20 * Rnd)

           List1.AddItem x

             a(i) = x

         Next i

         k = 0

         For i = 1 To n            '刪除零元素

             If a(i) <> 0 Then

                  k = k + 1 : b(k) = a(i) : List2.AddItem b(k)

             End If

         Next i

         Label1.Caption = "數(shù)組中零元素個(gè)數(shù)：" + Str(n - k)

End Sub

4．(1) g(x - 10) + 1    (2) n - 1    (3) g(t) < g(j)

         (4) m = s(t): s(t) = s(k): s(k) = m

5．在窗體上建立4行3列共12個(gè)元素的文本框控件數(shù)組Text1(0)～Text1(11)

Private Sub Form_Load()

     Dim t(12) As String

     Randomize

     For k = 1 To 12

        t(k) = "Empty"                 '初始安排12個(gè)位置均為"Empty"

     Next k

     For h = 65 To 74                  '代表"A"至"J"，每次隨機(jī)安排一個(gè)字母

        Do While True                  '隨機(jī)查找一個(gè)空位

            p = Int(1 + 12 * Rnd)      '產(chǎn)生1～12隨機(jī)數(shù)

            If t(p) = "Empty" Then

                t(p) = Chr(h)

                Exit Do

            End If

        Loop

     Next h

     For k = 1 To 12

        Text1(k - 1).Text = t(k)       '顯示座位分配情況              

     Next k

End Sub