VB程序设计

1

x = Val(InputBox("Input X: "))

If x < 10 Then y = Abs(x)

If x <= 20 Then y = Sqr(3 x - 1)

If x > 20 Then y = 3 x + 2

DebugPrint y

2

x = Val(InputBox("Input X: "))

If x < 10 Then

y = Abs(x)

ElseIf x <= 20 Then y = Sqr(3 x - 1)

ElseIf x > 20 Then y = 3 x + 2

End If

DebugPrint y

3

x = Val(InputBox("Input X: "))

select case x

case x < 10

y = Abs(x)

case <= 20

y = Sqr(3 x - 1)

case else

y = 3 x + 2

end select

DebugPrint y

以上就是关于VB程序设计全部的内容，包括:VB程序设计、VB程序题目,求答案，急~~~~~~~~、实验报告02 :VB程序设计基础,使用dim方法写出VB语句 定义X为整型变量等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！