(资料图片仅供参考)
1、DimColour()PrivateSubCommand1_Click()***.backcolor=RGB(Rnd*255,Rnd*255,Rnd*255)EndSubPrivateSubCommand2_Click()***.backcolor=Colour(Int(Rnd*16))EndSubPrivateSubForm_Load()Colour=Array(1000,2000,30000,40000,500,60000,7000,80000,9000,10,11,12,13,14,15,16)‘自己设置啦Randomize***.caption="变换颜色1"***.caption="变换颜色2"EndSub如果帮助到您。
2、请记得采纳为满意答案哈。
3、谢谢！祝您生活愉快！vae.la。
本文到此分享完毕，希望对大家有所帮助。
关键词：
