在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strAs String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为( )。

A．kk

B．kK

C．KK

D．Kk

甲与乙订立货物买卖合同，约定甲于1月8日交货，乙在交货期后的一周内付款。交货期届满时，甲发现乙有转移资金以逃避债务的行为。对此甲可依法行使( )。

A．先履行抗辩权

B．同时履行抗辩权

C．不安抗辩权

D．债权人撤销权