【病例摘要】张某，男，55岁，已婚，教师，于2011年12月10日就诊。患者于1年前无明显诱因出现尿频、排尿困难，呈进行性加重，曾在当地诊治，诊断为"前列腺增生"，给予"口服药物"治疗，症状时轻时重。近2月加重来院就诊。现症见：尿频、尿急，滴沥不爽，饮食可，大便调。体格检查：T36.7℃，P70/min，R20/min，BP120/80mmHg。语言清晰，步态稳健，舌质红，苔黄腻，脉滑数。胸部及心肺未闻及异常，肝脾正常，生理反射正常存在，病理反射未引出。辅助检查：血、尿、便常规正常，心电图正常，血脂正常。泌尿系彩超未见异常。

【答题要求】

根据给出的病例资料，按住院病历的书写格式完成书面辨证施治。

设窗体上有一个名称为Hscroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。
Dim (10) As Integer
Private Sub Form_Load()
pos=HScroll1.Value
End Sub
Private Sub HScroll1_Change()
print (11) -pos
pos=HScroll1.Value
End Sub