编写程序 求2^100的后8位数字

    Dim i, j, k
    j = 1
    For i = 1 To 100
    j = j * 2
    j = j Mod 100000000
    Next
    k = CStr(j)
    Do
    If Len(k) < 8 Then
    k = "0" & k
    Else
    Exit Do
    End If
    Loop
    MsgBox (k)
这个可是货真价实的VB代码哦，请LZ加分吧。

测试通过，输出结果为03205376

a[0=]除以10的余数

a[1]除以100的余数再除以10的余数

。。。

a[n]就是除以10的n次方、、

我这样想的。嘿嘿

Private Sub Command1_Click() Dim P As Long Dim I As Long P = 1 For I = 1 To 100     P = P * 2     P = P Mod 100000000 Next Print P End Sub