8楼的正确										
					
	
	
	
	        Dim x, y, z As Integer
        Dim a, b, c As Double
        Dim temp, sum As Double
        sum = 0
        For x = 0 To 101
            temp = 1
            If x = 0 Then
                temp = 1
                b = 1
            Else
                For y = 1 To x
                    temp = temp * y
                Next
                b = x / temp
            End If
            sum = sum + b
        Next
        Me.c.Text = sum
vb.net作的!!!!!!!!
