编程求坐标象限

Ⅰ 大学VB坐标象限按要求与步骤的怎么编程

Visual Basic 6.0 编程工具
步骤/方法
打开Visual basic6.0(一下简称vb),新建一个标准EXE，设置控件：

双击Form1窗体：复制如下代码粘贴到Form1代码窗口：
Private Sub Command1_Click()
Dim Rects As RECT, ExecuteValue As Boolean
Dim MousePoint As POINTAPI
ExecuteValue = GetDesktopWindowRect(Command2.Hwnd, Rects, MousePoint)
Debug.Print "ExecuteValue=" & ExecuteValue
Debug.Print "Rects.Top=" & Rects.Top
Debug.Print "Rects.Left=" & Rects.Left
Debug.Print "Rect.Bottom=" & Rects.Bottom
Debug.Print "Rect.Right=" & Rects.Right
Debug.Print "MousePoint.X= " & MousePoint.X
Debug.Print "MousePoint.Y=" & MousePoint.Y
'MsgBox "执行结果请看立即窗口！", 48, "提示"
End Sub
Private Sub Command2_Click()
SetCursorToControl Command1.Hwnd
End Sub
Private Sub Label2_Click()
End Sub
【复制代码到Form1代码窗口】

点击 工程菜单》添加模块》点击打开：

把如下代码复制到所示的窗口：
'Programming By Kejisoft (http://Hi.Bai.com/Kejisoft)
'Date：2011-02-10
'Functions：
' GetDesktopWindowRect
' 获取一个控件在屏幕用Rect描述的位置
' SetCursorToControl
' 设置鼠标指针到一个控件
'Version：1.0.0.0
'IDE:Microsoft Visual Basic 6.0企业版
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As RECT) As Long
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
X As Long
Y As Long
End Type
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Function GetDesktopWindowRect(Hwnd As Long, Rct As RECT, MousePos As POINTAPI) As Boolean
Dim execute As Integer
execute = GetWindowRect(Hwnd, Rct)
GetDesktopWindowRect = IIf(execute = 0, False, True)
GetCursorPos MousePos
End Function
Public Function SetCursorToControl(ControlHwnd As Long) As Boolean
Dim Rect2 As RECT, MousePos2 As POINTAPI
Dim ControlX As Long, ControlY As Long
SetCursorToControl = GetDesktopWindowRect(ControlHwnd, Rect2, MousePos2)
'计算控件的中心位置坐标
ControlX = Rect2.Left + ((Rect2.Right - Rect2.Left) / 2)
ControlY = Rect2.Top + ((Rect2.Bottom - Rect2.Top) / 2)
SetCursorPos ControlX, ControlY
End Function

5
下一步可以按F5运行测试效果，完成！

Ⅱ 用vb编写程序,单击按钮后,通过输入对话框输入点的两个坐标,判断点在哪一个象限,并在窗体输出判断结果

你要先规划你的坐标系。
如X轴取-500到500
Y轴取-500到500

if X>0 and Y>0 then print "第一象限“
if X>0 and Y<0 then print "第四象限“
if X<0 and Y>0 then print "第二象限“
if X<0 and Y<0 then print "第三象限“

若有（-333，450）则 "第二象限“

参见下面
scale(x1,y1)-(x2,y2)‘定义坐标系
你只要记住，这里的x1,y1是左上角的坐标，x2,y2是右下角的坐标，通过这两个点的坐标设定，就可以决定坐标原点的位置以及坐标轴的方向了，比如
Scale
(-300,200)-(300,-200)
以上是把坐标原点设在窗体中心，x轴长600，方向从左到右，y轴长400，方向从下向上。
Scale
(800,0)-(0,600)
以上是把坐标原点设在窗体右上角，x轴长800，方向从右到左，y轴长600，方向从上向下。

下面说坐标轴和原点的标示法：
假定自定义坐标设为：
Scale
(-300, 200)-(300, -200)
则
Line (-300, 0)-(300, 0) '画x轴
Line (0,
200)-(0, -200) '画y轴
CurrentX = 290
CurrentY = -5
Print "x"
'标示x轴
CurrentX = 5
CurrentY = 200
Print "y" '标示y轴
CurrentX =
5
CurrentY = -5
Print "0" '标示原点

Ⅲ 程序输入一个平面坐标系的x、y坐标,输出该点在坐标系的四个象限中的哪一个,或者在x坐标或y坐标或原点上

if else语句判断呀，如果x=0怎样，y=0怎样，都等于0怎样，都不为0的时候x>0,y>0是第一象限。。总之就是判断每种情况咯~~

Ⅳ 1,输入两个数代表一个点的坐标(x,y),然后判断点(x,y)属于哪一个象限.用C语言编程写

#include <stdio.h>
int main() {
int x,y;
printf("输入2个整数(空格隔开,q退出):\n");
while(scanf("%d%d",&x,&y) == 2) {
if(x == 0) {
if(y == 0) printf("(0,0)在坐标原点\n");
else if(y > 0) printf("(0,%d)在Y上半轴上\n",y);
else printf("(0,%d)在Y下半轴上\n",y);
}
else if(x < 0) {
if(y < 0) printf("(%d,%d)在第三象限\n",x,y);
else if(y == 0) printf("(%d,0)在X左半轴上\n",x);
else printf("(%d,0)在第二象限\n",x);
}
else {
if(y < 0) printf("(%d,%d)在第四象限\n",x,y);
else if(y == 0) printf("(%d,0)在X左半轴上\n",x);
else printf("(%d,%d)在第一象限\n",x,y);
}
printf("输入2个整数(空格隔开,q退出):\n");
}
return 0;
}

Ⅳ 编程 输入一平面坐标点(x,y),判断并输出该坐标点位于哪个象限c语言

#include<stdio.h>

int x,y;
char *output[20];
int p;

void main(){
printf("请输入一个坐标如：3,3\n");
while(scanf("%d,%d",&x,&y)!=EOF)
{

if(x > 0 && y > 0)
p=1;
else if(x > 0 && y < 0)
p=4;
else if(x < 0 && y > 0)
p=2;
else if(x < 0 && y < 0)
p=3;

switch(p){
case 1:*output = "第一象限\n";break;
case 4:*output = "第四象限\n";break;
case 2:*output = "第二象限\n";break;
case 3:*output = "第三象限\n";break;
}
printf("%s",*output);
}
}

Ⅵ 从键盘上输入直角坐标系上一个点的坐标（x,y）,编程实现判断该点属于第几象限

printf("(%.2f,%.2f)在第..象限!\n",x,y); -- 去掉所有 输出语句里的 & 即可。

Ⅶ 编程，输入平面上任意一点的坐标（x，y），判断并显示该点位于哪个象限的信息。

开始
输入X,Y
是 判断：x＞0？ 否
判断Y＞0？ 判断Y＜0？
是 否 是 否
输出第一象限 输出第四象限 输出第三象限 输出第二象限

Ⅷ c语言编程问题：输入4个任意数字，然后按从小到大的顺序输入坐标点（x，y），输出该点所在的象限。代码是：

1、打开自己的Python语言编程的IDLE。

Ⅸ 如何用VB编程：用点的坐标判断它在第几象限

Private Sub Form_Load()
Dim x As Double, y As Double
x = CDbl(InputBox("输入x的坐标"))
y = CDbl(InputBox("输入x的坐标"))

If x > 0 And y > 0 Then
MsgBox "第一象限"
ElseIf x > 0 And y < 0 Then
MsgBox "第四象限"
ElseIf x < 0 And y > 0 Then
MsgBox "第二象限"
ElseIf x < 0 And y < 0 Then
MsgBox "第三象限"
ElseIf x = 0 And y = 0 Then
MsgBox "原点"
ElseIf x = 0 Then
MsgBox "y轴"
ElseIf y = 0 Then
MsgBox "x轴"
End If
End Sub