填空题

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

【参考答案】

【7】 10