【精选】VB数组习题1.pptVIP

91、用数组实现求数列的前10项，并在窗体上输出。数列的前两项分别是1，从第三项开始，每一项都是它的前两项和 Private Sub Form_Click() Dim a(1 To 10) As Integer Dim k% a(1) = 1 a(2) = 1 **********FOUND********** For k = 1 To 10 a(k) = a(k - 1) + a(k - 2) **********FOUND********** End for **********FOUND********** While k = 1 To 10 Step -1 Print a(k); Next End Sub 94、下面程序运行时单击窗体后，Form1上的输出结果 Option Explicit Private Sub Form_Click() Dim x(5) As Integer **********SPACE********** Dim i, j, t,【?】 As Integer x(1) = 8: x(2) = 3: x(3) = 1: x(4) = 6: x(5) = 4 For i = 1 To 4 For j = i + 1 To 5 **********SPACE********** If x(i)【?】x