则可用下面的If函数来代替 If(a>5,1,2) 显然,用I函数可以使程序大为简化。再如: Private Sub Form1_Load Dim X as single, y as single X= InputBox( inputx",3) Console. WriteLine ("y=to]; IIf(X>5,X*X, X/2) End sub 4.1.4多分支结构 在νB中,多分支结构程序通过 Select case语句来实现。该语句以 Select Case开头,以 End sele结束。其功能是,根据〈测试条件>表达式的值, 从多个case子句中选择符合条件的一个子句执行 语句格式 Select Case<测试条件 [Case<表达式表1>] [<语句体1>]]则可用下面的IIf函数来代替： r = IIf(a > 5, 1, 2) 显然，用IIf函数可以使程序大为简化。再如： Private Sub Form1_Load() Dim X As Single, Y As Single X = InputBox("input x", , 3) Console.WriteLine( "y={0}"; IIf(X > 5, X * X, X / 2) End Sub 4.1.4 多分支结构 在VB中，多分支结构程序通过Select Case语句来实现。该语句以Select Case开头，以End Select结束。其功能是，根据﹤测试条件﹥表达式的值， 从多个case子句中选择符合条件的一个子句执行。 – 语句格式 Select Case﹤测试条件﹥ ［Case﹤表达式表1﹥］ ［﹤语句体1﹥］］