首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
admin
2016-03-22
34
问题
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个窄格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框巾,如图3—28所示。该程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改稃序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub cmdAdd Click()
Dim S1 As String, S2 As String
DimI1 As Inteqer
S1=?
I1=1
Do
Do While Mid(s1, I 1, 1) <>?
AndI1<=Len(S1)
S2=S2 &Mid(S1, I1, 1)
I1=I1+1
Loop
1st Word.AddItem?
S2=?
I1=I1+1
Loop WhileI1<=Len(S1)
End Sub
(2)在考生文件夹下有一个工程文件vbsj4.vbp,请在窗体上画三个文本框,其名称分别为Txt1、Txt2和txtResult,文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮,其名称分别为optChange和optLink,标题分别为“交换”和“连接”,如图3—29所示。编写适当的事件程序,要求在程序运行时,先单击“交换”单选按钮,使Txt1文本框中内容与Txt2文本框中内容进行交换,并使“交换”单选按钮消失;然后单击“连接”单选按钮,则把交换后的Txt1和Txt2的内容以Txt1在前,Txt2在后的顺序连接起来,并在txtResult文本框中显示连接后的内容。存盘时,工程文件名为vbsi4.vbp,窗体文件名为vbsi4.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,I 1,1)<>“”And I 1 <=Len(S1) 1StWord.AddItem S2 S2=“” 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按表4.18在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,编写3个按钮的单击事件过程。 参考代码: 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/jMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
线性表的顺序存储结构和线性表的链式存储结构分别是______。
假定有如下的窗体事件过程:PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c
在窗体上画四个文本框(如下图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程PrivateSubCommandl_Click()ForEachTextBoxin
假定有以下函数过程:FunctionFun(SAsString)AsStringDimslAsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1
设有如下的用户定义类型:TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则以下正确引用该类型成员的代码是()。
决定控件上文字的字体、字形、字号、效果的属性是()。
下面程序的功能是统计字符串中"i"的个数,请填空。SubCOU()DimnAsIntegera$="BeijingUniversityofTechnology"n=Len(a$)Fori=1Ton
下列程序弹出对话框中按钮的个数为【】。MsgBox″确认!″,vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation,″提示;″
有如下程序:PrivateSubCommand1_Click()a$="AWORKERISHERE"x=Len(a$)Fori=1Tox-1b$=Mid$(a$,i,3)Ifb$="WOR"ThenS
随机试题
阅读郭沫若《炉中煤》一诗,然后回答下列小题。炉中煤——眷念祖国的情绪啊,我年青的女郎!啊,我年青的女郎!我不辜负你的殷勤,我想我的前身你
抗恶性肿瘤药的不良反应不包括
血虚便秘的治法是
关于神经胶质细胞的描述,错误的是
防水混凝土墙体一般只允许留()施工缝,其位置应留在高出底板上表面()mm的墙身上。
按我国《反不正当竞争法》以及建设部《勘察设计行业职业道德准则》规定,在某一设计选取某种建筑材料或设备时,制造商表示愿在账外提供一定金额回扣,应如何处理?[2001年第83题]
背景资料某城市南郊雨水泵站工程临近大治河,大治河常水位为+3.00m,雨水泵站和进水管道连接处的管内底标高为-4.00m。雨水泵房地下部分采用沉井法施工,进水管为3m×2m×l0m(宽×高×长)现浇钢筋混凝土箱涵,基坑采用拉森钢板桩围护。设计对雨
中国的县城确实太复杂,塞北尚在千里冰封、万里雪飘的时候,江南已经百花吐艳、草木争晖了。2000多个县星罗棋布,地理位置、资源禀赋、文化传统和老百姓的生活方式都_______。填入划横线部分最恰当的一项是:
材料一1945年8月15日,日本实际上崩溃了,日本心理上和物质上的失败,反映了日本接受了将美国人起草的一个条款载入战后于1948年5月1日生效的“麦克阿瑟”宪法,该条规定战争“作为解决国际争端的手段”是非法的。重新措词的麦克阿瑟使日本有可能动用军
已知abc≠0,且=().
最新回复
(
0
)