vb的作業請各位會寫的人幫幫我吧 - 花

By Mason
at 2008-01-30T00:00

Table of Contents

第1題使用文書盒輸入一個0~50的數字，代表現在多少錢，香水百合1枝10元，玫瑰1枝5元，康乃馨1枝1元，用輸入的錢買花，花的數目必須最少，買花的數目顯示在表單上。
例如：輸入23就買2枝香水百合0枝玫瑰3枝康乃馨。
第2題使用文書盒輸入一個1~100的數字，在表單上顯示此數字的因式分解。
例如：輸入66就顯示 2*3*11 。
請各位會寫的好人們幫幫我吧！拜託囉！
目前我們只教過一些基本的程式語言所以請幫我寫的好人不要用太艱深的程式語言喔
例如教過：for next、select case、do loop......。
都是一些基本的程式語言所以拜託各位好人幫幫我囉！謝謝！

Tags: 花玫瑰康乃馨

All Comments

By Agatha
at 2008-02-03T17:56

' ...本來不想答作業題的，但怎麼看起來怪怪的~
Private Sub Command1_Click() '第一題
a = Val(Text1.Text)
If a < 0 Or a > 50 Then msgbox "輸入錯誤(0～50)":Exit Sub
a1 = a \ 10
a2 = (a Mod 10) \ 5
a3 = a Mod 5
Cls
Print "買" & a1 & "枝香水百合," & a2 & "枝玫瑰," & a3 & "枝康乃馨"
End Sub
'
Private Sub Command2_Click()'第二題
a = Val(Text1.Text)
If a > 100 Or a < 1 Then msgbox "輸入錯誤(1～100)":Exit Sub
I = 2
Do Until a = 1
If a Mod I = 0 Then
a = a \ I
s = s & I
If a <> 1 Then s = s & "*"
Else
I = I + 1
End If
Loop
If s = "" Then s = a
Cls
Print s
End Sub

By Margaret
at 2008-01-30T09:54

給你個副程式你帶進去值就出來了想了許久應該是這樣做
絕對精簡與簡單
Private Function InSplit(ByVal iValue As Integer) As String
Dim I, J, K As Integer

For I = 2 To iValue - 1 'ivalue 減一不能超過自己的數
If iValue Mod I = 0 Then '若沒有餘數表示可以整除
If Trim(InSplit) <> "" Then
InSplit = InSplit & "*" & I
Else
InSplit = I
End If
iValue = iValue / I '將原本數值改變
End If
Next

End Function
有問題可以發MAIL跟我說 huchun10 台灣雅虎

By Franklin
at 2008-01-30T10:50

Private Sub Command1_Click()

p = Text1

minx = 99999
minst = ""
For a = 0 To (p \ 10)
For b = 0 To ((p - (a * 10)) \ 5)
c = p - (a * 10) - (b * 5)
t = a + b + c
If t <= minx Then
minx = t
minst = a & "朵玫瑰" & " " & b & "朵香水百合" & " " & c & "朵康乃馨"
End If
Next
Next
Print minst
End Sub
'==========================================
2008-01-30 18:59:29 補充：
第二提
http://tw.myblog.yahoo.com/dodoro.1/article?mid=49...

vb的作業請各位會寫的人幫幫我吧 - 花

All Comments

Related Posts

第一次跟女朋友約會該怎麼安排

如何到灣潭玫瑰草莓園???

喝茶有什麼好壞處?!有關茶的問題

中東有哪些常見花卉?

大年初一至初四從台南要到台東.花蓮.的路線