首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
admin
2010-07-13
27
问题
(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全国计算机二级
相关试题推荐
当检索一个压缩文件时,首先要建立压缩文件输入对象流,该对象( )。
若有如下程序:publicclassTest{publicstaticvoidmain(String[]args){intx=20;if(x>10)System.out.print(x-=5);if(x>5)Syste
用于构造弹出式菜单的Java类是【】。
现有一个整型数组a[4],它的所有数组元素为( )。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
通过类MyClass中的不含参数的构造函数,生成该类的一个对象obj,可通过以下语句实现:______。
下列不是事件处理机制角色的是( )。
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
算法复杂度主要包括时间复杂度和______复杂度。
可以在for循环初始化部分声明一个变量,其作用域是( )。
随机试题
下列不属于周围神经损伤后出现的客观感觉障碍是
小青龙加石膏汤中石膏用量为
结构的自振频率反映结构固有的动力特性,它只取决于结构的:
某企业的基建项目第一标段主厂房建安部分属于工程核心内容,技术难度大,而且工期紧迫。招标人以预先与咨询单位研究确定的施工方案为标底、以设计图纸为基础编制了招标文件,经过对部分单位及其在建工程考察后,邀请A、B、C三家国有一级企业的施工单位参加投标。3月5日发
房地产评估的原则包括()。
简要说明工作岗位调查设计方案的构成。
下列图形中,对称轴只有一条的是().
强调以教师为中心,课堂为中心,教材为中心的传统教育的代表人物是维果茨基。()
小李、小刘两人在一条跑道上同时按匀速进行100m速度测试,记录仪器显示:当小李距离终点差1m,小刘距离终点2m,当小李到达终点时,小刘距离终点1.01m,经过计算,这条跑道长度不标准,则这条跑道长()m。
Ifsoldieringwasforthemoney,theSpecialAirService(SAS)andtheSpecialBoatService(SBS)wouldhavedisintegratedinre
最新回复
(
0
)