首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序: Private Sub Command1_Click() Dim ch$, ascii As Integer Open "file.txt" For Inpu
设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序: Private Sub Command1_Click() Dim ch$, ascii As Integer Open "file.txt" For Inpu
admin
2015-08-28
68
问题
设在当前目录下有一个名为"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 ascii
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
解析
过程toascii的功能是依次取出传入字符串中的每个字符,用Asc函数将这个字符转换为相应的ASCII码值,通过For循环将这些值累加。累加值由过程名返回。Click事件中以顺序输入方式打开file.txt文件,即以读取方式打开文件。While循环的结束条件是到达文件尾部,在循环体中,Line Input #语句读取文件中的一行数据存入变量ch中,然后以ch为参数调用过程toascii,即计算这一行字符中所有字符的ASCII码值的和,返回值赋给变量ascii,在窗体上输出ascii的值。所以While循环结束时,将在窗体上显示输出file.txt中每一行数据的ASCII码值的和。因此答案为A。
转载请注明原文地址:https://kaotiyun.com/show/AKQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)……EndSub若焦点位于文本框中,则能够触发KeyP
当一个工程含有多个窗体时,其中的启动窗体是______。
下列不属于软件调试技术的是______。
实现算法所需的存储单元多少和算法的工作量大小分别称为算法的【】。
结构化程序设计主要强调的是______。
以下叙述中错误的是______。
在设计应用程序时,通过______窗口可以查看到应用程序工程中的所有组成部分。
下列说法错误的是()。
在最坏情况下,下列排序方法中时间复杂度最小的是______。
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第
随机试题
甲欠银行贷款3万元,诉讼时效期间为1999年10月5日以前,2001年3月8日银行欠甲厂货款3万元,则银行用1999年10月5日以前甲厂欠自己的3万元贷款与甲的3万元债权相抵消。()
下肢静脉曲张,行Penhes试验是为了检查
下列各穴中,常用于保健并具有强壮作用的是
基准组合是可投资的、经过管理的、与基金具有相同风格的组合。()
下列关于资产负债表日后事项的说法中,正确的是()。
主观世界和客观世界的关系是()。
直线的倾斜角是().
下列不属于辅助工程的是()。
Choosethecorrectletter,A,BorC.WhatdoesDanisuggesttoJohnwhenthosesubjectsreceivethequestionnaire?
TheancientChineseboardgameGowasinventedlongbeforetherewasanywritingtorecorditsrules.Agamefromtheimpossibly
最新回复
(
0
)