A.Open"Datal"For Input As #2 For i =1 To 10 Print #2, "i" Next i Close#2 B.Open"Datal"For Output As#2 For i =1 To 10 Print#2 "i" Next i Close #2 C.Open"Datal"For Output As #2 For i =1 To 10 Print#2, i Next i Close #2 D.Open"Datal"For Output As #2 For i =1 To 10 Print#1 i Next i Close #2