输入

输入x,计算y的值 

输入x,计算y的值 Private Sub Form_Click() x = Val(InputBox("X=")) If x >= 0 Then    y = (1 + 4 * x) / 5 else    y = Sin(2*x- 3) / 7 End If Print yEnd Sub

输入x,计算y的值。 

输入x,计算y的值。 Private Sub Form_Click() x = Val(InputBox("X=")) If x > = 0 Then    y = 1 +3 * x Else    y = Sin(2 * x -3)/5 End If Print yEnd Sub