[试题]

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

Private Sub Commandl_Click()

D.im 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

C.lose #1

E.nd Sub

Private Function toascii(mystr$) As Integer

n=0

F.or k=1 To ( 13 )

n=n+Asc(Mid(mystr,k,l))

Next k

Toascii=n

E.nd Function

参考答案与解析:

相关试题

若要打开:A盘上user子目录下名为abc.txt的文本文件进行读、写操作,下面

[单选题]若要打开:A盘上user子目录下名为abc.txt的文本文件进行读、写操作,下面符合此要求的函数调用是()。

  • 查看答案
  • 若要打开A盘上user子目录下名为abc.txt的文本文件进行读、写操作,下面符

    [单选题]若要打开A盘上user子目录下名为abc.txt的文本文件进行读、写操作,下面符合此要求的函数调用是()。

  • 查看答案
  • 若要打开A盘上user子目录下名为abc.txt的文本文件进行读、写操作,下面符

    [单选题]若要打开A盘上user子目录下名为abc.txt的文本文件进行读、写操作,下面符合此要求的函数调用是A.fopen(“A:/user/abc.txt”,“r”)B.fopen(“A://user//abc.txt”,“r+”)C.fopen(“A:/user/abc.txt”,“rb”)D.fopen(“A:/user//abc.txt”,“w”)

  • 查看答案
  • 若要打开A盘中user子目录下名为aaa.txt的文本文件进行读、写操作,下面符

    [单选题]若要打开A盘中user子目录下名为aaa.txt的文本文件进行读、写操作,下面符合此要求的函数调用是( )。A.fopen("A:/user/aaa.txt","r")B.fopen("A://user//aaa.txt","r=")C.fopen("A:/user/aaa.txt","rb")D.fopen("A://user//aaa.txt","w")

  • 查看答案
  • 当前目录下有数据库文件QLDBF,要将转变为文本文件的正确操作是()。

    [单选题]当前目录下有数据库文件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

  • 查看答案
  • 假定当前盘符下有两个如下文本文件: 文件名 a1.txt a2.txt 内容 1

    [单选题]假定当前盘符下有两个如下文本文件:文件名 a1.txt a2.txt内容 123# 321#则下面程序段执行后的结果为#include "stdio.h"void fc(FILE *p){ char c;while((c=fgetc(p))!=′#′)putchar(c);}main(){ FILE *fp;fp=fopen("a1.txt","r");fc(fp);fclose(fp);fp=fopen("a2.txt","r");fc(fp);fclose(fp);put

  • 查看答案
  • 要从数据表文件产生一个扩展名为.TXT的文本文件,应当使用命令()。

    [单选题]要从数据表文件产生一个扩展名为.TXT的文本文件,应当使用命令()。A . MODIFYFILEB . MODIFYCOMMANDC . COPYTOD . CREATE

  • 查看答案
  • 假定当前盘符下有两个如下文本文件:文件名a1.txt a2.txt内容 123#

    [单选题]假定当前盘符下有两个如下文本文件: 文件名 a1.txt a2.txt 内容 123# 321# 则下面程序段执行后的结果为 #include "stdio.h" void fc(FILE *p) { char c; while((c=fgetc(p))!='#')putchar(c);} main() { FILE *fp; fp=fopen("a1.txt","r"); fc(fp); fclose(fp); fp=fopen("a2.txt","r"); fc(fp

  • 查看答案
  • 以下语句用于打开一个顺序文件Open“C:\MyFile.txt”For Out

    [单选题]以下语句用于打开一个顺序文件Open“C:/MyFile.txt”For OutPut,但是该语句的一个重要错误是没有A.指定打开方式B.指定文件号C.指定打开文件名D.指定文件类型

  • 查看答案
  • HttpPostedFile 怎么读取txt文本文件内容?

    int FileLen = postedFile.ContentLength; System.IO.Stream MyStream = postedFile.InputStream; StreamReader sr = new StreamReader(MyStream); string str = sr.ReadToEnd(); HttpPostedFile 怎么读取txt文本文件内容?

  • 查看答案