首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.1xt文件中的所有英文单词读入,并在Textl文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.1xt文件中的所有英文单词读入,并在Textl文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
admin
2020-04-08
86
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
如果把Text1文本框的MousePointer属性设置为2(把鼠标光标设置为十字),则
编写如下程序:PrivateSubCommand1_Click()DimnumAsIntegerDimkAsInteger,nAsIntegernum=InputBox("请输入一个正整数:")k
下列属性中,决定单选按钮是否被选中的是()。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
关于MDI窗体下列说法正确的是()。
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是()。
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是()。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10
随机试题
根据下列资料,回答下列问题。独角静公司是投资界术语,一般指成立不超过10年,估值超过10亿美元,少部分估值超过100亿美元的企业,其不仅是优质和市场潜力无限的绩优股,而且商业模式很难被复制。行业集中度,是指某行业的相关市场内前N家最大的企业(头部
Howwillthepresent-daysciencedevelopinthenearfuture,i.e.thenextdecadeorso?To【36】with,wecanexpect【37】scienc
患者,19岁。因贫血乏力入院治疗,血常规:Hb60g/L,WBC31.5×109/L,RBC2.8×1012/L,PLT60×109/L。临床诊断为骨髓增生异常。配血不合进一步检查。实验室检查结果见表给这类患者输血时应
艾宾浩斯发现的遗忘规律是遗忘的进程不均衡,表现为
A.布洛卡区受损B.角回受损C.颞上回后部受损D.额中回后部E.顶叶受损感觉性失语
可以明显降低冬季和夏季的采暖和制冷费用的玻璃是()。
将经营决策分为静态决策和动态决策,这种划分是按经营决策()的不同划分的。
下面是一篇初中学生的习作,阅读并完成第以下问题。心的正方向①那些名家大师的狂草、潇洒飘逸的字体从来都是或仰或倒或倾或俯的。而这些姿态各异的字却无疑组成了一副副佳作。
Istheresomethingastruth?Foragoodmanycenturies"thesearchfortruth"hasbeen【31】thenoblestactivityofthehumanmind
ISO9000族标准中的位置,它是计算机软件机构实施(3)的(4)标准,由于(5)标准本来是针对传统的制造业制定的,而软件业又有许多不同于制造业的特必(6)起了桥梁作用。(7)将整个软件生产周期分成17个过程,并且对每一个过程按“过程—活动—任务”的三个
最新回复
(
0
)