str(total)....數值轉字串
val(total)....字串轉數值

lst.additem fN(i)
-----------------------------------------------
If txtQty.Text < 0 Or txtPrice.Text < 0 Then
MsgBox "不可輸入負值", vbOKOnly, "資料檢查"
Else
lblPay.Caption = "NT$" + Str(txtQty.Text * txtPrice.Text)
End If

期末考..ㄉ第二題明明全都對

ㄊㄅ是說過結果一樣ㄅ就好ㄌㄇ?

靠杯...

For i = 0 To 10
If Bname(i) = lstAll.Text Then
lblPrice.Caption = price(i)
lblAuthor.Caption = author(i)
End If
Next i

跟

lblPrice.Caption = price(lstAll.ListIndex)
lblAuthor.Caption = author(lstAll.ListIndex)

結果是一樣ㄉㄟ

平白無故扣我１０分

ㄊ是ㄅ會斟酌一下吼

＝　　＝ㄇㄉ

我才ㄅ要配當

降子就被當　　死的不明不白