首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个命令按钮控件数组,名称为Cmd;有一个图像框,名称为Image1。请添加一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图所示。 程序功能如下: ①单击
(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个命令按钮控件数组,名称为Cmd;有一个图像框,名称为Image1。请添加一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图所示。 程序功能如下: ①单击
admin
2015-10-23
66
问题
(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个命令按钮控件数组,名称为Cmd;有一个图像框,名称为Image1。请添加一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图所示。
程序功能如下:
①单击“前进”按钮,则Timer1的状态变为可用,且在图像框中显示3秒黄灯(图像文件为考生文件夹下的“yellow.ico”)后显示绿灯(图像文件为考生文件夹下的“green.1co”),直至下次单击某个命令按钮。
②单击“停止”按钮,则Timer1的状态变为可用,且在图像框显永3秒黄灯后显示红灯(图像文件为考生文件夹下的“red.ieo”),直至下次单击某个命令按钮。
③单击“结束”按钮,则结束程序运行。
请将命令按钮Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序。最后将程序按原文件名进行存盘。
(2)考生文件夹下有一个工程文件sjt4.vbp,其中的窗体上已有如图所示的控件。程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中。
②在文本框Text1中选中部分文本,单击“统计”按钮,以不区分大小写字母的方式,自动统计选中文本中同时出现“o”、“n”两个字母的单词的个数(如:million、company都属于满足条件的单词),并将统计结果在Text2文本框内显示。
请将“统计”按钮的Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名进行存盘。
选项
答案
步骤1:打开本题工程文件,添加计时器控件,并设置计时器Timerl的Interval属性为3000,Enabled属性设置为False。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim flag As Integer Private Sub Cmd_Click(Index As Integer) If Index=2Then’通过下一条语句End确定此处为单击按钮“结束”,因此Index为2 End E1se Imagel.Picture=LoadPicture ("\yellow.ico")’在图形框里栽入图片 flag=Index’将按钮下标赋给flag Timer1.Enabled=True End If End Sub Private Sub Timer1 Timer() Select Case flag’判断flag确定按钮类型 Case 0 Imagel.Picture=LoadPicture (" \green.ico")’装载图片 Timer1.Enabled=False Case 1 Image1.Picture=LoadPicture (" \red.ico") Timer1.Enabled=False End Select End Sub 程序结束 步骤3:调试并运行程序。关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“?”,将问号改为正确的内容。 Dim S As StringPrivate Sub Commandl_Click() Open App,Path&"\in4.dat"’For Input As #1 s=Input(LOF(1),#(1)’将文件读入s中 Close:#1 Text1.Text=S End Sub Private Sub Command2 C1ick() DimmAs Integer If Len(s)=0 Then’判断文本是否为空 MsgBox"请先使用"读数据"功能!" E1Se If Text1.SelIength=0 Then’判断所选文本是否为空 MsgBox"请先选中文本!" E1se t="" For i=1 To Text1.SelLength C=Mid(Text1.SelText,i,1) l将所选文本内容依次取一个字符比较 If C<>""Then t=t+C’将字符连接成单词 E1Se x=LCase(t)"如果为空格则一个单词结束并将其全部变为小写 If InStr(x,"O")<>0 AndInStr(x,"n")<>0 Then ’在x中查找是否有"0","n"字母 m=m+l’满足条件累加 End If t=""’清空后,进行下一次循环 End If Next i Text2=Str(m)’显示满足条件的个数 End If End If End Sub 步骤3:调试并运行程序。关闭程序后按题目要求存盘。
解析
(1)通过命令按钮的Index属性来判断程序对按钮的响应,单击“前进”按钮,Index=0,则Timer的Enabled属性设置为True,Timer的状态变为可用,且通过Timer1_Timer事件过程中的Select Case语句进行判断,在图像框中显示3秒黄灯后显示绿灯,同理单击“停止”按钮,Index=1,则Timer的状态变为可用,且在图像框显示3秒黄灯后显示红灯,直至下次单击某个命令按钮。单击“结束”按钮,即Index=2,运行End语句结束程序运行。
(2)单击“读数据”按钮,将考生文件夹下im4.dat文件的内容显示在Text1文本框中。在Command2_Click事件过程中,运用Len()函数判断文本框中是否有字符,如果Len(s)=0那么弹出MsgBox对话框“请先使用‘读数据’功能!”,运用SelLength属性判断文本框中是否有字符被选中,如果SelLength属性为0那么弹出MsgBox对话框“请先选中文本!”。
在Text中选中部分文本,并单击“统计”按钮,Lcase()函数把大写字母转化为小写字母使统计不区分大、小写字母,运用InStr()函数判断是否在选中文本中同时出现。和n两个字母,并统计这类单词的个数,并将统计结果显示在Text2文本框内。
转载请注明原文地址:https://kaotiyun.com/show/JULp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名为Form1的窗体上建立一个文本框,名为Text1;再建立一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。要求程序运行后,单击命令按钮,则计算出1~200之间所有素数之和,并在文本框中显示结果,同时把结果存入文件out48.txt中(
在窗体Form1上绘制3个命令按钮,其名称分别为Cmd1、Cmd2和Cmd3,标题分别为“读数”、“计算”和“保存”,如下图所示。程序运行后,如果单击“读数”按钮,则利用题目中
在名为Form1的窗体上绘制1个文本框,名称为Text1,允许多行显示:再绘制3个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为Read、Change和Save,如下图所示。
在考生文件夹中有文件execise66.vbp及其窗体文件execise66.frm。在名为Form1的窗体上建立一个名称为Text1的文本框;两个复选框,名称分别为Chk1和Chk2,标题分别为“足球协会”和“网络协会”。要求程序运行后,如果只选
在考生文件夹中有工程文件execise64.vbp及其窗体文件execise64.frm。在名为Form1的窗体上有一个名称为Text1的文本框,还有两个名称分别为Chk1和Chk2、标题分别为“电子商务”和“物流”的复选框,一个名称为Cmd1、标题为“确
在考生文件夹下有工程文件execise33.vbp及窗体文件execise33.frm。如下图所示,在名为Form1的窗体上有5个Labe1控件和2个命令按钮,数据文件in33.dat存放一些成绩。程序运行后,按Begin按钮后,从考生文件夹下的in33.
使用CommonDialog控件的()方法,可显示“打印”对话框。
声明一个变量为局部变量应该用()。
下列说法错误的是
下列关于队列的叙述中正确的是
随机试题
下列哪些疾病的胸腔积液是由于胸膜毛细血管壁通透性增加所致
下列传感器哪些是直接测量气体流速的
【背景资料】某高土石坝坝体施工项目,业主与施工总承包单位签订了施工总承包合同,并委托了工程监理单位实施监理。施工总承包完成桩基工程后,将深基坑支护工程的设计委托给了专业设计单位,并自行决定将基坑的支护和土方开挖工程分包给了一家专业分包单
根据以下资料,回答下列小题2010年,我国共投人研究与试验发展(R&D,以下简称R&D)经费7062.6亿元,比上年增长21.7%;R&D经费投入强度(与国内生产总值之比)为1.76%,比上年的1.70%有所提高。分活动类型看,全国用于
通信企业产品的同质化有利于避免价格战。()
下列不属于教育学研究对象的是()。
联合国会员国在宪章之下的义务与依任何其他国际协定所负之义务有冲突时,优先适用的原则是先定条约应居优先。()
国务院台湾事务办公室和国务院新闻办公室联合发表的《一个中国的原则与台湾问题》白皮书指出:“中国政府坚持‘和平统一,一国两制’的方针,反对制造两个中国、‘一中一台’,反对外国势力干涉,如果出现外国侵占台湾,如果台湾当局无限期地拒绝通过谈判和平解决两岸统一问题
Youshouldhaveputthemilkintherefrigerator.Iexpectit________undrinkable.
A、Totellthewomansomethingaboutthecar.B、Tolookforhiswife.C、Toshowthewomanhiswife’scar.D、Toaskhiswifetoan
最新回复
(
0
)