全國中等學校商業技藝競賽94模擬試題vb 程式語言

Question

鬱金香一朵50元、香水百合一朵10元、白玫瑰一朵1元，現王先生有一筆金額N ( 0 < n < 100 )，請設計一程式，計算出此金額若全部用完，能買到的花朵數。（買到的花朵數必須為最少，花朵數若非最少，則本題算錯零分計算。）

輸入說明：輸入金額 n。
輸入範例：假定王先生有78元。實際輸入之檔案內容如下：
實際輸入：(rest2.txt)
78

輸出說明：第一例為花朵總數。第二列到第五列分別為鬱金香、香水百合、白玫瑰、滿天星的花朵數。
輸出範例：上例中王先生有78元，能買到最少的花朵數分別為鬱金香1朵、香水百合2朵、白玫瑰1朵、滿天星3朵。實際輸出之檔案內容如下：
實際輸出：(result2.txt)
7
1
2
1
3

求其解答，最好能附上解析、小妹感謝不已！！ 謝謝！！

好利害啊… 且真詳細…！！

可以的話可以順便幫解解http://tw.knowledge.yahoo.com/question/question?qid=1007030606606
這題嗎？

謝謝您！

Answer 1

鬱金香一朵50元、香水百合一朵10元、白玫瑰一朵1元 題目有錯，應改為鬱金香一朵50元、香水百合一朵10元、白玫瑰一朵5元 ，滿天星一朵一元

Open "e:\rest2.txt" For Input As #1　　開輸入檔
Open "e:\result2.txt" For Output As #2　開輸出檔
Line Input #1, N　　　　讀入金錢數目
A = Int(N / 50) 　　　 可買Ａ朵鬱金香
N = N - 50 * A 　　 扣除買Ａ朵鬱金香所剩的錢
B = Int(N / 10) 　　 可買Ｂ朵香水百合
N = N - 10 * B 　　 扣除買Ｂ朵香水百合所剩的錢
C = Int(N / 5) 　　 　 可買Ｃ朵白玫瑰
D = N - 5 * C 　　　 剩下的錢，可買Ｄ朵滿天星
E = A＋ B＋ C＋ D　 　可買最少Ｅ朵的花
Print #2, E　　　　　　輸出
Print #2, A
Print #2, B
Print #2, C
Print #2, D
Close #1, #2　　　　　　關檔

Answer 2

這一題0.0
我們學校的程式校內比賽也有耶>///<

Answer 3

'請把＋＼改成半型....知識＋
圖片參考：http://tw.yimg.com/i/tw/blog/smiley/31.gif

Private Sub Command1_Click()
Dim A, C, I As Integer, N As Integer, S As String
Open "C:＼rest2.txt" For Input As #1　'讀檔
Line Input #1, C
Close #1
A = Array(50, 10, 5, 1) '價錢放入陣列
For I = 0 To 3
　　N = N ＋ C＼ A(I) '總數量
　　S = S & C＼ A(I) & vbCrLf '把單一數量記錄到S並加上換行字元vbCrLf
　　C = C Mod A(I) '計算餘額
Next
Open "C:＼result2.txt" For Output As #1
'把總數量加上換行字元vbCrLf再加到S前面後輸出
Print #1, N & vbCrLf & S
Close #1
End Sub