多行if语句

Private Sub Command1_Click()

a = Text3

b = Text4

Text1.Text = Int(Rnd * (a - 1 + 1) + 1)

Text2.Text = Int(Rnd * (b - 1 + 1) + 1)

End Sub

单行else语句

步骤阅读 三个随机数 输出最大数 随机三个数  输出最大数 比较三个数的大小方法一 比较三个数的大小方法

if 嵌套比较三个数大小

Private Sub Command1_Click()

Form1.Cls

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim max As Integer

Randomize

a = Int(Rnd * 100)

b = Int(Rnd * 100)

c = Int(Rnd * 100)

Print "三个随机数是"; a; b; c

If a > b Then

  If a > c Then

      Print "最大值是"; a

  Else

      Print "最大值是"; c

  End If

Else

  If c < b Then

      Print "最大值是"; b

  Else

      Print "最大值是"; c

  End If

End If

End Sub

多分支if结构  elseif