求VB编程:一个程序求分段函数根据不同自变量的值

If Not IsNumeric(a) Then

MsgBox ("请输入数据")

End If

改为：

If Not IsNumeric(a) Then

MsgBox ("请输入数据")

Exit Sub '不执行下面的处理语句，直接跳出让程序等待下一次按钮事件的触发

End If

Private Sub Command1_Click()

Dim x as Single

Dim y as Single

x=Inputbox("Please input your x:")

If x<=0 then

y=5+xx

Else

y=x-21

End f

Print y

End Sub

Select Case x

case Is >20

……

这是一种用法

另一种，如果要在各Case分支里用逻辑表达式，可以：

Select Case True（这里就不能用x了）

case x >20

……

Private

Sub

Form_Activate()

Dim

x,

y

As

Long

'不知道x,y能否取float型的

先看整形的

x

=

InputBox("请输入一个x的值，取值范围为-1000，+1000")

If

x

<

0

Then

y

=

x

^

2

+

1

ElseIf

x

>=

0

Then

y

=

x

^

2

-

1

End

If

单分支

和双分支

区别在于

“

ElseIf

x

>=

0

Then”

换成else

就是单分支的

注意下x和y的取值范围

因为x过大

y的值有可能越界

希望对你有帮助

Print

"y="

&

y

End

Sub