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

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

admin2009-09-28  109
问题 在当前目录下有—个名为“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)
解析 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，最后在屏幕上显示各行的码值之和。
转载请注明原文地址:https://kaotiyun.com/show/Zc1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)