填空题

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

【参考答案】

J