[填空題] 在當(dāng)前目錄下有一個(gè)名為myfile.txt的文本文件，其中有若干行文本。下面程序的功能是讀入此文件中的所有文本行，按行計(jì)算每行字符的ASCII碼之和，并顯示在窗體上。請?zhí)羁铡?/p>

Private 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 #1

End Sub

Private Function toascii(myStr$) As Integer

n=0

For k=1 To (13)

n=n+Asc(Mid(myStr,k,1))

Next k

toascii=n

End Function

(11)Input (12)ch (13)Len(myStr)

程序中首先要讀入文件內(nèi)容，所以打開文件時(shí)要用Input方式，第[11]空填I(lǐng)nput。通過While循環(huán)讀入文件內(nèi)容，每一次讀入一行，存入到變量ch中，接下來調(diào)用toascii函數(shù)計(jì)算該行字符的ASCII碼總和，所以傳遞的實(shí)參應(yīng)是該行文本內(nèi)容，第[12]空填存儲該行內(nèi)容的變量名ch。計(jì)算一行字符的ASCII碼總和時(shí)，通過Mid(mySstr,k,1)依次取出每一個(gè)字符，k從1開始，直到該行最后一個(gè)字符結(jié)柬，最后一個(gè)字符的位置就是該行字符的長度，所以第[13]空應(yīng)為Len(myStr)。