Question

VB中 ,如何将小数转换为百分比?

VB中 ,如何将小数转换为百分比?

比如,我这里有一个小数
0.1322548
想先舍去小数后面的数,保留两位小数

则0.1322 百分比为13.22%

该如何实现?麻烦教下小弟谢谢,了.

Answer 1

Private Sub Command1_Click()
Dim a, b, c, d, e, f
a = "0.1322548"
b = Len(a)
f = b - InStr(a, ".") + 1
If f >= 4 Then
c = b - 3
d = Left(a, c)
e = d * 100 & "%"
Else
e = a * 100 & "%"
End If
Print a & " 转化为百分数是： " & e
End Sub

或者也可以

a = "0.1322548"
b = Format(a, "0.00%")

后一种会四舍五入，前一种不会。

Answer 2

Dim a As Single, b As String （定义a，b）
a = 0.1322548 （设定a的值）
b = Format(a, "0.00%") （b用a的百分数表示）

print b （输出b）
msgbox b （msgbox中显示b）

Answer 3

Dim a As Single, b As String
a = 0.1322548
b = Format(a, "0.00%")

print b
msgbox b

Answer 4

'a是那个数
dim s as string
s=a*100 & "%"
's就是百分数了