VB.NET程序出了点问题，高手帮找找问题所在?

Dim r, i
Randomize()
For i = 1 To 10
r += ((Int(6 * Rnd() + 14) * 10) / 10).ToString() + " "
Next
Label1.Text = r

这段程序目的是产生10个14——19之间的可带有一位小数的随机数，可结果出来是10个整数，没有带一位小数？请问问题出到哪了？

Single(((Int(6 * Rnd() + 14) * 10) / 10)).ToString()

Dim r As String = Nothing Dim i As Integer Randomize() For i = 1 To 10 r += (Rnd() * 5 + 14).ToString("F1") + " " Next Label1.Text = r