江苏省等级考试二级VB上机试卷2004年.doc

江苏省等级考试二级VB上机试卷2004年（春）及参考答案 答： 源程序： Private Sub Command1_Click() Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean Dim K As Integer ReDim A(1) A(1) = 10 K = 1 For I = 11 To 100 Logic = False Call Sub1(A, I, Logic) If Log