首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件名为vbsj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件名为vbsj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
admin
2019-06-11
28
问题
(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件名为vbsj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个空格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如图3—64所示。该程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdAdd_click()
Dim S1 As String,S2 As String
Dim I1As Integer
’S1=?
I1=1
Do
’Do While Mid(S1,I1,1)<>?AndI1<=Len(S1)
S2=S2&Mid(S1,I1,1)
I1=I1+1
Loop
’lstword.AddItem?
’S2=?
I1=I1+1
Loop While I1<=Len(S1)
(2)在考生文件夹下有一个工程文件vbsj4.vbp,请在窗体上画三个文本框,其名称分别为Txt1、Txt2和。txtResult,文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮,其名称分别为optChange和optLink,标题分别为“交换”和“连接”,如图3—65所示。编写适当的事件程序,要求在程序运行时,先单击“交换”单选按钮,使Txt1文本框中内容与Txt2文本框中内容进行交换,并使“交换”单选按钮消失;然后单击“连接”单选按钮,则把交换后的Txt1和Txt2的内容以Txt1在前,Txt2在后的顺序连接起来,并在txtResult文本框中显示连接后的内容。存盘时,工程文件名为vbsj4.vbp,窗体文件名为vbsj4.frm。
注意:不得修改已经给出的程序。在结束程序运行之前,必须先单击“交换”单选按钮,后单击“连接”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮,否则可能无成绩。
程序源码:
Private Sub Form_Unload(Cancel As Integer)
Open"out4.txt"For Output As#1
Print #1,Txt1.Text,Txt2.Text,_txtResult.Text
Close#1
End Sub
选项
答案
第1小题 步骤1;打开考生文件夹下的工程文件vbsj3.vbp。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: S1=txtSentense.Text Do While Mid(S1,I1,1)<>" "And I1 _ <=Len(S1) lstWord.AddItem S2 S2=" " 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,按表4—40在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,编写3个按钮的单击事件过程。 参考代码: Private Sub optChange_Click() Dim temp As String temp=Txt1.Text Txt1.Text=Txt2.Text Txt2.Text=temp optChange.Visible=False End Sub Private Sub optLink_Click() txtResult.Text=Txt1.Text&Txt2.Text End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
第1小题:程序设计思路:从文本框的第1个字符开始依次检查其后面的每一个字符,若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环(指内循环,循环条件为:取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数,表达式为:Mid(S1,I1,1)<>" "And I1<=Len(S1),其中S1=txtSentense.Text,将Mid函数从文本框中取出的非空格字符,逐个连接成一个单词,语句为:S2=S2&Mid(S1,I1,1),每执行一次循环体取字符的起始位置加1,即I1=I1+1。当遇到空格时结束循环,将得到的单词(即变量S2的值)用AddItem方法添加到列表框中,并且清空变量s2,将取宁符的起始位置加1。之后继续执行内循环以得到下一个单词,直到取字符的起始位置(即变量I1的值)超过文本框的总字符数为止,外循环的条件为:I1<=Len(S1)。
第2小题:根据题目要求,设计本题程序的思路:在optChange单选按钮的Click事件应实现:将Txt1和Txt2文本框中的内容互换,可以通过一个中间变量来交换两个文木框中的内容,然后将optChangc的Enable属性设置为False。在optLink单选按钮的Click事件应实现:将两个文本框中的内容连接进来,这罩我们可以采用连接字符符号“&”来连接两个义本框的Text属性。
转载请注明原文地址:https://kaotiyun.com/show/MkUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为Label1、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、“辽
设已经在窗体上添加了一个通用对话框控件CommonDialog1,以下语句正确的是()。
软件调试的目的是()。
下列关于菜单项的描述中,错误的是
鼠标拖放控件要触发两个事件,这两个事件是
如果要定义一个窗体级变量,定义变量语句的位置应该是
算法的时间复杂度是指
下面不属于软件需求分析阶段主要工作的是
将E-R图转换为关系模式时,实体和联系都可以表示为
设窗体上有一个标签Labell和一个计时器Timerl,Timerl的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
随机试题
在全波桥式整流电路中,二极管的整流电流应是负载直流电流的()。
在手术中,有下列哪些情况可判定肠管已坏死
某厂低价招用20名学徒工,合同中规定他们每天必须从事高空作业或繁重搬运工作,否则不能结算当月工资。用工当月,因违反安全施工规定造成事故,致使学徒工多人伤亡。有关部门经调查发现这些学徒工均是不满15周岁的边远地区农民子弟。对此,劳动行政部门拟采取的下列哪一项
在政府采购中,经采购人同意,中标、成交供应商可以依法采取分包方式履行合同。政府采购合同分包履行的,中标、成交供应商就采购项目和分包项H向采购人负责,分包供应商就分包项¨承担责任。()
下列关于税盾的表述中,正确的是()。
(2017年聊城)下列选项造成的学生伤害事故,学校应当承担责任的是()
备课要做好三方面的工作,即()
关于2009~2012年全国矿产品贸易和能源生产、消费,能够从上述资料中推出的是:
给定资料材料1此前,北京外国语大学丝绸之路研究院发起了一次留学生民间调查,来自“一带一路”沿线20个国家的青年票选出了心目中的中国“新四大发明”:高铁、支付宝、共享单车和网购。受访者纷纷表示,“新四大发明”是他们最想带回祖国的“礼物”。
在软件生命周期中,能准确确定软件系统必须做什么和必须具备哪些功能的阶段是
最新回复
(
0
)