在当前目录下有—个名为“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

A.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。
Private
B.txt'

【参考答案】

Input、ch、Len(mystr)
Input、ch、Len(mystr) 解析：Line Input #语......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)