坐标反算
于 2022-02-13 发布
文件大小:99.62 kB
0 216
下载积分: 2
下载次数: 1
代码说明：
Dim pb As Double Dim ds As Double Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x1 As Double Dim y1 As Double Dim x2 As Double Dim y2 As Double "定义起点和终点坐标为双精度浮点型 Dim s As Double "定义距离为双精度浮点型 Dim d As Integer "定义度为整形 Dim
下载说明：请别用迅雷下载，失败请重下，重下不扣分！
发表评论
