C=InputBox(“请输入字符串:”))p=”””” ForrL=Len(c))Too22Stepp–22P=Mid(C,,LL––1,,2))++PPNexttLL PrinttPPPPPPP EnddSubbb 如果输入:ABCDEFGG,则结
出自:河南科技大学-通信工程-VB程序设计