幻想乡红魔馆人物:vb程序怎么实现按钮转换？

'摄氏转
Private Sub Command1_Click()
Text1 = 5 / 9 * (Val(Text1) - 32)
End Sub

'华氏转
Private Sub Command2_Click()
Text1 = 9 / 5 * Val(Text1) + 32
End Sub

Option Explicit
Dim zhuanhuan As Boolean
Private Sub cmdzhuanhuan_Click()
If zhuanhuan Then
cmdZhuanhuan.Caption = "华氏转摄氏"
Text1 = Val(Text1) * 9 / 5 + 32
Else
cmdZhuanhuan.Caption = "摄氏转华氏"
Text1 = (Val(Text1) - 32) * 5 / 9
End If
zhuanhuan = Not zhuanhuan
End Sub

Private Sub Form_Load()
Text1 = ""
End Sub

你的意思是不是，就放置一个按钮，每次点击以后，按钮的标题自动转换，相应的功能也转化？如果是这样的话可以这样做。
Private Sub Command1_Click()
if command1.caption="摄氏转" then
'这里放置摄氏度转华氏度的计算公式，我下面这句只是一个示意。
Text1 = 5 / 9 * (Val(Text1) - 32)
command1.caption="华氏转" ‘转换完，把按钮的标题更改为“华氏转”
end if
if command1.caption="华氏转" then
'这里放置华氏度转摄氏度的计算公式，我下面这句只是一个示意。
Text1 = 5 / 9 * (Val(Text1) - 32)
command1.caption="摄氏转" ‘转换完，把按钮的标题更改为“摄氏转”
end if
End Sub
'通过两个条件判断就可以简单的实现。