一、vbzk收入人民币***什么意思

这样的情况是不是相关的付款收入，已经被以现金的形式提走，并且办理的是个人业务。

如境外企业确无人民币收入偿还境内银行境外人民币贷款，境内代理行或境外人民币清算行与参加行可为境外企业偿还境内银行境外人民币贷款所产生的跨境人民币结算需求办理人民币购售业务。境内银行可为境外企业偿还本。

二、vb中integer long double货币是指什么

integer：只能表示整数，不能有小数点，正负数都可以，最大32767。

Long：也只能表示整数，正负都可以，最大2147483648。

single：单精度，可以有小数点，最大长度是8位。

double：双精度，可以有小数点，最大长度是16位。

currency：专门用来表示货币的。

string：文本型，只能表示文本，就是文字类的内容，另外需要特别注意的是：文本型的“3”跟数值型的3是不相等的，并且文本型的“3”不能用来运算。

扩展资料：

VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。

因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

参考资料来源：百度百科-Visual Basic

三、用vb编程实现:输入人名币小写金额,显示对应的人名币大写金额

一直在用的函数，网上摘来的。通过搜索也可以找到不少。

Public Function CurrencyToStr(ByVal Number As Currency) As String

Number= Val(Trim(Number))

If Number= 0 Then CurrencyToStr="": Exit Function

Dim str1Ary As Variant, str2Ary As Variant

str1Ary= Split("零壹贰叁肆伍陆柒捌玖")

str2Ary= Split("分角元拾佰仟万拾佰仟亿拾佰仟万拾佰")

Dim a As Long, b As Long'循环基数

Dim tmp1 As String'临时转换

Dim tmp2 As String'临时转换结果

Dim Point As Long'小数点位置

If Number<=-922337203685477# Or Number>= 922337203685477# Then

Exit Function

End If

tmp1= Round(Number, 2)

tmp1= Replace(tmp1,"-","")'先去掉“-”号

Point= InStr(tmp1,".")'取得小数点位置

If Point= 0 Then'如果有小数点，最大佰万亿

b= Len(tmp1)+ 2'加2位小数

Else

b= Len(Left(tmp1, Point+ 1))'包括点加2位小数

End If

''先将所有数字替换为中文

For a= 9 To 0 Step-1

tmp1= Replace(Replace(tmp1, a, str1Ary(a)),".","")

Next

For a= 1 To b

b= b- 1

If Mid(tmp1, a, 1)<>"" Then

If b> UBound(str2Ary) Then Exit For

tmp2= tmp2& Mid(tmp1, a, 1)& str2Ary(b)

End If

Next

If tmp2="" Then CurrencyToStr="": Exit Function

''〓下面为非正式财务算法，可以去掉〓

For a= 1 To Len(tmp2)

tmp2= Replace(tmp2,"零亿","亿零")

tmp2= Replace(tmp2,"零万","万零")

tmp2= Replace(tmp2,"零仟","零")

tmp2= Replace(tmp2,"零佰","零")

tmp2= Replace(tmp2,"零拾","零")

tmp2= Replace(tmp2,"零元","元")

tmp2= Replace(tmp2,"零零","零")

tmp2= Replace(tmp2,"亿万","亿")

Next

''〓上面为非正式财务算法，可以去掉〓

If Point= 1 Then tmp2="零元"+ tmp2

If Number< 0 Then tmp2="负"+ tmp2

If Point= 0 Then tmp2= tmp2+"整"

CurrencyToStr= tmp2

End Function