某男,62岁。患糖尿病10年。现口渴引饮,多食,便溏,精神不振,四肢乏力,体瘦,舌淡红,苔白而干,脉弱。治宜
A. 金匮肾气丸加减
B. 七味白术散加减
C. 血府逐瘀汤加减
D. 消渴方加减
E. 生脉散合参附汤
查看答案
在当前目录下有一个名为myfile.txt的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。请填空。 Private Sub Command1_Click() Dim ch$, ascii As Integer Open "myfile.txt" For As #1 While Not EOF(1) Line Input #1, ch ascii=toascii() Print ascii Wend Close #1 End Sub Private Function toascii(myStr$) As Integer n=0 For k=1 Ton=n+Asc(Mid(myStr,k,1)) Next k toascii=n End Function
女患者,30岁,月经一直正常,现在是月经干净后第7天,宫颈粘膜涂片检查结果是典型羊齿叶状结晶,表明
A. 月经前
B. 月经期
C. 接近排卵
D. 排卵后
E. 已妊娠