各位高手，小弟献丑了，我是刚开始自学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

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

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