首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个命令按钮控件数组,名称为Cmd;有一个图像框,名称为Image1。请添加一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图所示。 程序功能如下: ①单击“前进”
(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个命令按钮控件数组,名称为Cmd;有一个图像框,名称为Image1。请添加一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图所示。 程序功能如下: ①单击“前进”
admin
2015-06-30
65
问题
(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个命令按钮控件数组,名称为Cmd;有一个图像框,名称为Image1。请添加一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图所示。
程序功能如下:
①单击“前进”按钮,则Timer1的状态变为可用,且在图像框中显示3秒黄灯(图像文件为考生文件夹下的“yellow.ico”)后显示绿灯(图像文件为考生文件夹下的“green.ico”)。直至下次单击某个命令按钮。
②单击“停止”按钮,则Timer1的状态变为可用,且在图像框显示3秒黄灯后显示红灯(图像文件为考生文件夹下的“red.ico”),直至下次单击某个命令按钮。
③单击“结束”按钮,则结束程序运行。
请将命令按钮Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名进行存盘。
(2)考生文件夹下有一个工程文件sjt4.vbp,其中的窗体上已有如图所示的控件。程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中。
②在文本框Text1中选中部分文本,单击“统计”按钮,以不区分大小写字母的方式,自动统计选中文本中同时出现“o”、“n”两个字母的单词的个数(如:million、company都属于满足条件的单词),并将统计结果在Text2文本框内显示。
请将“统计”按钮的Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名进行存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,在窗体中添加一个计时器控件,并设置计时器Timer1的Interval属性为3000,Enabled属性设置为False。 步骤2:分析并编写程序代码。 程序提供代码 Dim flag As Integer Private Sub Cmd_Click(Index As Integer) ’ If Index = ? Then End Else ’考生文件夹下的图片文件 Image1.Picture = LoadPicture("\yellow.ico") flag = Index ’ Timer1.Enabled = ? End If End Sub Private Sub Timer1_Timer() ’ Select Case ? Case 0 Image1.Picture = LoadPicture("\green.ico") Timer1.Enabled = False Case 1 Image1.Picture = LoadPicture("\red.ico") Timer1.Enabled = False End Select End Sub 程序结束 参考答案 第1个?处填入:2 第2个?处填入:True 第3个?处填入:flag 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim s As String Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim m As Integer ’ If Len(s) = ? Then MsgBox "请先使用"读数据"功能!" Else ’ If Text1.? = 0 Then MsgBox "请先选中文本!" Else t = "" For i = 1 To Text1.SelLength c = Mid(Text1.SelText, i, 1) If c <> " " Then t = t + c Else ’ x = ? If InStr(x, "o") <> 0 And InStr(x, "n") <> 0 Then m = m + 1 End If t = "" End If Next i ’ ? = Str(m) End If End If End Sub 程序结束 参考答案 第1个?处填入:0 第2个?处填入:SelLength 第3个?处填入:LCase(t) 第4个?处填入:Text2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/TkQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有下列两个过程:PrivateSubPPP(aAsSingle,bAsSingle)a=a+bPrinta,bb=a+bPrinta,bEndSu
设有如下过程;Subff(x,y,z)x=y+ZEndSub下列选项中所有参数的虚实结合都是传址方式调用的是()。
在窗体上画一个文本框(其Name属性为Text1),编写如下事件过程,运行结果是______。PrivateSubForm_Load()ShowText1.Text="你好!"Text1.SetF
语句Y=Y+1的正确含义是()。
执行下面程序,第一行输出结果是【】,第二行输出结果是47。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2
下列不能打开菜单编辑器的操作是______。
下列关于线性表的叙述中,不正确的是______。
用树形结构来表示实体之间联系的模型称为______。
用树形结构来表示实体之间联系的模型称为______。
随机试题
如何推动建立以相互尊重、公平正义、合作共赢为核心的新型国际关系。
下列何结构与锤骨相连接()
Therewasatimewhen,ifaladygotontoacrowdedbusortrain,agentlemanwouldimmediatelystandupandofferherhisseat.
木材内部所含水分可分为( )种。
美式期权是指在规定的有效期限内的任何时候可以行使权利。( )
天宇建筑公司签订了一项建造合同,承建一栋房屋,合同总金额为2400万元,工程期为3年。该项工程于2008年1月1日开始动工,从2008年1月1日至2010年12月31日,最初预计合同总成本为2000万元,到2009年末,由于原材料价格上涨等原因调整了预
破坏交通设施罪是指故意破坏正在使用中,或者已经交付的轨道、桥梁、隧道、公路、机场、航道、灯塔、标志,或者进行其他破坏活动,使火车、汽车、电车、船只、航空器发生倾覆、毁坏危险,足以危害公共安全的行为。根据上述定义,以下行为不构成破坏交通设施罪的是(
我国外汇管理的主要负责机构是()。
关于中国古代婚姻家庭与继承法律制度,下列哪一选项是错误的?()。
1.在某文件夹中,存有文档WT07.DOC,其内容如下:【文档开始】望天门山天门中断楚江开,碧水东流至此回。两岸青山相对出,孤帆一片日中来。【文档结束】按要求完成下列操作:新建文档WD07A
最新回复
(
0
)