（8 ）在当前目录下有一个名为 “ myfile.txt ” 的文本文件，其中有若干行文本。下面程序的功能是读

入此文件中的所有文本行，按行计算每行字符的 ASCII 码之和，并显示在窗体上。请填空。

Private Sub Commandl_Click()

Dim ch$,ascii As Integer

Open “ myfile.txt ” For 【 11 】 As #1

While Not EOF(1)

Line Input #1,ch

ascii=toasill (【 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,l))

Next k

Toascii=n

End Function