请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.【程序改错】'------------------------------------------------\x05用输入对话框输入x,根据公式（图1）计算对应的y,' 并

请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.【程序改错】'------------------------------------------------\x05用输入对话框输入x,根据公式（图1）计算对应的y,' 并
请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.
【程序改错】
'------------------------------------------------
\x05
用输入对话框输入x,根据公式（图1）计算对应的y,
' 并在窗体上输出y的值.
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim x As Single,y As Single
x = Val(InputBox("Please input x :","输入X的值"))
If x = 10 Then
y = 0
'
y = 2 * x 3 + 6
End If
Print y
End Sub

请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.【程序改错】'------------------------------------------------\x05用输入对话框输入x,根据公式（图1）计算对应的y,' 并
Option Explicit
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(InputBox("Please input x :", "输入X的值"))
If x = 10 Then
y = 0
'
y = 2 * x ~ 3 + 6 这个 ~ 运算符好像没有的吧?
End If
Print y
End Sub