1.將變數定義為是全域性變數（在標準模組裡用public來定義）。 2.M的十位大於5時F為負的問題 因為e=M/100是值是四捨五入之後的值，改為e=int(M/100)就可以了。（這個也是VB裡取商、取模的問題） 借你的原碼修改： PublicM#,e%,f#,a%,b%,c%,d%,g%,h%,i%,j% PrivateSubCommandButton1_Click() "DimM#,e%,f# M=Val(InputBox("請輸入該員工的實發工資")) e=Int(M/100) f=M-e*100 Text2.Text=M printf Calljisuan(k) MsgBox(e&"個一百元."&a&"個五十元."&b&"個十元."&c&"個五元."&d&"個一元."&g&"個五角."&h&"個一角."&i&"個五分."&j&"個一分.") EndSub PrivateSubjisuan(ByValk$) "Dima%,b%,c%,d%,g%,h%,i%,j% MsgBoxf k=CStr(f) a=Val(Mid(k,1,1)) Ifa>4Then b=a-5 a=1 Else:b=a a=0 EndIf c=Val(Mid(k,2,1)) Ifc>4Then d=c-5 c=1 Else:d=c c=0 EndIf g=Val(Mid(k,4,1)) Ifn>4Then h=g-5 g=1 Else:h=g g=0 EndIf i=Val(Mid(k,5,1)) Ifi>4Then j=i-5 i=1 Else:j=i i=0 EndIf EndSub
1.將變數定義為是全域性變數（在標準模組裡用public來定義）。 2.M的十位大於5時F為負的問題 因為e=M/100是值是四捨五入之後的值，改為e=int(M/100)就可以了。（這個也是VB裡取商、取模的問題） 借你的原碼修改： PublicM#,e%,f#,a%,b%,c%,d%,g%,h%,i%,j% PrivateSubCommandButton1_Click() "DimM#,e%,f# M=Val(InputBox("請輸入該員工的實發工資")) e=Int(M/100) f=M-e*100 Text2.Text=M printf Calljisuan(k) MsgBox(e&"個一百元."&a&"個五十元."&b&"個十元."&c&"個五元."&d&"個一元."&g&"個五角."&h&"個一角."&i&"個五分."&j&"個一分.") EndSub PrivateSubjisuan(ByValk$) "Dima%,b%,c%,d%,g%,h%,i%,j% MsgBoxf k=CStr(f) a=Val(Mid(k,1,1)) Ifa>4Then b=a-5 a=1 Else:b=a a=0 EndIf c=Val(Mid(k,2,1)) Ifc>4Then d=c-5 c=1 Else:d=c c=0 EndIf g=Val(Mid(k,4,1)) Ifn>4Then h=g-5 g=1 Else:h=g g=0 EndIf i=Val(Mid(k,5,1)) Ifi>4Then j=i-5 i=1 Else:j=i i=0 EndIf EndSub