vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/15 17:31:57
vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊
Private Sub Command1_Click()
x = InputBox("请输入x的值")
y = InputBox("请输入y的值")
If x = 0 Then
Print "点(" & x & "," & y & ")" & "位于y轴上"
Exit Sub
End If
If y = 0 Then
Print "点(" & x & "," & y & ")" & "位于x轴上"
Exit Sub
End If
If Sgn(x) = 1 And Sgn(y) = 1 Then
Print "点(" & x & "," & y & ")" & "位于第一象限"
Exit Sub
End If
If Sgn(x) = -1 And Sgn(y) = -1 Then
Print "点(" & x & "," & y & ")" & "位于第三象限"
Exit Sub
End If
If Sgn(x) = -1 And Sgn(y) = 1 Then
Print "点(" & x & "," & y & ")" & "位于第二象限"
Exit Sub
End If
If Sgn(x) = 1 And Sgn(y) = -1 Then
Print "点(" & x & "," & y & ")" & "位于第四象限"
Exit Sub
End If
End Sub
Private Sub Command1_Click()
x = InputBox("请输入x的值")
y = InputBox("请输入y的值")
If x = 0 Then
Print "点(" & x & "," & y & ")" & "位于y轴上"
Exit Sub
End If
If y = 0 Then
Print "点(" & x & "," & y & ")" & "位于x轴上"
Exit Sub
End If
If Sgn(x) = 1 And Sgn(y) = 1 Then
Print "点(" & x & "," & y & ")" & "位于第一象限"
Exit Sub
End If
If Sgn(x) = -1 And Sgn(y) = -1 Then
Print "点(" & x & "," & y & ")" & "位于第三象限"
Exit Sub
End If
If Sgn(x) = -1 And Sgn(y) = 1 Then
Print "点(" & x & "," & y & ")" & "位于第二象限"
Exit Sub
End If
If Sgn(x) = 1 And Sgn(y) = -1 Then
Print "点(" & x & "," & y & ")" & "位于第四象限"
Exit Sub
End If
End Sub
![vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊](/uploads/image/z/16375959-63-9.jpg?t=vb%E7%BC%96%E7%A8%8B%E8%B1%A1%E9%99%90%E5%88%A4%E6%96%AD%21%E5%A3%B0%E6%98%8E%E5%AD%97%E7%AC%A6%E4%B8%8E%E5%A3%B0%E6%98%8E%E7%9A%84%E6%95%B0%E6%8D%AE%E7%B1%BB%E5%9E%8B%E4%B8%8D%E7%AC%A6+%E5%B8%AE%E6%88%91%E6%8C%87%E5%87%BA%E5%93%AA%E9%87%8C%E4%B8%8D%E5%AF%B9%E5%95%8A)
感觉对了啊