VB灯管控制问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 16:49:43
我是个VB初学者，对VB只是了解甚少，但由于我们老师布置了一题用VB来设计一个关于模拟灯管开关的实验！就是要设计根灯管，用一个按钮实现对灯管的开和关！哪位高手能不能帮忙一下啊！

这个简单，你在VB界面上拉一个LABEL控件，拉一个BUTTON空间

LABEL 命名为 Light 内容设 空
BUTTON 命名为 Switch 内容设 On

然后就是一下代码

Public Sub Switch_Click()
'按钮控件点击进程（可以直接在按钮上双击来初始话程序代码部分）
if Switch.Text = "On" then
Light.BackColor = rgb(255,255,255)
Switch.Text = "Off"
else
Light.BackColor = rgb(0,0,0)
Switch.Text = "On"
end if
End Sub

vb求助！这程序怎么改进？
悬赏分：30 - 离问题结束还有 11 天 17 小时
让那条红线走到每一个信源！

Private x As Single, y As Single
Private x1 As Single, y1 As Single
Private x2 As Single, y2 As Single
Private x3 As Single, y3 As Single