首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个Text1文本框和一个CD1通用对话框控件,并编写下面程序: Private Sub Command1_Click() CD1.Flags = 1 Or 256 CD1.Action = 4 If CD1.Color
在窗体上画一个Text1文本框和一个CD1通用对话框控件,并编写下面程序: Private Sub Command1_Click() CD1.Flags = 1 Or 256 CD1.Action = 4 If CD1.Color
admin
2019-06-11
22
问题
在窗体上画一个Text1文本框和一个CD1通用对话框控件,并编写下面程序:
Private Sub Command1_Click()
CD1.Flags = 1 Or 256
CD1.Action = 4
If CD1.Color >= 0 Then
Text1.ForeColor = CD1.Color
End If
End Sub
运行程序并单击命令按钮,下面叙述中正确的是
选项
A、弹出的是颜色对话框
B、弹出的是打开文件对话框
C、把代码 CD1.Action = 4 改为 CD1.ShowColor 效果是一样的
D、在弹出的对话框中选了一个颜色并单击"确定" 按钮后,会改变文本框中文本的颜色
答案
D
解析
通用对话框的Action属性值为4或者ShowFont方法,则弹出对话框为字体对话框,用ShowColor则弹出颜色对话框,故选项A、B、C错误,D项正确。
转载请注明原文地址:https://kaotiyun.com/show/LkUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关于过程的描述中,错误的是()。
(1)在考生文件夹下有一个上程文件sjt3.vbp,窗体上已经有一个标签Label1,清添加一个单选按钮数组,名称为Op1,含三个单选按钮,它们的Index属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽牟”,再添加一个名称为Text1的文本框。窗
(1)在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架,标题分别为“字号”、“修饰”;在Frame1中添加两个单选按钮,1名称分别为Option1、Option2,标题分别为“10号字”、“20号字”,且标题显示在单选按钮的左边
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容
在窗体上建立三个菜单(名称分别为:Read、Cale和Save,标题分别为“读入数据”、“计算并输出和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2(如图所示)。程序运行后,如果执
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
以下叙述中错误的是
语句DimArr(-2To4)AsInteger所定义的数组的元素个数为
以下叙述中,错误的是
随机试题
万能分度头装配后,应对蜗杆副的啮合间隙进行反复调整,才能达到分度机构的啮合精度要求。()
在细菌性肝脓肿中,细菌进入肝脏最常见的途径是
下列有关体表感染的描述,错误的是
引起恶性疟疾发作不规则的主要原因是
开标时判定为无效的投标文件,应当( )。
[背景]某水电站工程项目施工承包合同采用《水利水电施工合同条件》。建设单位与施工单位签订的合同为可调值合同,总合同价为1750万元,合同报价日期为2002年3月,合同工期为12个月,每个月结算一次。合同中规定因人工、材料、设备等价格波动因素对合同价
公车改革后,有群众抱怨说,领导下乡次数减少了;也有领导发牢骚说,没有公车下乡不方便。你认为该怎么解决干部下乡少的问题?
下列说法错误的是()。
TVGameShowsOneofthemostfascinatingthingsabouttelevisionisthesizeoftheaudience.Anovelcanbeonthe"bests
CholesterolandHeartDiseaseDoyouknowyourcholesterollevel?Manypeopledon’t.Ahighlevelofcholesterolinthebloo
最新回复
(
0
)