Imports System.Text
Module Module1
Sub Main()
Dim arr As Integer() = {1, 5, 7, 8, 30, 99}
Dim sb As StringBuilder = New StringBuilder()
For Each n As Integer In arr
sb.AppendFormat(("{0:0.0}" & Environment.NewLine), n)
Next
Console.WriteLine(sb.ToString)
End Sub
End Module
' run:
'
' 1.0
' 5.0
' 7.0
' 8.0
' 30.0
' 99.0