首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
(1)在考生目录下有一个工程文件sj3.vbp,窗体中有一个命令按钮,标题为“开始”,名称为Commandl;有一个图片框,名称为Picl,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求: 设置计时器的属性,使其每隔3秒
admin
2010-07-13
77
问题
(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全国计算机二级
相关试题推荐
使得线程放弃当前分得的CPU时间,但不使线程阻塞,即线程仍处于可执行状态,随时可能再次分得CPU时间的方法是______。
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、______和选择排序。
下面的程序执行后,屏幕上显示的应是()。publicclassExam{publicstaticvoidmain(String[]args){charcharl[]={’t’,’e’,’s’,’t’};charcha
下列程序中,若从键盘中输入的是大写字母C,则程序输出的结果是()。Importjava.io.*;publicclassExam{publicstaticvoidmain(Stringargs[]){intch=0;
在先左后右的原则下,根据访问根结点的次序,二叉树的遍历可以分为三种:先序遍历、【】遍历和后序遍历。
下列选项中不属于结构化程序设计方法的是( )。
复选框通过【】来监听ItemEvent事件。
下面不属于java.awt.Event包中定义的事件适配器是( )。
下列哪个命令是在当前主机的指定端口上启动远程对象注册服务程序?
随机试题
下面几种类型的网络中,按照覆盖范围分类的是_________。
《素问.生气通天论》说“味过于辛”则
最有效的诊断方法是进一步确认应做的检查是
关于医疗感染性废弃物的处理流程正确的是
清末修律中,正式公布的法律有:()
某建筑场地进行浅层平板载荷试验,方形承压板,面积0.5m2,加载至375kPa时,承压板周围土体明显侧向挤出,实测数据见表5.3—3。根据该试验分析确定的土层承载力特征值是哪一选项?
中国某机械制造商与英国某公司签订100万英镑的销售合同,3个月后英国公司支付货款。理论上,该公司为了规避风险,可以采取的措施有()。
质量检验是通过(),取得证实产品质量的客观证据。
根据以下资料,回答下列问题。经过50多年的发展,我国台湾地区资本市场建立起由“证券交易所集中市场一上柜市场一兴柜市场”构成的完善成熟的多层次资本市场体系。近年由于金融海啸、欧债危机等因素影响,台湾多层次资本市场总体成交值从2010年2012年连续3年下降
下列选项哪些是法典编纂的特点?()
最新回复
(
0
)