各位高手，小弟献丑了，我是刚开始自学vb，只能向大家请教了。在运行下面的一段程序时，总是出现个警告：编译错误 else 没有if ,小弟愚昧，望各位高手不吝赐教！感谢！

Private Sub Command1_Click()
Dim x As Single, y As Single
Dim strx As String
strx = InputBox("输入x的值", "分段函数")
x = Val(strx)
If x >= 0 Then y = 1 + x ^ 2
Else: y = 1 + Sin(x)
End If
Print "x的值为：" & x&; Chr(13) & "y的值为：" & y
Print
End Sub

初学者就应该乖点，不要乱来

Private Sub Command1_Click()
Dim x As Single, y As Single
Dim strx As String
strx = InputBox("输入x的值", "分段函数")
x = Val(strx)
If x >= 0 Then
y = 1 + x ^ 2
Else
y = 1 + Sin(x)
End If
Print "x的值为：" & x & Chr(13) & "y的值为" & y

End Sub

[此贴子已经被作者于2005-11-1 21:34:10编辑过]

谢谢了！是不是输入程序时打字法在作怪？

Print "x的值为：" & x&; Chr(13) & "y的值为：" & y
这句的 x& 应改成 x，Print 语句中字符串之间可以不用连接符 &，可以用分号 ;。
什么打字法作怪，是你的语法有错!

不好意思，我还有很长的路要走。