全國(guó)計(jì)算機(jī)考試ppt課件(編輯修改稿)
2025-06-02 04:43 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 pen For Output As 1 Print 1, Text1 Close 1 13 方法 2： 把整個(gè)文本框的內(nèi)容一個(gè)字符一個(gè)字符地寫入文件。 Open For Output As 1 For i=1 To len(Text1) Print 1,Mid(Text1, i, 1)。 Next i Close 1 Write 文件號(hào)， [輸出列表 ] ? 緊湊格式。數(shù)據(jù)項(xiàng)之間插入“ ,”，并加上雙引號(hào) 14 ? 用 Write 語(yǔ)句寫入時(shí)，文件必須以 Output或Append方式打開； ? 用 Write 語(yǔ)句寫入的正數(shù)的前面沒有空格。 例如，命令： Write 1,One,Two,123 內(nèi)容： One,Two,123 例 2:在磁盤上建立一個(gè)電話號(hào)碼文件，存放單位名稱和該單位的電話號(hào)碼。 private Sub Form_Click( ) Open “a:\Tel\”For Output As 1 unti$ = InputBox(“Enter unit:”) While Ucase(unit$) “DONE” tel$ = InputBox(“Enter unit:”) 15 Write 1, unti$ , tel$ unti$ = InputBox(“Enter unit:”) Wend Close 1 End Sub 3. 關(guān)閉文件 Close [[]文件號(hào) ][, []文件號(hào) ]... 例如， Close 1, 2, 3 16 4. 讀順序文件 ?INPUT 文件號(hào) ,變量列表 Input 語(yǔ)句從一個(gè)已經(jīng)打開的順序中讀出的每個(gè)數(shù)據(jù)項(xiàng)分別存放到所對(duì)應(yīng)的變量。 例 3：用 Windows自帶的“記事本”程序創(chuàng)建一個(gè)順序文件 。該文件內(nèi)包含若干整型數(shù)據(jù)，各數(shù)據(jù)間用空格分開。編寫一個(gè)程序，找出該文件中的最大值、最小值和平均值，并在窗體上打印出來。 private Sub Form_Click( ) Dim maxnum As Integer Dim minnum As Integer Dim temp As Integer 17 Di
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1