dim red as interger, green as interger, blue as interger......'此处为获取颜色的代码if (red > 255) or (blue > 255) or (green > 255) then
Msgbox "输入错误","提示"
......'此处为跳转至输入部分的代码End Ifred= 255 - redgreen = 255 - greenblue = 255 - blue......'此处为输出部分输入可以用InputBox或“色彩”对话框输出可以用PictureBox控件...