Re: [心得] 今天ㄉ程式ㄚ...
※ 引述《zahavi (橘子勇氣忘憂小喵)》之銘言：
: ※ 引述《lcf0308 (我ㄉ彩色雲)》之銘言：
: : http://st2.fju.edu.tw/~a9133157/aaa.zip
: : 這是我自己寫ㄉ
: : 裡面有很多注解
: 1. integer 可以表示 -32768 到 32767 之間的整數.
: long 則可以表示 -2147483648 到 2147483647 之間的數.
: 而本次作業最大的數超過 integer 所能表示的範圍,
: 所以改用 long 是正確的.
: 2. 註解是夠了, 不過如果可以針對不同層級的 if 作凹入的修整,
: 程式的可讀性會更高.
: 如 :
: If Option1.Value = True Then '若選擇第一個選項
: base = 8 '設定基數為 8
: Else
: If Option2.Value = True Then '若選擇第二個選項
: base = 6 '設定基數為 6
: Else
: If Option3.Value = True Then '若選擇第三個選項
: base = 5 '設定基數為 5
: End If
: End If
: End If
: 像這樣的寫法不就是更清楚明白了嗎 ? =)
: 3. 同樣的算式在整個程式中應該只需要寫一次,
: 試著把多餘的敘述句從程式中刪減掉吧.
: 4. 提示, OptionButton 有互斥性, 所以可以用 Click 當作事件觸發來寫作,
: 若是用這種方式寫出來的程式會更簡單易懂吧. =)
: 也可以想一想為什麼 CheckBox 在這邊不能用 Click 當作事件觸發.
: 5. 請多加油! =P
: -------------請--------叫--------我--------分--------隔--------線-------------
: PS. 如果你們這次交出像這樣的作業, 大概只會有 60-70 分左右的成績喔,
: 這是只有堪用程度的程式的分數 ... =P
那~醬子ㄋ
If Option1.Value = True Then '若選擇第一個選項
base = 8 '設定基數為 8
Else
If Option2.Value = True Then '若選擇第二個選項
base = 6 '設定基數為 6
Else
If Option3.Value = True Then '若選擇第三個選項
base = 5 '設定基數為 5
End If
End If
End If
Label3 = "接受承保"
a = 3200 * base
If Check1.Value = 1 Then
a = a + 3000
End If
If Check2.Value = 1 Then
a = a + 5000
End If
If Check3.Value = 1 Then
a = a + 2000
End If
Label4 = Str(a)
If Option4.Value = True Then
Label3 = "拒絕承保"
Label4 = 0
End If
可是我覺得好像還是太長說~有辦法在簡單ㄇ?
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 210.85.234.187
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 5 篇)：