首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按钮,程序运行结束。请填空。 Private Sub cmdCha
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按钮,程序运行结束。请填空。 Private Sub cmdCha
admin
2009-01-15
67
问题
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按钮,程序运行结束。请填空。
Private Sub cmdChange_Click()
If Mark=0 Then
【 】
Mark=1
ElseIf【 】Then
Forml.BackColor=vbGreen
Mark=2
ElseIf Mark=2 Then
Form1.BackColor;vbBlue
【 】
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
选项
答案
Form1.BackColor = vbRed , Mark=1 , Mark=0
解析
首先过程中定义了一个模块级整型变量Mark,每次都保留上次运行后的值。由程序可以看出:本题约定Mark等于0表示背景色为红色;Mark等于1表示背景色为绿色;Mark等于2表示背景色为蓝色,每次单击运行后要将Mark变为下次运行时的值,以便符合题目要求。所以【 】应为Form1.BackColor= vbRed,【 】为Mark=1;当背景色变为蓝色后再单击背景色要变为红色,所以应将Mark变为0,所以【 】为Mark=0。注意:多分支控制语句。
转载请注明原文地址:https://kaotiyun.com/show/tp2p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
最大真约数是指一个数的(除它本身之外)最大约数。下面的程序是求一个数的最大真约数,请在程序的每条横线处填写一个语句,使程序的功能完整(例如:100的最大真约数是50)。注意:请勿改动main()主方法和其他已有的语句内容,仅在横线处填入适当的语句。
在Java程序中,通过类的定义只能实现单重继承,但通过【】的定义可以实现多重继承关系。
给出下列的不完整的类代码,则下列的哪个语句可以加到横线处?classPerson{Stringname,department;intage;publicPerson(Stringn){na
开发软件时对提高开发人员工作效率至关重要的是
在关系模型中,把数据看成一个二维表,每一个二维表称为一个【】。
栈底至栈顶依次存放元素A、B、c、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是
下列关于Java语言的数据类型和表达式的说法不正确的是
下列数据类型转换,必须进行强制类型转换的是()。
单个用户使用的数据视图的描述称为
以下for循环的执行次数是()。for(intx=0;(x==0)&(x>4);x++);
随机试题
A、根治性肝切除B、姑息性肝切除C、肝动脉结扎和插管D、肿瘤局部无水酒精注射E、中医治疗男,45岁。体格检查发现肝右叶4个肿瘤占位,局限于相邻的2个肝段内,无瘤肝组织增大达全肝l/2以上。治疗方案首选()
A、酸碱法B、水醇法C、醇醚法D、活性炭E、盐析法在溶液中加入无机盐促使有效成分析出的方法是()
将1L4mol/L氨水和1L2mol/L盐酸溶液混合,混合后OH-离子浓度为()mol/L。注:氨水解离常数Kb=1.8×10-5
易燃易爆危险品是指容易燃烧爆炸的危险品,其不包括()。
某企业出售房屋一幢,账面原价100000元,已提折旧60000元,计提减值准备5000元,出售时发生清理费用600元,出售价款为40000元,应缴纳的营业税为2000元。企业结转出售固定资产净损益时的会计分录为()。
从建筑产品供给者角度看,建筑市场的风险表现在()。
处理人事争议的法定途径有
设有定义:classC{public:intValUe;};intX,*p;则以下引用形式中,正确的是()。
HendersonUtilitiesCompany43WarmSpringsRoadHenderson,Nevada89014
Itwastoolateto______ofthecontract.
最新回复
(
0
)