首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
admin
2015-08-28
40
问题
窗体上有三个水平滚动条,名称分别为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/TsLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性______。
设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为______。x=IIF((a>B)And(c<D),10,20)
当我们输入代码时,VisualBasic可以自动检测______错误。
下列叙述中正确的是()。
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndTyp
设有如下程序:OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)
只有将组合框的Style属性值设置为()时,才能触发Db1Click事件。
设“A="87654321"”,则表达式Val(Left(A,4)+Mid(A,4,2))的值为()。
数据库系统的主要特点为数据集成性、数据的高______和低冗余性、数据独立性和数据统一管理和控制。
设有如下变量声明:DimTestDateAsDate为变量TestDate正确赋值的表达方式是______。
随机试题
我国非银行金融机构主要有()
简述政治敏感度分析的内容。
女性32岁,18垂直低位阻生拟拔除,经翼下颌传导麻醉后患者随后出现头晕,胸闷,心悸,面色苍白,四肢湿冷无力,脉搏快而弱。出现该情况的可能原因中哪项可除外
债权人田某下落不明,债务人朱某难以履行债务,遂将标的物提存。朱某将标的物提存以后,该标的物如果意外毁损、灭失,该项损失()。
一般来说一个复合会计分录可以分解为若干个简单会计分录。()
下列各句中,有语病的一句是()。
下列有关文学作品表述不准确的一项是:
定时器的Interval属性的值是一个整数,它表示的是
【S1】【S2】
InonlytwodecadesAsianAmericanshavebecomethefastest-growingU.S.minority.Astheirchildrenbeganmovingupthroughthe
最新回复
(
0
)