窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。 程序代码如下: Dim color(3)As In

admin2019-03-14  44

问题 窗体上有三个水平滚动条,名称分别为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.BaekColor=RGB(c(1),e(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/XzUp777K
0

最新回复(0)