2007计算机等级考试资料.pdfVIP

Function sq(x) sq = x * (x +1) End Function Private Sub Form_Click() I = 1 Do While I 5 Print f(; I; )=, sq(I + 1) F( 1 )= 6 F( 2 )= I = I + 1 Loop End Sub 13.程序 13 Dim a(1 To 6, 1 To 6) n = 6 For I = 1 To n For j = 1 To