Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim p As Single
p = Val(TextBox1.Text)
TextBox2 = 10 * Log((p ^ 2) / 100)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
TextBox1 = 10 ^ (TextBox2 / 20) * 0.00002
End Sub
End Class作者: bsy4life 時間: 2016-6-15 12:24