BW=CInt(Left(NUMBER,1))'BW表示号码的百位SW=CInt(Mid(NUMBER,2,1))'SW表示号码的十位GW=CInt(Right(NUMBER,1))'GW表示号码的个位IfBW

Question

BW = CInt(Left(NUMBER,1)) 'BW表示号码的百位 SW = CInt(Mid(NUMBER,2,1)) 'SW表示号码的十位 GW = CInt(Right(NUMBER,1)) 'GW表示号码的个位 If BW < SW Then S = BW BW = SW SW = S End If If BW < GW Then S = BW BW = GW GW = S End If If SW < GW Then S = SW SW = GW GW = S End If S = SW 'SW是中间数

Answer 1

If BW < SW Then S = BW BW = SW SW = S End If
如果号码的百位数小于十位数,将百位数与十位数对调.
If BW < GW Then S = BW BW = GW GW = S End If
如果号码的百位数小于个位数,将百位数与个位数对调.
If SW < GW Then S = SW SW = GW GW = S End If
如果号码的十位数小于个位数,将十位数与个位数对调.
S = SW 将号码的十位数赋值给S.