首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
2018-09-19
29
问题
设在当前目录下有一个名为"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/K2Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click()Dimf1AsInteger,f2AsInteger,iAsIntegerDimsAsIntegerf1=1:f2=1s=f1
有下面的程序段:Fori=14To5Step-3PrintNexti执行此程序段后,i的值为
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimxAsIntegerx=-10Mod-4Ifx
能够产生1到50之间(含1和50)随机整数的表达式是( )。
结构化程序所要求的基本结构不包括( )。
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
下面不能作为结构化方法软件需求分析工具的是
窗体上有一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubCommand1_Click()i=0DoWhilei<6Forj=1Toin
下列说法中错误的是
为了用形状控件画出不同的图形,应设置的属性是
随机试题
信息交换的方式有()
女性,30岁。脱发伴日晒后面部红斑半年,近日出现双睑浮肿。查体:面部不规则圆形皮疹,口腔溃疡。ESR150mm/h,抗ds—DNA抗体(+),抗Sm抗体(+),尿蛋白(+++)。关于本病的病理变化,叙述不正确的是
相对压强的起点是指:
禁止入境的五种传染病是艾滋病、性病、( )、精神病。
超货币供给理论的观点不包括()。
基础货币与货币供给量之间的关系是()。
小老鼠通过尝试错误进行的“迷宫”问题解决模式属于()
已知A=,求An。
【B1】【B7】
ParkingProblem;Forbiddenin【D1】______percentofstreetsReason:Buildingapartmentsand【D2】______ismoreprofitable,hencefew
最新回复
(
0
)