首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
admin
2015-08-28
52
问题
窗体上有三个水平滚动条,名称分别为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全国计算机二级
相关试题推荐
为了清除列表框中的所有内容,应使用的方法是______。
以下语句的输出结果是______。PrintFormat$("158","#,###.00")
以下程序运行后输出的结果是______。a=3b=-123m=Len(Str$(A)+Str$(B))PrintmEnd
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填上合适的代码,将程序补充完整。PrivateTypeAngKAsIntegerSinxAsSin
下列程序段的运行结果是()。Subsele()DimnAsIntegeri=21:n=3DoWhilei>ni=i-nLo
在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。
设有语句:Open"C:\Test.Dat"ForOutputAs#1则以下错误的叙述是:
下列叙述中正确的是______。
下列概念中,______不是数据库管理系统必须提供的数据控制功能。
为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为______。
随机试题
计算机能直接执行的是()。
ERG的α波来源于
A.气B.血C.寒D.热E.实
小儿夏季热的临床特征除长期发热外,还见
当发生手足搐搦症时,说明其血钙已低于
下列哪项不属于急性特发性血小板减少性紫癜患者的临床表现?
下列关于开具发票的说法,正确的有()。
可转换证券的价值有()
手表公司销售某品牌的高档手表与普通手表组成成套产品20套,每套不含税售价18000元,其中,高档手表的生产成本10000元/只,普通手表的生产成本2000元/只。另将同类型手表各20只用于奖励优秀职工(未包装)。该手表公司应就上述业务缴纳消费税()元。
教师在教学过程中的表率作用主要体现在()。
最新回复
(
0
)