在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行

问题填空题

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

答案

参考答案：Input ch Len(mystr)

解析： Asc()函数可返回字符的Ascii码值，该值可以进行数学运算。本题源程序在自定义函数toascii中通过For循环逐一取出参数mystr中的每个字符，并将Ascii码值累加入变量n，函数返回值为参数mystr中每个字符的Ascii码之和。以读入方式打开数据文件应使用Input；调用函数toascii时，参数应为以行方式读入到变量ch中的字符串；函数toascii中For循环变量的终值应为参数mystr的长度t，即Len(mystr)。