在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n，str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。

A．pp

B．pP

C．PP

D．Pp

下列哪项临床表现对诊断骨髓瘤最有价值（）

A.50岁以上的男性

B.进行性贫血

C.血清钙及球蛋白升高

D.全身性疼痛

E.尿中出现本-周（Bence-Jones）蛋白