首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shapel。如图所示。 当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又
在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shapel。如图所示。 当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又
admin
2020-04-08
52
问题
在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shapel。如图所示。
当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击“停止”按钮,则停止变化。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
提示:程序中的符号常量blue_eolor表示蓝色的值,red_color表示红色的值。
注意:不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤I:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Dim left0 As Integer Const blue_color=&HFF0000,red_ Color=&HFF& Private Sub Commandl Click() Timerl.Enabled=
Ture
′单击"开始"按钮。Timer生效 End Sub Private Sub Command2_Click() Timerl.Enabled=False′单击"结束"按钮,Timer失效 End Sub Private Sub Form_Load() left0=Shapel.Left′加载窗体时。初始化圆心到窗体的距离 End Sub Private Sub Timerl_Timer() If Shapel.FiliColor=blue_Color Then If Shapel.Left>0 Then Shapel.Height = Shapel.Height +100′圆的高扩大100 Shapel.Width=Shapel. Width+100 Shapel.Left=Shapel. Left-50′圆心到图片框左边上边的距离 Shapel.Top=Shapel.Top -50 E1Se Shapel.FillColor =
red_color
′当充满图片框时则变色 End If End If If Shapel.FillColor=red_ Color Then If Shapel.Left<left0 Then Shapel.Height=Shapel. Height一100 Shapel.Width=Shapel. Width一100
Shapel.Left
=Shapel. Left+50 ′设置Shapel的左边位置
Shapel.Left
=Shapel.Top +50 ′设置Shapel的上界位置 ElSe Shapel.FiliColor =
blue_color
’当缩小到原始大小时则变色 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过Shapel的Left属性判断图片是否充满图片框或恢复到了初始大小,从而进行图片颜色红蓝的转换以及圆形的放大或缩小。通过形状控件的Height、Width、Left和Top属性来实现圆形的大小变化。
转载请注明原文地址:https://kaotiyun.com/show/kATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
(1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为Listl的列表框和一个名称为Textl的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
下面关于文件叙述中错误的是( )。
以下能够设置控件焦点的方法是( )。
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是()。
运行如下程序:PrivateSubCommandl_Click()Dima(5,5)AsIntegerF0ri=1To5Forj=1To4a(i,j)=i*2+JIfa(i,
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
随机试题
关于Diffie-Hellman算法描述正确的是()
施工企业授权某采购员到乙公司采购钢材,但该采购员用盖有甲施工企业公章的空白合同文本与乙公司订立了购买水泥的合同,则该合同()。
The"standardofliving"ofanycountrymeanstheaverageperson’sshareofthegoodsandserviceswhichthecountryproduces.
开发建设单位申请在某城市中心E进行旧区改造,建设商贸、办公建筑项目。该地段西侧为风貌性建筑,集中成片,并有小游园一处,现已批准公布为“保护近代西式住宅风貌为主的历史街区”的重点保护区。拟改造规划可用地面积约3hm2,为历史街区保护的建设控制地带,其中有几幢
下面各项中,不是《消费者权益保护法》立法目的的是()。
南京地貌特征属宁镇扬丘陵地区,以丘陵为主。()
有个人发现图书馆的那本《大英百科全书》的第21、42、64.65、121、137、138、190页对他有用,便把这几页偷偷地撕下带走了。那他一共撕去了()。
[*]
A、Showtheadd/dropformtoProfessorSmith.B、GoonattendingProfessorSmith’sclass.C、Cometotheregistrationofficewitht
OnefeatureofnewfoundwealthinthedevelopingworldhasbeentheembraceofWesternluxurylabels.Butsincetheglobalecono
最新回复
(
0
)