VB编程问题

Dim i As Double
Dim zs As String
Dim xs As String
Dim wz As Integer
Dim zc As Integer
Dim i1 As Double
zc = Len(Text1.Text)
i = Val(Text1.Text)
wz = InStr(Text1.Text, ".") '"-1"
zs = Mid(Text1.Text, 1, zc - (zc - wz) - 1)
xs = Mid(Text1.Text, wz + 1, zc - (zc - wz))
'佰：
If Len(zs) > 2 Then
i100 = Mid(zs, 1, wz - 3)
Else
i1 = 0
End If
'拾
ii = Right(zs, 2)
i50 = Int(Val(ii) / 50)

ii = Val(ii) Mod 50
i20 = Int(Val(ii) / 20)

ii = Val(ii) Mod 20
i10 = Int(Val(ii) / 10)
'元
ii = Right(zs, 1)
i5 = Int(Val(ii) / 5)

ii = Val(ii) Mod 5
i2 = Int(Val(ii) / 2)

ii = Val(ii) Mod 2
i1 = Int(Val(ii) / 1)

Label2.Caption = "应支付：" & Chr(13) & "100元的有：" & i100 & "张" & Chr(13) & " 50元的有：" & i50 & "张" & Chr(13) & " 20元的有：" & i20 & "张" & _
Chr(13) & " 10元的有：" & i10 & "张" & _
Chr(13) & Chr(13) & "5元的有：" & i5 & "张" & Chr(13) & "2元的有：" & i2 & "张" & _
Chr(13) & "1元的有：" & i1 & "张"

排序会吧？
把十个数排序
输出来就OK
可以用控件数组
只是有点麻烦

1.label1.caption=
（没有20的吗？）
2.do until x=0
if x>=100 then
x=x-100
a=a+1
elseif x>=50 then
x=x-50
b=b+1
elseif x>=10 then
x=x-10
c=c+1
elseif x>=5 then
x=x-5
d=d+1
elseif x>=2 then
x=x-2
e=e+1
elseif x>=1 then
x=x-1
f=f+1
endif
loop
print a & ":" & "100"
print b & ":" & "50"
print c & ":" & "10"
print d & ":" & "5"
print e & ":" & "2"
print f & ":" & "1"
首正解

label1.coption="转换码"；楼主的题意好像不够清晰喔！什么发工资钱张数问题当然用大数目的来筹合了，是吧？