请教程序解释

Question

请大家帮我解释一下这段程序实现的功能，谢谢！ 
If Int(tb1("实发现金") * 10) = tb1("实发现金") * 10 Then
                   hxfscz = Trim(tb1("卡号")) & Right("0000000000000000" & Format(Int(tb1("实发现金") * 10) / 10) & "0", 16) & hxfrq & dwdh
                Else
                   hxfscz = Trim(tb1("卡号")) & Right("0000000000000000" & Format(Int(tb1("实发现金") * 100) / 100), 16) & hxfrq & dwdh
                End If

Answer 1

你上边设计的子函数和变量都是什么东西，你不写出来，怎么能看懂 Int(tb1("实发现金") * 10) = tb1("实发现金") * 10 
这句判断的是tb1("实发现金")后面是否是少于一位小数，如果超过一位这个判断＝falseRight("0000000000000000" & Format(Int(tb1("实发现金") * 10) / 10) & "0", 16) 这个代码怎么怎么写，很多地方都是很罗嗦          (  ">
           )(
          // )
shannon--//""--
       -/[email protected]

Answer 2

你最好重写，而且最好定义几个变量这样好理解          (  ">
           )(
          // )
shannon--//""--
       -/[email protected]

Answer 3

不好意思，          (  ">
           )(
          // )
shannon--//""--
       -/[email protected]