执行下列程序,输入变量x的值为4.请写出运行结果 private sub form_click() dim x as integer,y as single x=inputbox("输入变量x的值") if x>=1 and x<5 then select case x case is<2 y=3*x-5 case is<3 y=2*sgn(x)+1 case is<5 y=sqr(1+x^2) ... 执行下列程序,输入变量x的值为4.请写出运行结果
private sub form_click()
dim x as integer,y as single
x=inputbox("输入变量x的值")
if x>=1 and x<5 then
select case x
case is<2
y=3*x-5
case is<3
y=2*sgn(x)+1
case is<5
y=sqr(1+x^2)
end select
else
y=x^2+3*x+5
end if
print "y=";y
end sub
......................................................第一个
程序运行时,分别输入10,0和平10,写出运行结果
private sub form_click()
x=val(inputbox("输入数据:"))
if sgn(x)=1 then
print x+1
elseif sgn(x)=2 then
print x+2
elseif sgn(x)=3 then
print x+3
else
print x+4
end if
end sub
.............................................第二个
x=inputbox("输入变量x的值")..........................第一个
x=val(inputbox("输入数据:")).........................第二个
第一个和第二个,什么情况下inputbox要用val,什么情况下不用 展开