VB中如何表示“煤种1：煤种2：煤种3 = a:b:c”

Private Sub Command1_Click()
Dim 煤种1 As Integer, 煤种2 As Integer, 煤种3 As Integer, a As Integer, b As Integer, c As Integer, d As Integer
煤种1 = 2500
煤种2 = 1500
煤种3 = 3000
d = F(F(煤种1, 煤种2), 煤种3) '取三者的最大公约数
a = 煤种1 / d
b = 煤种2 / d
c = 煤种3 / d
Print "煤种1:煤种2:煤种3 ="; a; ":"; b; ":"; c
End Sub
Function F(ByVal m As Integer, ByVal n As Integer) As Integer
Dim k As Integer, j As Integer
If m > n Then
k = m: m = n: n = k
End If
If n Mod m = 0 Then
F = m
Exit Function
End If
k = m
F = n
Do While k <> 0
F = F Mod k
j = F: F = k: k = j
Loop
End Function
是这样吗？
另外保留小数点后两位数可以这样：
Dim r As Single
r = 2.12345
r = Format(r, "0.00")
Print r