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