用VB表达式写出坐标点(x,y)落在以(10,20)为圆心,以25为半径的园内
答案:2 悬赏:70 手机版
解决时间 2021-03-17 12:58
- 提问者网友:像風在裏
- 2021-03-16 19:13
用VB表达式写出坐标点(x,y)落在以(10,20)为圆心,以25为半径的园内
最佳答案
- 五星知识达人网友:woshuo
- 2021-03-16 20:03
到圆心的距离小于半径即可
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
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
全部回答
- 1楼网友:神鬼未生
- 2021-03-16 20:54
用cricle方法就可以画出这个圆
cricle(10,20),25
这里你一定要注意!这里的单位是vb默认的“缇”,而不是我们熟悉的厘米,是非常小的单位,比像素还小,所以可能是显示不出来这个圆。你可以试着将它放大。好像1cm是1400缇(有点记不清了,请原谅)
希望对你有些帮助~~~~~~
cricle(10,20),25
这里你一定要注意!这里的单位是vb默认的“缇”,而不是我们熟悉的厘米,是非常小的单位,比像素还小,所以可能是显示不出来这个圆。你可以试着将它放大。好像1cm是1400缇(有点记不清了,请原谅)
希望对你有些帮助~~~~~~
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯