作者lls23 (侰侰侁)
看板Visual_Basic
标题Re: [VB6 ] 关於MsgBox用法
时间Sun Mar 26 19:50:57 2006
还是老大细腻啊﹐嘿嘿
果然不一样
※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: Chr(13) 是不正确的，windows的换行符号一定要13(cr)+10(lf)
: strMsg = "应找金额为" & total & "元" & vbCrLf
: strMsg = strMsg & "以下为找零明细" & vbCrLf & vbCrLf
: Dim unit(1)
: unit(0) = Split("一千,一百,五十,十元,五元,一元", ",")
: unit(1) = Split("张,张,个,个,个,个", ",")
: For i = 0 To UBound(unit(0))
: strMsg = strMsg & unit(0)(i) & money(i) & unit(1)(i) & vbCrLf
: Next
: MsgBox strMsg
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 81.156.102.162
1F：推 fumizuki:请善用推文系统@@ 03/26 20:03