（ 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 asciiWendClose #1End SubPrivate Function toascii(mystr$) As Integern=0For k=1 To 【 13 】n=n+Asc(Mid(mystr,k,l))Next kToascii=nEnd Function
（ 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
相关考题：
阅读下面程序，程序实现的功能是（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．从键盘输入若干行字符，取前2行写入文本文件a123.txt中C．从键盘输入若干行字符，第一行写入文本文件a123.txt中D．从键盘输入若干行字符，依次写入文本文件a123.txt中
在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：Private Sub Command1_Click（）Dim inData As StringText1.Text=" "Open "d:|| ML ） ||Myfile txt" for ________ As #1Do While ________Input # 1,inDataText1.Text=Text1.Text+inDataLoopClose #1End Sub程序的功能是，打开D盘根目录下的文本文件 myfile.txt, 读取它的全部内容并显示在文本框中。请填空
（ 11 ） 在窗体上画一个命令按钮和一个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写如下事件过程 ：Private Sub Command1_Click()Dim inData As StringText1.Text = ""Open "d:\myfile.txt" For 【 14 】 As #1Do While 【 15 】Input #1, inDataText1.Text = Text1.Text + inDataLoopClose #1End Sub程序的功能是，打开 D 盘根目录下的文本文件 myfile.txt ，读取它的全部内容并显示在文本框中 。 请填空。
当前目录下有数据库文件QLDBF，要将转变为文本文件的正确操作是( )。A．USE QL COPY EROM QL DELIMITEDB．USE QL COPY TO QL TYPE DELIMITEDC．USE QL COPY STRU TO QLD．USE QL COPY F[LES T0 QL TYPE DELIMITED
在当前目录下有—个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。Private Sub Command1_ Click()Dim ch＄, ascii As IntegerOpen "myfile.txt" For【 】 As 1While Not EOF(1)Line Input 1 ,chascii=toascii(【 】)Print asciiWendClose 1End SubPrivate Function toascii(mystr＄)As Integern=0Fork=1 To【 】n=n+ Asc(Mid(mystr,k,1))Next ktoascii=nEnd Function
有以下程序 (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中
以写方式打开myfile.txt文本文件，正确的选项是（）。A．fopen("myfile.txt","r");B．fopen("myfile.txt","w");C．fopen("myfile.txt","rb");D．fopen("myfile.txt","wb");
5、问题：统计文本文件中最长行的长度和该行的内容。提供程序代码和运行示例的结果截图。 示例： 文本文件名为 sample.txt ，内容为： 123 asdfg zxcvbnm uiop1 程序运行结果为： [8，'zxcvbnm\n']