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

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

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