【正文】
ern = 4For i = 5 To 1 step 2arr1(i) = i arr2(n) = 2 * n + iNext iPrint arr2(n)。 arr1(n)End Sub2以下程序運行的結(jié)果是 。Private sub mand1 click( )Dim Fib(10) AS IntegerFib(1)=1fib(2)=1for i=3 To 20Fib(i)=Fib(i1)+Fib(i2)Next iPrint Fib(12)End sub Sub Command1_Click()Dim A(1 To 5) As IntegerDim x As IntegerFor I = 1 To 5A(I) = INext II = 1 Do While x 6A(I) = A(I) + xx = x + 2I = I + 2Loop = A(1) = A(3)End Sub寫出程序運行時單擊Command1按紐,文本框Text1和Text2上的輸出結(jié)果是______知識點補充:動態(tài)數(shù)組:變體型變量可以作為動態(tài)數(shù)組來使用,其賦值方式是用Array(值1,值2,值3,...值N)函數(shù)賦值,該數(shù)組大小由Array函數(shù)中值的個數(shù)來決定,如:DIM aA=array(21,12,23,44,65)則該變體型變量A將作為一維數(shù)組,下標(biāo)默認(rèn)從0開始,即為0 TO 5,其中包含5個數(shù)組元素,分別是A(0),A(1),A(2),A(3),A(4)2下列程序運行后的結(jié)果是 ?。?)Option Base 1Dim a A=array( 2, 8, 5, 3, 10, 9, 13, 15, 14, 7)Count = 0For i = 2 To 9 If a(i) a(i 1) And a(i) a(i + 1) Then s = s + a(i) :Count = Count + 1 End IfNext iPrint s, Count(2)Option Base 1Private Sub Cmd1_Click()DIM aA=array(1,-2,3,-4,0,-6,7,-8,0,-10)FOR k=1 TO 10 Select Case SGN(a(k)) Case 1 S=S+a(k) Case 0 S=S+1 Case –1 S=S-a (k) End SelectNEXT kPrint “S=” , S28. 設(shè)有如下程序:private sub form_click( ) dim a a=array(1,2,3,4,5,6,7,8,9) for i=0 to 3 print a(5i); next iend sub程序運行后的輸出結(jié)果是 。29. 以下程序運行后,單擊窗體輸出的結(jié)果是___________Option Base 1Private Sub Form_Click()Dim aa=Array(19,17,15,13,11,9,7,5,3,11)For i=1 To 10If a(i)/3=a(i)\3 Or a(i)/5=a(i)\5 ThenSum=Sum+a(i)End IfNext iPrint SumEnd Sub以下程序運行結(jié)果是 Dim a As Variant,b As Variant,c(1,3) As integera=Array(3,25,6,34) b=Array(23,56,32,12)For j=0 to 3C(0,j)=a(j) :C(1,j)=b(j)Next jm = c(1,1)for i=0 to 1 for j=0 to 3 if mc(i,j) then m= c(i,j) next j, iprint m13