Question

vb程序中怎样随机改变窗体让窗体接受鼠标点击候随机改变窗体背景颜色？（使用QBcolor函数和Rnd函数）

Answer 1

dim ch%
ch=inputbox("请输入")
select case ch
case 1
BackColor = RGB(255, 0, 0) '红色
case 2
BackColor = RGB(0, 255, 0) '绿色
csae 3
BackColor = RGB(0, 0, 255) '蓝色
end select