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

admin2020-07-22  35

问题 窗体上有三个水平滚动条,名称分别为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)
    Forml.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://jikaoti.com/ti/p2S0FFFM
0

最新回复(0)