单选题 有Click事件对应的程序如下： Private Sub Command1_Click() Dim sum As Double，x As Double sum=1 n=0 For I=1 To 5 x=n／I n=n+1 sum=sum+x Next I End Sub 该程序通过For循环计算一个表达式的值，该表达式是( )。