... "File text (*.kq)|*.kq|All files (*.*)|*.*".ShowSaveEnd WithFileName = CommonDialog1.FileNameDim FileNum As LongFileNum = FreeFileTenct = txttenct.TextOpen FileName For Output As FileNumPrint ... "|"NextPrint #FileNum, " +======================================+"Print #FileNum, " "Print #FileNum, " III. TOA DO THIET KE"Print #FileNum, " "Print #FileNum, ... ThenPrint #FileNum, " Tinh trong so theo cap cong thuc (2-51) "End IfPrint #FileNum, " "Print #FileNum, " I. THONG SO CUA LUOI"Print #FileNum, " "Print #FileNum,...