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

admin2015-10-23  34

问题 窗体上有三个水平滚动条,名称分别为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/kJLp777K
0

最新回复(0)