我準備考TQC+ visual basic 2010 物件導向程式設計
買TQC+的練習本來寫
結果我寫的程式和解答本的差很多
比如這個複利程式
我寫的是
Public Class Form1
Dim a
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
a = Val(m1.Text) * ((1 + (Val(p1.Text) / 100)) ^ Val(y1.Text))
Label1.Text = Format(a, "###,###.0")
End Sub
End Class
可是解答本卻寫一大堆
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
if txtamount.text "" andtxtrate.text "" andtxtyear "" then
dim dblamount, dbirate, dbitotal as single
dim intyear, intl as integer
dblamount = cdbl(textamount.text)
dbirate = cdbl(txtrate.text)/100.0
intyear = clnt(txtyear.text)
dbltotal = dblamount
intl = 1
do while intl <= intyear
dbltotal +=dbltotal * dblrate
intl = intl +1
loop
lbloutput.text = formatnumber(dbltotal,1)
end if
End Sub
End Class
我寫的和解答本上差很多
執行上是沒有問題
但是評分的時候會給過嗎?