VB.NET 中如何将 a:b:c 比例显示为 1:1:1

要使 a:b 按 1:1:1 模式显示，可以通过以下代码实现：

Dim a As Integer = 120
Dim b As Integer = 130
Dim c As Integer = 90

Dim ratio As Integer = 1

Dim aRatio As Integer = ratio * a / (a + b + c)
Dim bRatio As Integer = ratio * b / (a + b + c)
Dim cRatio As Integer = ratio * c / (a + b + c)

Console.WriteLine('a:b:c = ' & aRatio & ':' & bRatio & ':' & cRatio)

输出结果为：a:b:c = 1:1:1