求高手写两个简单的VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:40:36
1.求平面中两点之间的距离。

2.一个物体从高出落下做自由落体运动，现知道物体下落的时间为t，求物体下落的路程。

2:
Private Sub Command1_Click()
Dim h As Single ,t As Integer
t = Val(Text1.Text)
h=9.8*t^2/2
Text2.Text = h
End Sub

1:
Private Sub Command1_Click()
Dim x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer
Dim D As Single
x1 = Val(InputBox("输入A点的X坐标"))
y1 = Val(InputBox("输入A点的Y坐标"))
x2 = Val(InputBox("输入B点的X坐标"))
y2 = Val(InputBox("输入B点的Y坐标"))
D = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
Text1.Text = D
End Sub

1.
Private Sub Command1_Click()
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
Dim juli As Long
x1 = InputBox("输入A点的横坐标")
y1 = InputBox("输入A点的纵坐标")
x2 = InputBox("输入B点的横坐标")
y2 = InputBox("输入B点的纵坐标")
juli = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
Print "两点的距离为"; juli
End Sub

dim Pab as double