level 2
草草物语1029
楼主
Dim Temp(100) As IntegerPrivate Sub Command1_Click() Dim k As Integer Open "in1.dat" For Input As
#1 For k = 1 To 100 Input #
1, Temp(k) Next k Close #1End SubPrivate Sub Command2_Click()???End SubPrivate Sub Form_Unload(Cancel As Integer) Open "out1.dat" For Output As #1 Print #1, Combo1.Text, Text1.Text Close #1End Sub
2006年01月09日 13点01分
1
#1 For k = 1 To 100 Input #
1, Temp(k) Next k Close #1End SubPrivate Sub Command2_Click()???End SubPrivate Sub Form_Unload(Cancel As Integer) Open "out1.dat" For Output As #1 Print #1, Combo1.Text, Text1.Text Close #1End Sub