（ 8 ）在当前目录下有一个名为 “ myfile.txt ” 的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的 ASCII 码之和，并显示在窗体上。请填空。

Private Sub Commandl_Click()

D．im 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

C．lose #1

E．nd Sub

Private Function toascii(mystr$) As Integer

n=0

F．or k=1 To ( 13 )

n=n+Asc(Mid(mystr,k,l))

Next k

Toascii=n

E．nd Function