vb题 H1＝M+1.5－根号下[（M+1.5）平方－400]如何用VB写

n

Option Strict On
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d As Double

d = CDbl(tbd.Text)

With lba.Items
.Clear()
.Add("When the distance is skidded " & (d) & " ft")
.Add("The estimate speed of the car is " & (Int(d * 24) ^ 0.5 & " mph"))

End With
End Sub
End Class