vb作业
自定义函数Max(x,y,z)的编写：
Function Max(x As Integer, y As Integer, z As Integer) As Integer
…… '编写x、y、z中找最大的程序段并将结果赋值给Max
End Function
定义一个有7个数组元素的一维数组a，Dim a(1 To 7) As Integer,随机产生7个∈[0，50]之间的整数赋值给a(1)～a(7)。
前三个数的最大值：max1=Max(a(1),a(2),a(3))
前五个数的最大值: max2=Max(max1,a(4),a(5))
或 max2=Max(Max(a(1),a(2),a(3)),a(4),a(5))
七个数中的最大值：max3=Max(max2,a(6),a(7))
程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。
打印数组的通用过程设计参考上课讲义 5. “第四题”：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过
在需要输出数组的时候调用该通用过程
下载10_2.exe
请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。
具体要求如下：
1. 应用程序界面设计参考图示。