vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊Private Sub Command1_Click()x = InputBox("请输入x的值")y = InputBox("请输入y的值")If x = 0 ThenPrint "点(" & x & "," & y & ")" & "位于y轴上"Exit
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/02 15:02:32
![vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊Private Sub Command1_Click()x = InputBox(](/uploads/image/z/9905760-0-0.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%8APrivate+Sub+Command1_Click%28%29x+%3D+InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5x%E7%9A%84%E5%80%BC%22%29y+%3D+InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5y%E7%9A%84%E5%80%BC%22%29If+x+%3D+0+ThenPrint+%22%E7%82%B9%28%22+%26+x+%26+%22%2C%22+%26+y+%26+%22%29%22+%26+%22%E4%BD%8D%E4%BA%8Ey%E8%BD%B4%E4%B8%8A%22Exit)
vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊Private Sub Command1_Click()x = InputBox("请输入x的值")y = InputBox("请输入y的值")If x = 0 ThenPrint "点(" & x & "," & y & ")" & "位于y轴上"Exit
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
vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊Private Sub Command1_Click()x = InputBox("请输入x的值")y = InputBox("请输入y的值")If x = 0 ThenPrint "点(" & x & "," & y & ")" & "位于y轴上"Exit
感觉对了啊
试验了没错,输入什么时出错了