Randomize
a = Round( CCur(60 * Rnd + 260),1)
d = a*10 mod 10
If d = 0 Then
a = cstr(a) &".0"
End If
Randomize
b = Round( CCur(10 * Rnd + 80),1)
d = b*10 mod 10
If d = 0 Then
b = cstr(b) &".0"
End If
Randomize
c = Round(CCur(2 * Rnd + 3), 2)
d = c*100 mod 100
If d = 0 Then
c = cstr(c) & ".00"
Else
d = c*100 mod 10
If d = 0 Then
c = cstr(c) & "0"
End If
End If
MessageBox a&"|"&b&"|"&c
//给你做了一些调整,输出部分你自己编辑下吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024