[填空题] 在当前目录下有一个名为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

参考答案：

(11)Input (12)ch (13)Len(myStr)

问题解析:

程序中首先要读入文件内容，所以打开文件时要用Input方式，第[11]空填Input。通过While循环读入文件内容，每一次读入一行，存入到变量ch中，接下来调用toascii函数计算该行字符的ASCII码总和，所以传递的实参应是该行文本内容，第[12]空填存储该行内容的变量名ch。计算一行字符的ASCII码总和时，通过Mid(mySstr,k,1)依次取出每一个字符，k从1开始，直到该行最后一个字符结柬，最后一个字符的位置就是该行字符的长度，所以第[13]空应为Len(myStr)。