京东的新百伦是正品吗:VB代码问题 急需解答!!

代码如下:
Private Sub Command1_Click（）
Dim a As Single，c As Single，b As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text '三个文本框的数据赋值给变量
If a < b Then
t = a
a = b
b = t 'a<b时交换a、b的值
End If '保证A>B
If c > a Then '用C去比较
Text4.Text = c 'C>A成立，C最大
Text5.Text = a
Text6.Text = b
Else
If c < b Then
Text4.Text = a 'C<B成立，C最小
Text5.Text = b
Text6.Text = c
Else
Text4.Text = a 'C处于中间
Text5.Text = c
Text6.Text = b
End If
End If
End Sub

谁能帮我具体解释一下上面代码表达的意思!尤其是
t = a
a = b
b = t 'a<b时交换a、b的值
End If '保证A>B
这一端代码 我好糊涂啊 !! 谢谢了!!!!! 顺便把全部代码都解释解释 谢谢!!!!