首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.1xt文件中的所有英文单词读入,并在Textl文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.1xt文件中的所有英文单词读入,并在Textl文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
admin
2020-04-08
93
问题
在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.1xt文件中的所有英文单词读入,并在Textl文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3.txt文件中,每个单词之间用一个空格字符隔开,最后一个单词的后面没有空格。已经给出了所有控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick() Dim st$.ch$ Open App.Path&"\in3.txt"For In— put As#’打开文件 Do While Not EOF(1)′文件指针是否到达文件末尾 Input#1,ch′达到文件末尾返回true.否则返回false st=
st
&ch′将读出的数据加到原有数据末尾 Loop Close#1′关闭文件 Textl=st′将内容显示在文本框中 End Sub Private Sub Command2_Click() Dim st$,word$,C$ St=Textl n=Len(St) For k=1 TO n
c
=Mid(st,k,1)′从st中依次取 出1个字符进行比较 If c<>""Then word=word&C E1Se Listl.AddItem word
word
=""将word清空,为下一次作准备 End If Next LiStl.AddItem word End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题首先要从文件中读入数据,再逐一检查文本框中每一个字符,如果发现空格则将其之前或两个空格之间的字符串作为一个单词用Addltem方法添加到列表框中。循环语句的上限为Len(st),赋值给变量n,判断语句的判断条件应为Mid(st,k,1)<>"",其中st=Textl.Text。每添加一个单词后清空变量word,将所取字符的起始位置加I,再次执行循环得到下一个单词。
转载请注明原文地址:https://kaotiyun.com/show/5NTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click() Dima&,s&,k& s=1 a=2 Fork=2To10
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
下列属性中,决定单选按钮是否被选中的是()。
设窗体上有2个框架,每个框架中有若干个单选按钮,下面叙述中正确的是()。
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是()。
数据字典(DD)所定义的对象都包含于
运行如下程序:PrivateSubCommandl_Click()Dima(5,5)AsIntegerF0ri=1To5Forj=1To4a(i,j)=i*2+JIfa(i,
以下关于VB对象属性的叙述中,错误的是
随机试题
创造思维
婴幼儿急性上感的临床特点
国产1号避孕药的成分
女,27岁,产后半月,右乳房胀痛伴高热38.5℃,体检:右乳房外上象限明显红肿,无触痛,无波动感,诊断为急性乳腺炎。在诊断方面,最重要的是要除外
某女,43岁,因吵架出现性情急躁易怒,口苦而干,头痛,耳赤,大便秘结,舌红,苔黄,脉弦数。其辨证为()
选择就位道的一般规律错误的是
解放思想与实事求是的关系表现为()。
根据下段文字.回答下列问题。随着我国经济社会的快速发展,工业和城市“三废”的大量排放.以及农业生产大量使用化肥、农药、杀虫剂等化学物质,农用耕地大量被污染,加上大量位于城市中心区和城郊地区的工业企业搬迁遗留的污染场地,使得我国土地污染日趋严重。土壤受污染
要剥除的附着在户口本上的利益有哪些?用不超过250个文字进行说明。在现有的利益格局中,欲消除户籍改革的阻力,必须做好哪些工作?
某中学高三(2)班排队,全班一共有56人,排成一条长队。从前面数,张明是第32人,从后面数,李红是第47人。请问张明和李红中间一共有多少同学?()
最新回复
(
0
)