VB程序设计,从键盘任意输入一个X的值,求以下分段函数的值:(30分):Y=X+2(X>0) Y=0(X=0) Y=X2 (X

问题描述:

VB程序设计,从键盘任意输入一个X的值,求以下分段函数的值:(30分):Y=X+2(X>0) Y=0(X=0) Y=X2 (X

private sub command1_click()
input "x=";x
select case x
case is>=0
y=x+2
case 0
y=0
case is=0
y=x+2
elseif x=0
y=0
else
y=x-2
endif
"y=";y
endsub