患者，男性，70岁。排尿困难10年，近1年加重，伴尿频、尿急和尿痛。查体：前列腺Ⅱ度增大，质中等，光滑。B超前列腺5.2cm×4.6cm×3.8cm，膀胱内多个强光团回声伴声影直径0.5～1.0cm。膀胱X线平片未见结石影。

为预防结石的复发下列哪一项是不正确的（）

A.多饮水

B.少吃动物蛋白

C.酸化尿液

D.少吃牛奶制品

E.适当限制钠盐的摄入

列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。

Private Sub Command1_Click()
HScroll1.Min=0
HScroll1.Max=______
HScroll1.Value=0
Timer1.______=100
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
If List1.ListCount＞0 Then
List1.RemoveItem (0)
HScroll1.Value=______-List1.ListCount
Else
Timer1.Enabled=False:MsgBox"全部删除!"
End If
End Sub