谁能给我一些关于VB程序设计的简单例题？？？？？？

新建3个文本框,两个命令按钮,直接复制就好了,代码如下:
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, e As Long, f As Long, d As Long, g As String
a = Val(Text1.Text) '将字符串转化为数字。
b = Val(Text2.Text)
c = Val(Text3.Text)
d = a - b: e = b - c: f = a - c
If d >= 0 And e >= 0 Then '用If语句进行判断。
g = a & " " & b & " " & c '添加空格，用于隔开输出，其中的&是用于将字符串相连。
ElseIf d >= 0 And e <= 0 And f >= 0 Then '判断3个数之间的逻辑关系！
g = a & " " & c & " " & b
ElseIf d >= 0 And e <= 0 And f <= 0 Then
g = c & " " & a & " " & b
ElseIf d < 0 And e >= 0 And f >= 0 Then
g = b & " " & a & " " & c
ElseIf d < 0 And e >= 0 And f <= 0 Then
g = b & " " & c & " " & a
ElseIf d < 0 And e <= 0 Then
g = c & " " & b & " " & a
End If
MsgBox "三个数的顺序为：