首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
admin
2010-07-13
33
问题
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求:
设置计时器的属性,使其每隔3秒调用Timerl事件过程一次,改变Picl的背景色(红、绿、蓝3色)。
去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使得在运行时单击“开始”按钮,则Picl每隔3秒改变一次背景色,由红变绿,由绿变蓝,再由蓝变红,如图23—3所示。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在窗体上绘制一个命令按钮,名称为Commandl,标题分别为“计算”,一个名称为Textl的文本框。请编写适当的事件过程,在Textl中输出30以内满足勾股定理的整数组合。注:勾股定理中3个数的关系是:a
2
+b
2
=c
2
。例如3、4、5就是一个整数组合,即3
2
+4
2
=5
2
。如图23—4所示。
注意:编写程序,去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
(1)本题主要考查Timer控件的属性设置和图片框控件的属性设置。计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔,单位为毫秒,它可以在属性窗口中设置,也可以通过代码设置。图片框控件既可用于显示图片,也可用于在上面绘图,由于本题只要求改变颜色,所以只需控制其背景颜色属性即可。根据题意,补充后的代码如下: Dim a As Integer Private Sub Commandl_Click() Timerl.
Interval
=1000’开始后,Timer的间隔时间为1秒 End Sub Private Sub Form_Load() a=0’初始化计数 Picl.
BackColor
=RtB(255,0,O) End Sub Private Sub Timerl_Timer() a=(a+1)Mod 9 ’以9为周期 If a<3 Then’当a小于3时 Picl.
BackColor
=RGB(255,0,O) ’背景色为红色 ElseIf a>=3 And a<6 Then’当a<6时 Picl.
BackColor
=
RGB
(O,255,0) ’背景色为绿色 Else’其他情况 Picl.
BackColor
=RGB(0,0,255)’背景色为蓝色 End If End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题只要明白勾股定理的含义就不难了,即a^2+b^2=c^2。程序中利用3重循环对30以内的数进行遍历,每发现一组符合条件的数,就以逗号间隔显示在文本框中。窗体界面题中已设计好,只需补充相应的代码,补充后的代码如下: Private Sub Commandl_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim str As String str="" For i=1 To 30 ’第1个数用For循环从1遍历到30 For j=i To 30’第2个数用For循环从i遍历到30 For k=i To 30’第3个数用For循环从i遍历到30 If i^2+j^2=k^2 Then’满足勾股定理 str=str+CStr(i)+","+CStr(j)+","+CStr(k)+vbCrLf’将获得的3个数通过字符串形式记录 End If Next k Next j Next i Textl.Text=str’在Textl中显示结果 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/BJg0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列对for循环中初始化、终止和迭代部分的描述中,错误的是( )。
以下程序计算1+1/3+1/5+…+1/(2N+1,直至1/(2N+1小于0.00001,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){intn=1;
下面的程序执行后,屏幕上显示的应是()。publicclassExam{publicstaticvoidmain(String[]args){charcharl[]={’t’,’e’,’s’,’t’};charcha
数据结构中,与所使用的计算机无关的是数据的()。
若有如下程序:publicclassTest{publicstaticvoidmain(String[]args){intx=20;if(x>10)System.out.print(x-=5);if(x>5)Syste
当处理的数据量很多,或向文件写很多次少量的数据,一般使用( )流。
执行下列程序后,输出结果为()。publicclassTest{publicstaticvoidmain(String[]args){StringBuffersb=newStri
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
在文件类提供的方法中,用于创建目录的方法是( )。
软件设计模块化的目的是【】。
随机试题
焊接结构的装配方法有哪几种?
关于房间隔缺损。除去哪一项以外,均为房间隔缺损的表现
颈静脉注射时,漏注可引起较严重颈静脉周围炎的注射液是
下列不属于阴虚胃痛主症的是
某公司年产焦炭120万t。新建工程项目位于某煤矿,项目投资17.6亿元,于2009年7月建成。工程包括2座55孔炭化室、高6m复热式焦炉,还包括原料场、输配煤系统、筛焦系统、干熄焦(备用湿熄焦)、煤气净化及化产回收等配套工程。装煤出焦、干熄焦烟尘采用地面除
保荐制度主要包括()
下列各指标中,()是客户税前净利润与资产平均总额的比率。
2011年上半年,全国电信业务总量累计完成5681.1亿元,比上年同期增长15.7%;电信主营业务收入累计完成4740.7亿元,比上年同期增长10.1%。2011年上半年,移动通信收入累计比上年同期增长14.0%,在电信主营业务收入中所占的比重为71.
语言文字功底扎实,大致意思是要求学者能较好地掌握研读经典和撰写论文所需要的语言文字。这一点具有普适性,而对于研究传统文化或西方文化、印度文化的学者来说尤其重要。没有扎实的古文字功底,不熟练掌握英语、梵文等外语,仅从白话本、汉译本这些第二手资料入手来做学问,
Logistically,itworkedoutbestformetoflyeastfromBostonLogantoLondonHeathrowtoTokyoNarita,atripwhichinvolves
最新回复
(
0
)