请赐予斐波那契数列前100项的vb代码，谢谢

请赐予斐波那契数列前100项的vb代码，谢谢

Dim st As String = ""
        Dim a(100)
        a(1) = 0 : a(2) = 1
        For i = 3 To 100
            a(i) = a(i - 2) + a(i - 1)
        Next i

        For i = 1 To 100
            st = st & a(i) & " "
            If i Mod 10 = 0 Then st = st & vbCrLf
        Next i
    TextBox6.Text = st

private sub form_click() dim d(100000), i as long d(0) = 0 d(1) = 1 for i = 2 to 20 d(i) = d(i - 1) + d(i - 2) next i for i = 0 to 20 print d(i) & space(5); if i mod 5 = 0 then print next i print "偶数" for i = 0 to 20 if d(i) mod 2 = 0 then print d(i); next i end sub