首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
admin
2020-07-22
66
问题
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。
程序代码如下:
Dim color(3)As Integer
Private Sub Form_Load()
Call fill(color())
End Sub
Private Sub fill(c() As Integer)
Form1.BackColor=RGB(c(1),c(2),c(3))
End Sub
Private Sub HSRed_Change()
color(1)=HSRed.Value
Call fill(color())
End Sub
Private Sub HSGreen_Change()
color(2)=HSGreen.Value
Call fill(color())
End Sub
Private Sub HSBlue_Change()
color(3)=HSBlue.Value
Call fill(color())
End Sub
关于以上程序,如下叙述中错误的是( )。
选项
A、color是窗体级整型数组
B、改变任何一个滚动条滚动框的位置,窗体的背景色将立刻随之改变
C、3个滚动条Change事件过程中只设置了一个color数组元素的值,调用fill过程失败
D、fill 函数定义中的形式参数是数组型参数
答案
C
解析
当用Dim语句定义数组时,该语句把数值数组中的全部元素都初始化为0,而把字符串数组中的全部元素都初始化为空串。因此color数组中的元素初始值都为0,没有空值,过程调用不会失败。C选项叙述错。
转载请注明原文地址:https://kaotiyun.com/show/ECHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Fori=1To3Ifj=iOrj=3-i+1ThenArr(i,j)=1Else
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st:"":n=0Fork=1ToLen(ch)C=Mid(ch,k,1)Ifc""ThenSt=st&cEl
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click(Dimarr_x(5,5)AsIntegerFori=1To3Fori=2To4
有如下程序:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=1To20i:i+4:n=n+iIfi>10ThenExitFor
下面关于菜单的叙述中正确的是
在窗体模块的声明部分声明变量时,不能使用的关键字是
以下叙述中正确的是
下面变量定义中错误的是()。
下列合法的变量名是
能够将组合框Combo1中最后一个数据项删除的语句为( )。
随机试题
(2007年10月)实行多元并存多党制的国家有______、______、______。
清算战略是通过减少成本和资产对企业进行重组,加强企业所具有的基本的和独特的竞争能力。()
同时供应外耳、中耳和内耳血液动脉是同时供应中耳和外耳血液的动脉是
丸剂可分为()。
2008年4月,中国东方公司与美国神奇公司签订了一份货物买卖合同,双方在买卖合同中约定如果合同履行发生争议,则双方应将争议提交伦敦的仲裁机构解决。东方公司收到货物以后,发现神奇公司提供的货物不符合合同的约定,遂于2008年10月10日向中国某人民法院提起诉
社会保险具有()特征。
“燕子低飞蛇过道,必有大雨到”这句谚语包含的主要哲学道理是
在关系模型中用(57)来表达实体集,其结构是由关系模式定义的。
Птицыприлетели____юга.
Nearlyaquarter-centuryafteraGermanboytossedamessageinabotdeoffashipintheBalticSea,he’sreceivedananswer.
最新回复
(
0
)