Question

VB：开始按钮，单击后变为退出，如何使变成退出后的按钮再单击退出程序，求源码

Answer 1

private sub command1_click() '单击开始按钮
if command1.caption="退出" Then
end
else
command1.caption="退出"
end sub

Answer 2

Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "退出"
Else
Command1.Caption = "开始"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
End Sub

Answer 3

if cmd1.caption="开始" then
cmd1.caption="退出"
'其他代码
。。。。。。
else
end
end if