vb点虐 如何把大写金额转换成阿拉伯数字金额？

Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：空间域名、网络空间、营销软件、网站建设、崆峒网站维护、网站推广。

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '转换小数位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '转换整数位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '显示大写

End Sub

vb net 计算百分比代码怎么写

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

vb点虐 里四舍五入用什么函数（谢谢）

round是vb6.0的吧，我刚才查了一下，在vb点虐 里变成了枚举了成员为

成员名称 说明

RoundToBillionth 数字四舍五入为 9 个小数点位。

RoundToHundred 数字四舍五入为百位数。

RoundToHundredMillionth 数字四舍五入为 8 个小数点位

RoundToHundredth 数字四舍五入为 2 个小数点位

RoundToHundredThousand 数字四舍五入为十万位数。

RoundToHundredThousandth 数字四舍五入为 5 个小数点位。

RoundToMillion 数字四舍五入为百万位数。

RoundToMillionth 数字四舍五入为 6 个小数点位

RoundToTen 数字四舍五入为十位数。

RoundToTenBillionth 数字四舍五入为 10 个小数点位

RoundToTenMillionth 数字四舍五入为 7 个小数点位

RoundToTenth 数字四舍五入为 1 个小数点位。

RoundToTenThousand 数字四舍五入为万位数。

RoundToTenThousandth 数字四舍五入为 4 个小数点位。

RoundToThousand 数字四舍五入为千位数。

RoundToThousandth 数字四舍五入为 3 个小数点位。

RoundToUnit 数字四舍五入为个位数。要求

我在用VB点虐 做一个计算程序，遇到一个问题。一个数15563，需要取出万位和千位（1500）

dim a as integer

a=15563

万位=a\10000

千位=a\1000 mod 10

百位=a\100 mod 10

if a mod 105 then 百位+=1

网站标题：vb点虐 万分之的简单介绍
标题网址：http://kswjz.com/article/ddsihcd.html