执行下面的程序段，x的值为 Private Sub Commandl_Click() For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub

A．5

B．6

C．7

D．8