执行下面的程序段，x的值为【】。　　Private Sub Command1_Click()　　　For i=1 To 9　　　　　a=a + i　　　Next i　　　x=Val(i)　　　MsgBox x　　End Sub

下列哪一项属于行政机关采取的行政强制措施（）

A、税务机关将被扣押的财物依法拍卖以抵缴税款

B、公安交管局暂扣违章驾车张某的驾驶执照6个月

C、药品监督管理局查封可能危害人体健康的药品

D、工商局对甲企业有效期届满未申请延续的营业执照予以注销