关于数据转的问题，请高手帮忙！

Question

下面是我的一段代码：
Dim MyValue As Single
    Randomize
    MyValue = Round((4 - 1 + 1) * Rnd + 1, 1)
    Text1.Text = MyValue
第一个问题是：VB中single的数据在显示小于1的小数时是这样比如：0.1就显示成.1 ,如何让它显示成0.1的格式？
第二个问题是，我上段代码在文本控件里有时候会出这样的数值：4.1999998或3.900000,我使用了round()函数怎么还会出现这样的情况，请指教！