首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
2020-06-30
31
问题
设在当前目录下有一个名为"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/cIHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。要求:请去掉程序中的注
在考生文件夹下有一个工程文件sjt5.vbp,已给出了部分控件和部分程序。程序运行时,请在窗体上画三个标签,其名称分别为Label1、Label2和Label3,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为Text1、Tex
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Command1(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组Option1,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4”,初始状态下,“
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Comb01的组合框,其宽度为1200,其类型如图3-188所示(即简单组合框)。要求如下:①请按图中所示,通过属
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画出如图3-6所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图1-257所示)。程序运行
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
随机试题
简述市场利率的构成要素。
某老年人牙龈退缩的牙面中未患龋牙面有40个,患根面龋的牙面有10个,因根龋充填的牙面10个,则该老年人根龋指数约为()
A.伏立康唑B.氟胞嘧啶C.氟康唑D.灰黄霉素E.特比萘芬治疗皮肤浅表性癣菌病的首选药是
利润表中各项目的“本年累计数”反映的是()。
HS归类总规则由( )规则组成。
公安机关的职责是由()所确认的。
There’sasimplepremisebehindwhatLarryMyersdoesforaliving:Ifyoucansmellit,youcanfindit.Myersisthefound
在内忧外患的情况下,洋务运动开展起来,关于其说法错误的是()
Readthejobadvertisementbelow.Aresentencesontheoppositepage’Right’or’Wrong’?Ifthereisnotenoughinformationt
"Laugh,andtheworldlaughswithyou:weep,andweepalone."SowrotethepoetEllaWheelerCox.Emotionsarecatching,andmos
最新回复
(
0
)