私有子命令1_Click()
將a作為整數變暗
Dim b為整數
Dim c為整數
a = Val(Text1。正文)
b = Val(文本2。正文)
c = Val(文本3。正文)
如果a & gtb那麽
如果a & gt那麽c
如果b & gt那麽c
文本4。Text = a & amp”& ampb & amp”& ampc
其他
文本4。Text = a & amp”& ampc & amp”& ampb
如果…就會結束
其他
文本4。Text = c & amp”& ampa & amp”& ampb
如果…就會結束
其他
如果b & gt那麽c
如果a & gt那麽c
文本4。Text = b & amp”& ampa & amp”& ampc
其他
文本4。Text = b & amp”& ampc & amp”& ampa
如果…就會結束
其他
文本4。Text = c & amp”& ampb & amp”& ampa
如果…就會結束
如果…就會結束
末端接頭