首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbslj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为IstWord。程序
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbslj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为IstWord。程序
admin
2020-07-22
28
问题
(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://jikaoti.com/ti/GzS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下程序:PrivateSubForm_Click()DimNAsInteger,JAsIntegerN=0J=1DoUntilN>2N=N+1:J=J+N*(N+11)
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivmeTypeRecordIDAsInteger:NameAsString*20EndTypePrivateSubComma
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是( )。
以下叙述中错误的是
下列选项中,不属于数据模型所描述的内容的是()。
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
窗体上已有1个名称为Picture1的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
(1)考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Text1的控件数组;一个标题为”排序”的命令按钮。程序运行时,在文本框数组中输入8个整数,如图3-29(a)所示;然后单击”排序”按钮,则8个整数按降序排序,如图3-29(b)所示。
在考生文件夹中有一个工程文件sjt4.vbp。该程序的功能是将文件in4.txt中的文本读出并在文本框Text1中显示。输入一个英文字母到文本框Text2中,然后单击“统计”命令按钮,统计该字母(大小写被认为是不同的字母)在文本中出现的次数,统计结果在标签
以下能够设置控件焦点的方法是( )。
随机试题
球墨铸铁中的碳是以()形式分布于金属基体中。
Asheclosedhisservicestationat1:20oneSundaymorning,TonyPayseursetonthegroundametalcashboxcontaining$7,000.
具有"运化水谷"功能的脏是()
同时放散有害物质、余热和余湿时,全面通风量应()计算。
已知(Sn4+/Sn2+)=0.15V,(Fe3+/Fe2+)=0.77V,(Cu2+/Cu)=0.34V,判断在标准状态下,下列反应能自发进行的是()。
气温、降水量和日照时数过高或过低都会给柑橘的生长发育带来风险,气候风险度越大,柑橘减产的可能性也越大。下图示意我国大陆亚热带柑橘产地气候风险度分布。图中E、F两地气候风险度分别可能为()。
许多人很崇尚言论自由,以为言论自由就可以解决思想自由的问题。实际上,言论表达的自由并不必然走向思想自由。假如我们观察网络媒体上的有些表达,就会发现它存在着一种极端化的趋势,严谨的人不一定参与表达和讨论,同时网络媒体上有许多非理性的谩骂和恶意攻击,等等。结果
"Yearsago,afriendofmineobservedthat80percentofthepeopleinthiscountryhavetoomuchself-esteemand20percenthav
评析孔子“学而优则仕”的教育主张。
ForanincreasingnumberofstudentsatAmericanuniversities,Oldissuddenlyin.Thereasonisobvious:thegrayingofAmerica
最新回复
(
0
)