首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbslj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为IstWord。程序
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbslj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为IstWord。程序
admin
2020-07-22
46
问题
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbslj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为IstWord。程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个空格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如图3-64所示。该程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdAdd_Click()
Dim S1 As String,S2 As String
Dim I1 As Integer
’ S1=?
I1=1
Do
’ Do While Mid(S1,I1, 1)<>? And I1
<=Len(S1)
S2=S2&Mid(S1,I1,1)
I1=I1 + 1
Loop
’ lstWord.AddItem?
’ S2 =?
I1 = I1 + 1
Loop While I1<=Len(S1)
(2)在考生文件夹下有一个工程文件vbsi4.vbp,请在窗体上画三个文本框,其名称分别为Txt1、Txt2和txtResult,文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮,其名称分别为optChange和optLink,标题分别为“交换"和“连接",如图3.65所示。编写适当的事件程序,要求在程序运行时,先单击“交换”单选按钮,使Txt1文本框中内容与Txt2文本框中内容进行交换,并使“交换”单选按钮消失;然后单击“连接”单选按钮,则把交换后的Txt1和Txt2的内容以Txt1在前,Txt2在后的顺序连接起来,并在txtRcsult文本框中显示连接后的内容。存盘时,工程文件名为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的值)用Addltem方法添加到列表框中,并且清空变量S2,将取字符的起始位置加1。之后继续执行内循环以得到下一个单词,直到取字符的起始位置(即变量11的值)超过文本框的总字符数为止,外循环的条件为:I1<=Len(S1)。
【特别提示】以空格作为分隔单词的依据是本题的关键,同时注意空格字符串和空字符串是完全不同的。
(2)根据题目要求,设计本题程序的思路:在optChange单选按钮的Click事件应实现:将Txt1和Txt2文本框中的内容互换,可以通过一个中间变量来交换两个文本框中的内容,然后将optChange的Enable属性设置为False。在optLink单选按钮的Click事件应实现:将两个文本框中的内容连接进来,这里我们可以采用连接字符符号“&”来连接两个文本框的Text属性。
转载请注明原文地址:https://kaotiyun.com/show/CtHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()Dima(3,3)AsIntegerDim8AsIntegerFori=1To3Fo
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Commandl),然后编写如下事件过程:PrivateSubCommandl_Click()x=0DoWhilex<50x=(x+2)*(x+3
数据库设计中反映用户对数据要求的模式是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
设窗体上有一个名称为Timer1的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1_Timer()Sta
运行下面的程序,单击命令按钮,输出结果为()。FunctionF(aAsInteger)b:0Staticcb=b+1c=c+1F=a+b+cEndFunction
数据库系统的核心是()。
以下叙述中错误的是( )。
结构化程序的三种基本结构是()。
在标准模块中用Public关键字定义的变量,其作用域为
随机试题
根据《建筑安装工程费用项目组成》(建标[2003]206号),二次搬运费属于建筑安装工程费用中的()。
A.阴式子宫切除B.阴式子宫切除+阴道前后壁修补术C.Manchester手术D.放置子宫托治疗E.阴道纵隔成形术女,60岁,子宫脱垂Ⅲ度,伴阴道前后壁膨出,半年前曾患心肌梗死
冬虫夏草的混淆品有()
下列属于法律意识范畴的有:()
某燃煤电厂,采用发电机一变压器组单元接线,以220kV电压接入系统,高压厂用工作变压器直接接于主变压器低压侧,高压起动备用变压器经220kV电缆从本厂220kV配电装置引接,其两侧额定电压比为226/6.3kV,接线组别为YNyn0,额定容量为40MVA,
卖方不交货,不包括不交单据。()
行政事业单位会计是以权责发生制为基础。()
在美国航天探测研究中,曾计划采用“钚”代替“铀”做推动燃料,但遭到了强烈的反对,其中最可能的原因是()。
Mytopicfortoday’slectureis"Communication,CultureandWork".Whenmostpeopleusethewordculture,theythinkofpeoplef
Children’sHealthcareofAtlantawantstomoveGeorgiaoutofthetop10listforchildhoodobesity(肥胖),officialssaid.
最新回复
(
0
)