管理员
查看个人网站
查看详细资料
TOP
版主
超级版主
好风凭借力~~送我上青云
Dim a As Long For i = 1 To Len(Text1.Text) a = a + AscW(Mid(Text1.Text, i, 1)) Next MsgBox a Mod 100