作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 关於MsgBox用法
时间Sun Mar 26 09:18:36 2006
※ 引述《ashinplay (..............)》之铭言：
: 我这学期才开始碰VB
: 有点小问题想请教版上高手
: MsgBox "应找金额为" & total & "元" & Chr(13) & "以下为找零明细" & Chr(13) &
: Chr(13) & "一千" & money(0) & "张" & Chr(13) & "一百" & money(1) & "张" &
: Chr(13) & "五十" & money(2) & "个" & Chr(13) & "十元" & money(3) & "个" &
: Chr(13) & "五元" & money(4) & "个" & Chr(13) & "一元" & money(5) & "个"
: 如上...
: 这是最後的显示部份
: 为了要换行....
: 一定只能这样写吗？？
: 觉得这样写好麻烦
: 有没有比较简易的写法呢？
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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43
※ 编辑: fumizuki 来自: 210.58.156.43 (03/26 09:21)
1F：推 ashinplay:感谢回答.... 03/26 14:57