vb最简单的计算方法（vb编程计算1到100的值全过程）

勾股定理Private Sub Command1_Click() '测试函数返回结果 MsgBox calDistance(0, 0, 3, 4)End Sub'利用勾股定理计算两点距离Function calDistance(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double calDistance = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)End Function