首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As Intege
admin
2019-06-20
74
问题
窗体上有三个水平滚动条,名称分别为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/0SUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹中有一个工程文件sjt3.vbp,窗体上有2个命令按钮、1个水平滚动条和1个计时器,其名称分别为Command1、Command2、HScroll1和Timer1,如图3—8(a)所示。程序运行后,按钮Command1、Command2的
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是
现有语句:y=IIf(x>0,xMod3,0)设x=10,则y的值是
设程序中有如下数组定义和过程调用语句:Dima(10)AsIntegerCallp(a)如下过程定义中,正确的是
以下能够正确退出循环的是()。
设一棵完全二叉树共有700个结点,则此二叉树中的叶子结点数为
在数据库设计中,将E—R图转换成关系数据模型的过程属于
以下关系表达式中,其值为True的是
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
以下关于DoUntil…Loop循环的说法正确的是()。
随机试题
对施工现场不同的原材料、半成品、工序、过程或工程产品的质量检验可以划分为不同的检验方式。下列检验对象中可予以免检的是( )。
审查施工图预算的方法中,()的优点是重点突出,审查时间短、效果好。
自动喷水灭火系统竣工验收内容包括系统各组件的抽样检查和功能性测试。其中管网验收检查中测试干式灭火系统管网容积,系统充水时间不大于()min;测试预作用系统管网容积,系统充水时间不大于2min。
下列关于信用评分模型的说法中,正确的有()。I.是一种向前看的模型Ⅱ.对历史数据的要求比较高Ⅲ.建立在历史数据模型模拟的基础上Ⅳ.可以给出客户信用风险水平的分数
甲曾对乙表示已将销售业务的代理权授予丙,而实际上甲并未授权给丙。后丙以甲的名义与乙签订货物买卖合间,则甲应对丙签订该合同的行为承担法律责任。()
关于企业法人的终止原因,下列说法错误的是()。
我国第一部记言记事文字的总集是《_______》。
下列关于IP协议的描述中,正确的是()。
在窗体上有两个文本框:Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=“”:Text2.Text=“”:Text2.SetFocus
MaLili?I’msorryI’mlate.
最新回复
(
0
)