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

[填空题] 在当前目录下有—个名为“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 #1End SubPrivate Function toascii(mystr＄)As Integer n=0 Fork=1 To 【13】 n=n+ Asc(Mid(mystr,k,1)) Next k toascii=nEnd Function

正确答案：

[11][Input

参考解析：

[12]ch[13]Len(mystr)[知识点] 文件的 *** 作、函数调用[评析] Line Input #语句格式：Line Input # 文件号，字符串变量。Line Input #语句可以从顺序文件中读取一个完整的行，并把它赋给一个字符串变量。文件号是一个整型表达式，其值在1～511范围内。执行Open语句时，打开文件的文件号与一个具体的文件相关联，其它输入输出语句或函数通过文件号与文件发生关系。“字符串变量”是一个字符串简单变量名，也可以是一个字符串数组元素名，用来接收从顺序文件中读出的字符行。本题要求读入文本文件“myfile.txt”，“myfile.txt”中有若干行文本，并按行计算每行字符的ASCII码之和，显示在窗体上。在按钮的点击事件中，先定义了两个变量，变量ch＄为字符型数据，变量ascii是数值型数据，应使用Input读入文本文件，所以使用的读取文本文件的语句应该为Open "myfile.txt" for input As #1，以读的方式打开文本文件myfile.txt，并给myfile.txt文件一个文件号1。当文件1没有到达文件尾时，读取myile.txt文件的一行，赋给变量ch。题目定义了一个Function过程toascii，功能是计算每行字符的ASCII码之和，先给变量n赋值，变量n的值等于数值0。要统计每行字符的ASCII码之和，那么要分别取出每行的每个字符，计算出它的码值，取字符从每行的第一个字符开始，到每行的字符个数为止。所以循环的终值为Len(ch)，用变量n存放每行ASCII码之和，并赋给变量toascii。所以传值时，传字符串ch给过程toascii。将ASCII码的和赋给变量ascii，最后在屏幕上显示各行的码值之和。