首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
admin
2010-07-13
73
问题
(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://kaotiyun.com/show/PLmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面的程序段,输出结果为______。publicclassQ{publicstaticvoidmain(Stringargv[]){intanar[]=newint[5];System.out.println
下列程序中,若从键盘中输入的是大写字母C,则程序输出的结果是()。Importjava.io.*;publicclassExam{publicstaticvoidmain(Stringargs[]){intch=0;
以下叙述中不属于JAVA语言特点的是()。
所谓【】,是指对数据集合中的各元素以各种方式进行运算,包括插入、删除、查找、更改等运算,也包括对数据元素进行分析。
语句CODEBASE=codebaseURL属性的功能是( )。
使用如下( )保留字可以使只有在该类的包中的其他类才能访问该类。
下列不属于JComponent类的功能的是( )。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
下列命令中用于激活系统守候进程以便能够在Java虚拟机上注册和激活对象的是()。
随机试题
价值型股票基金与成长型股票基金相比()。
患者,男性,34岁,右下颌下区无痛性质软肿物发现3个月,表面皮肤正常,口内检查亦未见异常。行下颌下手术时见肿物呈囊性,术中囊壁破裂。流出黏稠而略带黄色蛋清样液体,遂将囊壁及下颌下腺一并摘除,但术后不久囊肿复发。该病的最佳治疗方法是
妇科检查前护理错误的是()。
案情:甲欲购买房屋若干,遂于2005年5月1日到乙房地产公司售楼处了解乙开发建设的A楼盘情况。乙的销售人员称楼盘销售火爆,房屋成交量已达房屋总量的80%以上,如果甲不及时购买,可能再也买不到该楼盘的房屋,即使能买到,也要多支付10%以上的房款。甲领取了楼盘
环境噪声现状评价中,需图示说明的内容有()。
票据基础关系是形成票据关系的原因和前提,但是,票据关系一经形成,就与基础关系相分离。()
下图甲示突触的亚显微结构,a、d分别表示两个神经元的局部。下列与此相关的表述中正确的是()。
对多血质的学生,教师在教育时应着重注意培养其当机立断的性格。()
宋朝初年的最高行政机构是()。
A—TopStoriesB—E-newslettersC—CurrentSpecialD—What’sNewE—Editor’sPicksF—LatestInJobsG—HighlightsH—LetterstoEdito
最新回复
(
0
)