[填空題] 在當(dāng)前目錄下有—個名為“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是讀入此文件中的所有文本行，按行計(jì)算每行字符的ASCII碼之和，并顯示在窗體上。請?zhí)羁铡rivate Sub Command1_ Click() Dim ch＄, ascii As Integer Open "myfile.txt" For 【11】 As #1 While Not EOF(1) Line Input #1 ,ch ascii=toascii( 【12】 ) Print ascii Wend Close #1End SubPrivate Function toascii(mystr＄)As Integer n=0 Fork=1 To 【13】 n=n+ Asc(Mid(mystr,k,1)) Next k toascii=nEnd Function

[11][Input

[12]ch[13]Len(mystr)[知識點(diǎn)] 文件的操作、函數(shù)調(diào)用[評析] Line Input #語句格式：Line Input # 文件號，字符串變量。Line Input #語句可以從順序文件中讀取一個完整的行，并把它賦給一個字符串變量。文件號是一個整型表達(dá)式，其值在1～511范圍內(nèi)。執(zhí)行Open語句時，打開文件的文件號與一個具體的文件相關(guān)聯(lián)，其它輸入輸出語句或函數(shù)通過文件號與文件發(fā)生關(guān)系?！白址兞俊笔且粋€字符串簡單變量名，也可以是一個字符串?dāng)?shù)組元素名，用來接收從順序文件中讀出的字符行。本題要求讀入文本文件“myfile.txt”，“myfile.txt”中有若干行文本，并按行計(jì)算每行字符的ASCII碼之和，顯示在窗體上。在按鈕的點(diǎn)擊事件中，先定義了兩個變量，變量ch＄為字符型數(shù)據(jù)，變量ascii是數(shù)值型數(shù)據(jù)，應(yīng)使用Input讀入文本文件，所以使用的讀取文本文件的語句應(yīng)該為Open "myfile.txt" for input As #1，以讀的方式打開文本文件myfile.txt，并給myfile.txt文件一個文件號1。當(dāng)文件1沒有到達(dá)文件尾時，讀取myile.txt文件的一行，賦給變量ch。題目定義了一個Function過程toascii，功能是計(jì)算每行字符的ASCII碼之和，先給變量n賦值，變量n的值等于數(shù)值0。要統(tǒng)計(jì)每行字符的ASCII碼之和，那么要分別取出每行的每個字符，計(jì)算出它的碼值，取字符從每行的第一個字符開始，到每行的字符個數(shù)為止。所以循環(huán)的終值為Len(ch)，用變量n存放每行ASCII碼之和，并賦給變量toascii。所以傳值時，傳字符串ch給過程toascii。將ASCII碼的和賦給變量ascii，最后在屏幕上顯示各行的碼值之和。