用VB表达式写出坐标点(x,y)落在以(10,20)为圆心,以25为半径的园内

发布网友发布时间：2024-09-28 13:23

共2个回答

热心网友时间：2024-09-30 06:22

到圆心的距离小于半径即可
If (x - 10) * (x - 10) + (y - 20) * (y - 20) < (25 * 25) Then MsgBox "点在圆内" Else MsgBox "点在圆上或圆外"

完整代码，需要两个text，一个command

Dim x, y
Private Sub Command1_Click()
If (x - 10) * (x - 10) + (y - 20) * (y - 20) < (25 * 25) Then MsgBox "点在圆内" Else MsgBox "点在圆上或圆外"
End Sub

Private Sub Text1_Change()
x = Val(Text1.Text)
End Sub

Private Sub Text2_Change()
y = Val(Text2.Text)
End Sub

热心网友时间：2024-09-30 06:23

用cricle方法就可以画出这个圆
cricle（10,20),25
这里你一定要注意！这里的单位是vb默认的“缇”，而不是我们熟悉的厘米，是非常小的单位，比像素还小，所以可能是显示不出来这个圆。你可以试着将它放大。好像1cm是1400缇（有点记不清了，请原谅）
希望对你有些帮助~~~~~~