解释一个VB程序

解释一个VB程序

'这是一个用渐变颜色来填充窗体的小程序，单击窗体时发生 '初始化随机数种子 Randomize '产生一个随机数c2,c3，配合c1用RGB(c1,c2,c3)组成一个绘图颜色 c2 = Int(Rnd * 256) c3 = Int(Rnd * 256) '产生一个1~3的随机数，这是后面绘图时随机选择的一颜色组合(Choose函数） c = Int(Rnd * 3 + 1) '计算每次绘图的步长 d = (Me.Height - 500) / 254 '设置绘图时的线条宽度 Me.DrawWidth = d \ 15 + 1 '从窗体顶部开绘图，开始颜色值是RGB(0,c2,c3)，结束颜色值是(int((Me.Height - 500)/d),c2,c3) For i = 0 To (Me.Height - 500) Step d '绘制一条线，颜色是RGB(c1,c2,c3)，c1从0开始，每次递增1 'Choose函数是从参数列表中选择并返回一个值 '这里将返回c所对应的RGB函数的值作为绘图颜色 '去掉Choose函数也一样能绘出这个窗体 'RGB()函数返回一个RGB颜色值 '格式是：RGB(红色成份大小, 绿色成份大小, 蓝色成份大小) '值为：RGB(0,c2,c3)至RGB(int((Me.Height - 500)/d),c2,c3) Me.Line (0, i)-(Me.Width, i), Choose(c, RGB(c1, c2, c3), RGB(c2, c1, c3), RGB(c2, c3, c1)) 'c1递增1 c1 = c1 + 1 Next

标签：VB,程序,解释