首页
登录
从业资格
阅读以下应用说明以及用Visual Basic编写的程序代码,将应填入(n)处的
阅读以下应用说明以及用Visual Basic编写的程序代码,将应填入(n)处的
免费题库
2022-08-02
50
问题
阅读以下应用说明以及用Visual Basic编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。【应用说明】某应用程序用于监测某种设备的工作温度(20~200度),其运行窗口中,包括一个温度计(矩形形状shpMeter)以及其中指示当前设备温度的水银柱(矩形形状shpT),文字标签标记了温度刻度;另有一个图片框picCurve,用于动态描述检测到的温度曲线(用户见到的曲线与水银柱等高变化);命令按钮“开始检测”(cmdStart)用于启动温度检测,命令按钮“暂停检测”(cmdStop)用于暂停检测。 矩形形状shpT(水银柱)属性visible初始设置为不可见,属性Filltype设置为solid(实心),FillColor设置为红色;图片框picCurve的属性AutoRedraw设置为True;再创建一个定时器TimT,属性Enabled初始设置为False(不起作用),属性Interval(定时间隔)设置为500毫秒。 为模拟设备温度的检测,程序中利用了(0,1)之间均匀分布的伪随机数获得[20,200]之间的随机温度T。为了便于在图片框picCurve中绘制曲线,程序中对该图片框建立了坐标系统,左上角为原点(0, 0),水平向右方向为X轴,垂直向下方向为Y轴,右下角坐标为(50, 180)。为了便于观察记录的温度值,图片框中从上到下创建了5条水平线Ls(i),i=0,1, …4,并在程序中按等间隔排列进行位置设置。程序中每隔半秒算出曲线点(x, y),其中x=0, 1, 2,…,再用直线段连接各相邻曲线点形成温度曲线。
【Visual Basic程序代码】Dim (1) As Integer ‘声明全局变量Private Sub CmdStart Click() TimT. Enabled = True ShpT. Visible = TrueEnd SubPrivate Sub CmdStop__Click() TimT. Enabled=FalseEnd SubPrivate Sub Form_Load() Dim i,H As Integer PicCurve.Scale (0,0)一(50,180) ‘设置图片框坐标系:左上角一右下角 H = 30 ‘H等于图片框高度的六分之一 For i = 0 To 4 ‘设置5条水平线Ls(i)的位置 Ls(i).Xl=0 ‘Ls(i)起点横坐标 Ls(i).Y1=H* (2) ‘Ls(i)起点纵坐标 Ls(i).X2=50 ‘Ls(i)终点横坐标 Ls(i).Y2=Ls(i).Y1 ‘Ls(i)终点纵坐标 Ls(i).BorderColor=&HC0C0C0 ‘设置水平线颜色 Next i x=0 ‘设置曲线坐标初值End SubPrivate Sub timT Timer() Dim T, H As Integer ‘T为即时温度,H为图片框中温度点显示高度 T=Int(Rnd*181)+20 ‘模拟随机产生设备温度(20-200度)按当前温度显示水银柱 H=ShpMeter.Height* (3) ‘算出水银柱的高度 ShpT. Top= (4) - H ‘设置水银柱顶部位置 ShpT. Height=H ‘设置水银柱的高度绘制温度曲线 y= (5) ‘算出曲线上当前点的纵坐标 If x=51 Then ‘当超出图片框时 PicCurve. Cls ‘清除图片框内以前画的曲线 x = 0 ‘设置重画曲线的初值 ElseIf x > 0 Then ‘除左边点外 PicCurve. Line(x-1, Lasty)-(x, y),vbRed 由前1点到当前点画红色线段 End If x = x + 1 ‘准备下一点坐标 Lasty = y ‘保存当前坐标供下次使用End Sub
选项
答案
解析
转载请注明原文地址:https://tihaiku.com/congyezige/2428224.html
本试题收录于:
初级程序员题库软件水平考试初中高级分类
初级程序员
软件水平考试初中高级
相关试题推荐
现行最全面、最集中规定土地登记程序的文件是( )。A.《土地登记办法》 B.
土地登记的公开性表现在( )。A.登记依据的公开 B.登记程序的公开 C.
针对同一个项目的BIM技术应用,各自的关注点和职责也不尽相同。例如,业主单位会更
三维可视化施工应力应变动态监测是属于BIM技术在()中的应用。A.安全管理 B
下列哪几项属于BIM技术在专业深化设计阶段的应用()。A.管线综合深化设计
机电专业BIM应用时,管网用不同颜色加以区分的原因是()。A.机电管网相对复杂
供货单位的BIM应用需求主要来自于哪几个方面?()A.设计阶段 B.招投标阶
下面哪一项不属于现阶段BIM在应用中的挑战()。A.软件间数据交互难度大 B.
方案设计阶段的BIM应用主要是利用BIM技术对项目的()进行验证,对下一步深化
下列关BIM在钢结构深化设计中的应用说法错误的是()。A.钢结构BIM三维实体
随机试题
Primaryschoolteachers’poor【C1】______ofEnglishandmathsisunderminin
[originaltext]M:Hi,Kate.W:Hi,Peter.Howhaveyoubeen?M:Oh,OK,Iguess.
ManyparentswhowelcometheideaofturningofftheTVandspendingmoreti
Oneresearchhasshownthatpublicschoolteachersreceivesalariesalmostt
一家专业的健康管理公司可以通过很多方式使自己与竞争对手区别开,包括()A.服务地
审计人员通过审查确认企业的存货业务是否全部记入相关账户,其目的是验证存货的()。
局部放电的超声波检测是对因局部放电而产生的频率介于()区间的声信号进行采集、分析
(2017年真题)老王因急性心肌梗塞住进监护病房,经医护人员全力抢救,暂时转危为
简略寿命表中q表示A.χ~岁年龄组人口在n年内的生存率 B.n岁年龄组人口在χ
企业出售商品时不单独计价的包装物的收入,应记在“其他业务收入”科目中。()
最新回复
(
0
)