Question

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

Answer 1

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

endsu