巨獸 逆襲

Public Class Form1
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TB2.Text = "標準體重 =" & (TB1.Text - 80) * 0.7
        TB1.Text = "" '清除
        TB1.Focus()  '游標停駐
    End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TB2.Text = "標準體重 =" & (TB1.Text - 70) * 0.6
        TB1.Text = ""
        TB1.Focus()
    End Sub
End Class