设在当前目录下有一个名为"file．txt"的文本文件，其中有若干行文本。编写如下程序： Private Sub Command1_Click() Dim ch$．ascii As Integer Open"file．txt"For

admin2019-08-22 45

问题设在当前目录下有一个名为"file．txt"的文本文件，其中有若干行文本。编写如下程序：
Private Sub Command1_Click()
Dim ch$．ascii As Integer
Open"file．txt"For Input As#1
While Not EOF(1)
Line Input#1．ch
ascii=toascii(ch)
Print aseii
Wend
Close#1
End Sub
Private Function toascii(mystr As String)As Integer
n=0
For k=1 To Len(mystr)
n=n+Asc(Mid(mystr，k，1))
Next k
toascii=n
End Function
程序的功能是( )。

选项 A、按行计算文件中每行字符的ASCII码之和，并显示在窗体上
B、计算文件中所有字符的ASCII码之和，并显示在窗体上
C、把文件中所有文本行按行显示在窗体上
D、在窗体上显示文件中所有字符的ASCII码值

答案A

解析过程toaseii的功能是依次取出传入字符串中的每个字符，用Asc函数将这个字符转换为相应的ASCII码值，通过For循环将这些值累加。累加值由过程名返回。Click事件中以顺序输入方式打开file．txt文件，即以读取方式打开文件。While循环的结束条件是到达文件尾部，在循环体中，Line Input#语句读取文件中的一行数据存入变量ch中，然后以ch为参数调用过程toascii，即计算这一行字符中所有字符的ASCⅡ码值的和，返回值赋给变量ascii，在窗体上输出ascii的值。所以While循环结束时，将在窗体上显示输出file．txt中每一行数据的ASCⅡ码值的和。因此答案为A。

转载请注明原文地址:https://kaotiyun.com/show/yoTp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

设在当前目录下有一个名为"file．txt"的文本文件，其中有若干行文本。编写如下程序： Private Sub Command1_Click() Dim ch$．ascii As Integer Open"file．txt"For

二级VB

NCRE全国计算机二级

为把圆周率的近似值3．14159存放在变量pi中，应该把变量pi定义为()。

下面程序运行时，若输入395，则输出结果是()。PrivateSubCommand1_Click()Dimx％x=InputBox("请输入一个3位整数")PrintxMod10，x＼100，(x

有三个关系R、S和T如下：其中关系T由关系R和S通过某种操作得到，该操作为()。

在3种不同类型的组合框中，只能选择而不能输入数据的组合框是()。

要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为()。

(1)在考生文件夹下有一个工程文件sjt3．vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作：1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中；2)从名称为List1的列表框中选中

设x是小于10的非负数。对此陈述，以下正确的VB表达式是

将数据库的结构划分成多个层次，是为了提高数据库的()。

对软件系统总体结构图，下面描述中错误的是()。

有关支气管扩张的咳痰症状。下列哪项不正确

下列何药不是生化汤的组成药物()

患者大便时溏时泻，水谷不化，稍进油腻之物，则大便次数增多，食少，脘腹胀闷，面黄，肢倦乏力，舌淡苔白，脉细弱，其治法是()

企业可以认定某项可供出售金融资产已发生减值的情形主要有()。

根据CreditRisk+模型，假设某贷款组合由100笔贷款组成，该组合的平均违约率为2%，e=2.72，则该组合发生4笔贷款违约的概率为()。

精神病性易激惹的特点是()。

被誉为意大利文艺复兴“三杰”的是()。

杜威所主张的教育思想被称作()。

下列因素中不属于我国高等学校教师管理道德诉求的是()。