首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在当前目录下有一个名为"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
56
问题
设在当前目录下有一个名为"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全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“等级考试”,BorderStyle属性为1,可以根据标题自动调整大小;然后再画一个命令按钮,其
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Comb01的组合框,其宽度为1200,其类型如图3-188所示(即简单组合框)。要求如下:①请按图中所示,通过属
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画出如图3-6所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3-169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图1-267所示)。程序运行
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
假定编写了如下的Sub过程:PublicSubProc(a()AsInteger)StaticiAsIntegerDoa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSub编写如下事件过程:Priv
随机试题
胎牛房中隔上的裂孔称为
引起和维持有意注意的条件是()。
A为外国公民,因一起民事纠纷在中国法院进行诉讼,诉讼过程中,她要求使用其本国语言文字进行诉讼。律师应当告诉她,中国法院
下列说法错误的一项是()
阴道镜上的接目镜能将宫颈放大5~40倍,以利观察宫颈病变。()
女,52岁。牙列缺失四个月,要求全口义齿修复,检查:两侧上颌结节较肥大,颊侧倒凹明显,上下颌牙槽嵴比较丰满,否认有全身疾病史。实验周期预计2.5年,采用龋病指数标准为
利尿药的分类和代表药搭配正确的是()
公安工作具有打击与保护的双重特点,这是由公安工作的()所决定的。
关于法治作用的局限性,可作如下说明()。
请在“考试项目”菜单上选择相应的菜单项,完成以下内容:向王明发一个E—mail,并将指定文件夹下的一个Word文档WX.doc作为附件一起发出。具体内容如下:[收件人]wangming@sina.com[主题]合同文本
最新回复
(
0
)