vb.net百分数,vb分数代码

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

Private Sub Command1_Click()

成都创新互联公司是一家网站建设、做网站，提供网页设计，网站设计，网站制作，建网站，按需定制，网站开发公司，从2013年成立是互联行业建设者，服务者。以提升客户品牌价值为核心业务，全程参与项目的网站策划设计制作，前端开发，后台程序制作以及后期项目运营并提出专业建议和思路。

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%")

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

代码：a=Convert.toDouble(textbox1.Text)*6/100，先转换字符串格式为双精度型，再和数字相乘获得结果，但结果是双精度型，你若要显示出来必须转换成字符串，比如textbox2.Text=a.toString()，希望对你有帮助

format(常量或变量或表达式, "格式化参数")

0.00% 以百分比显示小数点后面固定 2 位

1 - 100%

5 - 500%

0.5 - 50%

0.05 - 5%

当前文章：vb.net百分数,vb分数代码
链接URL：http://ybzwz.com/article/hchihh.html