有如下程序段：
Const n=10
Dim d（1To n）AS Integer
Dim t AS Integer
Private Sub Form _  Load

（　?。?/div>

（　?。?/div>
t=0
End  sub
Private Sub  Text1_KeyPress（KeyAscii as integer）
If KeyAscii=13then
T=t+1
D（t）=Val（Text1．text）
List1．Additem=d（t）
Text1．Text=””
Text1．Text=t
End if
End sub
（1）加框處的錯(cuò)誤語(yǔ)句應(yīng)改為

list1．Additem Str（d（t））

list1．Additem Str（d（t））

（2）上面的代碼中用到了幾個(gè)對(duì)象？

3

3

（3）若在文本框里輸入123，事件Textl_KeyPress執(zhí)行了幾次？

3

3

（4）若在文本框里輸入123回車，事件Textl1．keyPress執(zhí)行了幾次？

4

4

（5）若在文本框里輸入40000回車，有什么錯(cuò)誤？

溢出

溢出

．