vb 程序设计教程习题答案 实验6.docVIP

实验6 自测1 程序 Private Sub Form_Click() Dim a%(1 To 20) Print Fibonacci数列的前20项为 Print 1; 1; For i = 3 To 10 a(1) = 1 a(2) = 1 a(i) = a(i - 1) + a(i - 2) Print a(i); Next i Print For i = 11 To 20 a(i) = a(i - 1) + a(i - 2) Print a(i); Next i End Sub 截图 自测2 程序 Private Sub Command1_Click() Dim i%, j%, a%(1 To 4, 1 To 4), b%(1 To 4, 1 To 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 90 + 10) Picture1.Print a(i, j); Next j Picture1.Print Next i For i = 1 To 4 For j = 1 To 4 If i = j Then Picture3.Print a(i, j); Next j Next i Picture3.Print For i = 1 To 4 For j = 1 To 4 If i + j = 5 Then Picture3.Print a(i, j); Next j Next i Picture2.Print For i = 1 To 4 Sum = 0 For j = 1 To 4 Sum = Sum + a(i, j) Next j Picture4.Print Sum Next i Picture4.Print For j = 1 To 4 b(1, j) = a(4, j): b(2, j) = a(2, j): b(3, j) = a(3, j): b(4, j) = a(1, j) Next j For i = 1 To 4 a(i, 1) = b(i, 1): a(i, 2) = b(i, 3): a(i, 3) = b(i, 2): a(i, 4) = b(i, 4) Next i For i = 1 To 4 For j = 1 To 4 Picture2.Print a(i, j); Next j Picture2.Print Next i End Sub 截图