（ 8 ）在当前目录下有一个名为 “ myfile.txt ” 的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的 ASCII 码之和，并显示在窗体上。请填空。Private Sub Commandl_Click()Dim ch$,ascii As IntegerOpen “ myfile.txt ” For 【 11 】 As #1While Not EOF(1)Line Input #1,chascii=toasill ( 【 12 】 )Print ascii
题目
（ 8 ）在当前目录下有一个名为 “ myfile.txt ” 的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的 ASCII 码之和，并显示在窗体上。请填空。
Private Sub Commandl_Click()
Dim ch$,ascii As Integer
Open “ myfile.txt ” For 【 11 】 As #1
While Not EOF(1)
Line Input #1,ch
ascii=toasill ( 【 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,l))
Next k
Toascii=n
End Function
相似考题
更多“( 8 )在当前目录下有一个名为 “ myfile.txt ” 的文本文件,其中有若干行文本。下面程序的功能是读 ”相关问题
-
第1题：
在当前目录下有—个名为“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
正确答案：Input、ch、Len(mystr)
Input、ch、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，最后在屏幕上显示各行的码值之和。 -
第2题：
Java 源程序是扩展名为（）的文本文件。
B -
第3题：
5、问题：统计文本文件中最长行的长度和该行的内容。提供程序代码和运行示例的结果截图。 示例： 文本文件名为 sample.txt ，内容为： 123 asdfg zxcvbnm uiop1 程序运行结果为： [8，'zxcvbnm\n']
C -
第4题：
有以下程序 (a123.txt在当前盘符下已经存在)#include "stdio.h"void main(){ FILE *fp; int a［10］,*p=a; fp=fopen（"a123.txt","w"）; while（ strlen（gets（p））>0 ） { fputs（a,fp）; fputs（"＼n",fp）; } fclose（fp）;} 程序实现的功能是A．从键盘输入若干行字符，按行号倒序写入文本文件a123.txt中B．从键盘输入若干行字符，取前两行写入文本文件a123.txt中C．从键盘输入若干行字符，第一行写入文本文件a123.txt中D．从键盘输入若干行字符，依次写入文本文件a123.txt中
正确答案：D
本题考查文件的读写操作。程序中使用fopen函数打开文本文档a123，打开方式为只写。初始定义了一个整型数组，长度为10。while循环的判断语句是判断是否有输入字符存在。strlen函数是计算输入字符串的长度。fputs函数是向指定的文件输出一个字符串。题目给出的程序就是只要从键盘上输入字符，就将该字符向指定的文件输出。 -
第5题：
以写方式打开myfile.txt文本文件，正确的选项是（）。
A．fopen("myfile.txt","r");
B．fopen("myfile.txt","w");
C．fopen("myfile.txt","rb");
D．fopen("myfile.txt","wb");
iosapp