块if没有 end if

输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。
Dim x As Double
x = Val(Text1.Text)
a = Int(x / 100)
b = Int(x - a * 100) / 10
c = x - a * 100 - b * 10

If a > b > c Then
Text2.Text = a * 100 + b * 10 + c

If a > c > b Then
Text2.Text = a * 100 + c * 10 + b

If b > a > c Then
Text2.Text = b * 100 + a * 10 + c

If b > c > a Then
Text2.Text = b * 100 + c * 10 + a

If c > a > b Then
Text2.Text = c * 100 + a * 10 + b

If c > b > a Then
Text2.Text = c * 100 + b * 10 + a

End If

End Sub

应该怎么改？？？

每个if后面必须要有end if

If a > b > c Then
Text2.Text = a * 100 + b * 10 + c

应该是
If a > b > c Then
Text2.Text = a * 100 + b * 10 + c
end if

如果你想省略end if
则，需要把if语句在一行结束，如

If a > b > c Then Text2.Text = a * 100 + b * 10 + c

还有，a > b > c的写法是错的，应该是a > b and b > c

private sub run13_click() if me!num1 >= 60 then result = "及格" elseif me!num1 >= 70 then result = "通过" elseif me!num1 >= 90 then result = "优秀" elseif me!num1 <= 59 then result = "不及格" end if msgbox result end sub