順序文件的建立。建立順序文件C:\Stud.txt,內(nèi)容來自文本框,每按一次Enter鍵寫入一條記錄,然后清除文本框的內(nèi)容,直到文本框內(nèi)輸入“END“字符串。
子過程MoveStr()是把字符數(shù)組移動m個位置。當Tag為True,左移,則前m個字符移到字符數(shù)組尾,例如,“abcdefghij”左移三個位置后,結(jié)果為“defghijabc”;當Tag為False,右移,則后m個字符移到字符數(shù)組前,如“abcdefghij”右移三個位置后,結(jié)果為“hijabcdefg”。子過程如下: