首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.txt文件中的所有英文单词读入,并在Text1文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.txt文件中的所有英文单词读入,并在Text1文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)
admin
2019-03-14
70
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可将考生文件夹下in3.txt文件中的所有英文单词读入,并在Text1文本框中显示;单击“插入列表框”按钮,则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3.txt文件中,每个单词之间用一个空格字符隔开,最后一个单词的后而没有空格。已经给出了所有控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存上程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经添加所有控件,如图所示。在程序运行时,如果单击“开始”按钮,则每隔0.1秒窗体上的汽车图标向右移动一次(初始状态下不移动);如果单击“停止”按钮,则停止移动。
请完成以下工作:
①没皆适当控件的适当属性,使得每0.1秒汽车图标向右移动一次,而初始状态下不移动。
②请去掉程序中的注释符,把程序中的?改为正确的内容。
③为两个命令按钮编写适当的事件过程,最后以原文件名存盘。
注意:不得修改已经给出的程序。编写事件的过程中不能使用变量,每个事件过程中只能有一条语句。
选项
答案
(1)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim st $.ch $ Open App.Path & "\in3.txt"For Input As #1 ’打开文件 Do While Not EOF(1)’文件指针是否到达文件末尾 Input #1,ch’达到文件末尾返回true,否则返回false st=st & ch’将读出的数据加到原有数据末尾 Loop Close #1 ’关闭文件 Text1=st’将内容显示在文本框中 End Sub Private Sub Command2_Click() Dim st $,word$,c $ St=Text1 n=Len(St) FOr k=1 To n c=Mid(st,k,1)’从st中依次取出1个字符进行比较 If c<>" "Then WOrd=word & c Else List1.AddItem word word=""’将word清空,为下一次作准备 EndIf Next LiStl.AddItem word End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件,设置计时器Interval的属性为100,将Enabled属性设置为False。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Timerl_Timer() P1.Left=P1.Left+2 0 End Sub ’需要考生编写的内容 Private Sub C1_Click() Timerl.Enabled=True End Sub Private Sub C2_Click() Timerl.Enabled=False End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题首先要从文件中读入数据,再逐一检查文本框中每一个字符,如果发现空格则将其之前或两个空格之间的字符串作为一个单词用Addltem方法添加到列表框中。循环语句的上限为Len(st),赋值给变量n,判断语句的判断条件应为Mid(st,k,1)<>" ",其中st=Text1.Text。每添加一个单词后清空变量word,将所取字符的起始位置加1,再次执行循环得到下一个单词。
(2)首先通过计时器的Interval和Enabled属性设置计时器每次改变的时间间隔和计时器是否可用,根据题意,在初始状态下Enabled属性设置为False,在计时器的Timer事件过程中,通过图片框的Left属性值的改变来实现自左向右移动的功能。在“开始”按钮的单击事件过程中应启用计时器,在“停止”按钮的单击事件过程中必须停止计时器。
转载请注明原文地址:https://kaotiyun.com/show/PdFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
以下关于使用菜单编辑器设计菜单的叙述中错误的是
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是( )。①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
对于语句DimVar1#,Var2AsInteger,下列说法中正确的是
数据字典(DD)所定义的对象都包含于
将E-R图转换为关系模式时,实体和联系都可以表示为
对于循环队列,下列叙述中正确的是
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)
循环队列的存储空间为Q(1:50),初始状态为front=rear=50。经过一系列正常的入队与退队操作后,front=rear=25,此后又正常地插入了一个元素,则循环队列中的元素个数为()。
设栈的存储空间为S(1:50),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=30,则栈中的元素个数为()。
随机试题
谷氨酰胺参与
肾实质及被膜下亚急性期出血,在
眶蜂窝织炎的临床表现有()
下列五输穴中,属“土”的是
某无梁楼盖柱网尺寸为6m×6m,柱截面尺寸为450mm×450mm,楼板厚200mm,如题图,混凝土强度等级为C25,箍筋采用HPB300钢,弯起钢筋采用HRB335钢。as=20mm。若已知无梁楼板承受的集中反力设计值为Fl=424.1kN,则采用
某租赁公司于2008年将账面价值为2500万元的一套大型电子计算机以融资租赁方式租赁给B企业,该大型电子计算机占企业资产总额的30%以上。双方签订合同,B企业租赁该设备48个月,每6个月月末支付租金300万元,B企业担保的资产余值为450万元,另外担保公司
上海桃花节的主要活动场所和内容有()。
分散型配送网络是指在一个______(通常指在一个层次上)设有多个物流中心,而将客户按______,归属某一个物流中心。
文学除了消遣休闲,肯定还有其他娱乐方式不可替代的功能。在我看来,这一独特功能就是对人的精神世界的净化和提升。通过它,我们的心灵更加______,思想更加______,境界更加______。依次填入划横线处最恰当的一项是()。
材料1谈到人的价值,有一点许多人会困惑:万物都以其本身的品质来衡量,惟独人是例外。一匹马,我们赞扬的是它的矫健灵活,而不是它的鞍鞯;一条猎狗,我们赞扬的是它的速度,而不是它的项圈;一只鸟儿,我们赞扬的是它的翅膀,而不是它的牵绳或者脚铃。对于一个人,我们为
最新回复
(
0
)