全套试题.doc

莂 Dim i As Integer Dim sum As Integer sum = 0

For i = 100 To 1000 If isNum(i) Then Listbox1.addItem i End If Next i Print sum End Sub 3、 Sub sum()

Open \Open \Open \

羀

蚀

蚄

肄

蝿

螀

肅

薂

螂

袀

蒆

芄

薁

罿

袇

螂Do While Not EOF(1) Line Input #1, InputData Print #3, InputData Loop Close #1

Do While Not EOF(2) Line Input #2, InputData

芀

聿

肄

蒄

聿

腿

蒅Print #3, InputData Loop Close #2 Close #3

袂

膂

艿

袆

薃End Sub