教学材料《VB导论》_6.2.ppt

OptionExplicitPrivateSubCommand1_Click()DimstAsString,idxAsIntegerDima(0To25)AsIntegerDimiAsInteger,jsAsIntegerDimchAsString*1,lAsIntegerst=Text1.TextL=Len(st)Fori=1ToLch=Mid(st,i,1)Ifch=AA

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档