2. 计算机
  3. 在当前文件夹中有一个名为“mytile．txt”的文本文件，其中有若干行文本。窗体中有如下事件过程： Prirate Sub Command1_Click() Dim ch$．ascii As Integer Open"myfile

在当前文件夹中有一个名为“mytile．txt”的文本文件，其中有若干行文本。窗体中有如下事件过程： Prirate Sub Command1_Click() Dim ch$．ascii As Integer Open"myfile

admin2019-06-20  10
问题 在当前文件夹中有一个名为“mytile．txt”的文本文件，其中有若干行文本。窗体中有如下事件过程：
    Prirate Sub Command1_Click()
    Dim ch$．ascii As Integer
    Open"myfile．txt"For Input As #1
    While Not EOF(1)
    Line Input #1．eh
    ascii=0
    For k=1 To Len(eh)
    ascii=ascii+Asc(Mid(ch，k，1))
    Next k
    Print ascii
    Wend
    Close #1
    End Sub
    这一事件过程执行的结果是(    )。
选项 A、按行计算文件中每行字符的ASCII码之和，并显示在窗体上
B、计算文件中所有字符的ASCII码之和，并显示在窗体上
C、把文件中所有字符的ASCII码显示在窗体上
D、统计文件中文本行的行数，并显示在窗体上
答案A
解析 程序中指定使用顺序输入方式打开文件“myfile．txt”文件，在While……Wend循环结构中判断文件是否到结尾，若没有到达结尾，则使用Line．Input#语句从顺序文件中读取一个完整的行，并把它赋值给一个字段串变量ch，然后使用：For循环语句将刚读取的一行字符串信息依次取出每个字符，并将各字符的ASCII码值相加，最后输出所有字符的ASCII值的和，故本题中A选项正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/4fUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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