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

Private Sub Command1_ Click()

Dim ch＄, ascii As Integer

Open "myfile.txt" For【 】 As 1

While Not EOF(1)

Line Input 1 ,ch

ascii=toascii(【 】)

Print ascii

Wend

Close 1

End Sub

Private Function toascii(mystr＄)As Integer

n=0

Fork=1 To【 】

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

Next k

toascii=n

End Function