下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦 函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 　　Private Type Ang 　　　　K As Integer　　　　Sinx As Single　　　　Cosx AS Single　　End Type　　Dim Ksc As Ang　　Private Sub Form _Click( )　　　　Dim Y As Single　　　　Open 【 】 　　　　Y=3．14159/180　　　　For I=1 To 90　　　　　Ksc．K=I　　　　　Ksc．Sinx=Sin(I*Y)　　　　　Ksc．Cosx=Cos(I*Y)　　　　　【 】 　　　　Next I　　　　Clise #2　　End Sub

女，60岁。右肩关节脱位，复位后1个月仍感四肢疲乏无力，形体虚弱，肌肉酸软，纳差食少，面色萎黄，舌质淡苔薄白，脉细弱。

本病为损伤后的何证型？（）

A.气血亏虚

B.脾胃虚弱

C.肝肾不足

D.肾阳亏虚

E.血虚寒凝