在当前目录下有一个名为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 For k=1 Ton=n+Asc(Mid(myStr,k,1)) Next k toascii=n End Function