Print #1, Tab(1); Label18(i).Caption;
改 ,Print #1, Tab(1); Label18.Caption=i;
Print #1, Tab(7 * j + 6); Text30(9 * (i - 1) + j);
改,Print #1, Tab(7 * j + 6); Text30.Text(9 * (i - 1) + j);
Print #1, Tab(1); Lable13(i).Caption; Tab(8); Text15(i).Text; Tab(17); Text16(i).Text; Tab(28); Text17(i).Text
Next i
改, Print #1, Tab(1); Lable13.Caption=i; Tab(8); Text15.Text(i).Text; Tab(17); Text16.Text(i).Text; Tab(28); Text17.Text(i).Text