|
在窗体上设计有文本框 Txtinput , 按钮 cmdTest , 且 Txtinput.Text=“Visual basic is easy”,并有如下程序代 码： Option Explicit Option Base 1 Private Sub CmdTest_Click() Dim strS$, i%, j%, n%, stra$, strb$, count%, t$, strt$()'1.在这里随便输入一个字符串，注意中文串和西文串字节不同。'例如输入：ILOVEYOU strS = Txtinput'计算串长=8 n = Len(strS)'重新定义strt数组长度 ReDim strt(n)'循环 For... |
