在窗体上画一个文本框(Textl)，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(Ucase(char))
Print String(4，KeyAscii)
End Sub
程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为

A．a

B．A

C．aaaa

D．AAAA

远大公司2009年1月2日按每张524.5元的溢价价格购入财政部于2009年1月1日发行的期限为5年、面值为500元(等于公允价值)、票面固定年利率为12%的国债800张，发生交易费用400元，票款以银行存款付讫。该债券每年付息一次，最后一年归还本金和最后一次利息。假设年实际利率为10.66%，公司将其作为持有至到期投资核算，则2009年末该批债券的摊余成本为( )元。

A．414 240.00

B．416 329.36

C．416 772.00

D．419 600.00