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

口服长效避孕药者应该在停药半年后再怀孕比较安全。