private sub command1_click() '单击开始按钮
if command1.caption="退出" Then
end
else
command1.caption="退出"
end sub
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
if cmd1.caption="开始" then
cmd1.caption="退出"
'其他代码
。。。。。。
else
end
end if