A、Private Sub Command1_Click() Dim myfrt As fruit myfrt. range = 5 myfrt. apple = 10 Open “c:\myfrta. txt” For Output As #1 Print #1, myfrt. orange; myfrt. apple Close #1 End Sub
B、Private Sub Command1_Click() Dim myfrt As fruit myfrt. range= 5 myfrt. apple= 10 Open “c:\myfrtac. txt”For Input As #1 Print #1, myfrt, orange; myfrt. apple Close #1 End Sub
C、Private Sub Command1_Click() Dim myfrt As fruit myfrt. range= 5 myfrt. apple = 10 Open “c:\myfrtac. txt” For As #1 Print #1, myfrt. orange; myfrt. apple Close #1 End Sub
D、Private Sub Command1_Click() Dim myfrt As fruit myfrt. range = 5 myfrt. apple= 10 Open “c:\myfrtac..txt” For Output As #1 Print myfrt. orange; myfrt. apple Close #1 End Sub