VB二叉树的基本性质
的有关信息介绍如下：
Private Sub Command1_Click() Dim s As String, pos As Integer Dim j As Integer, k As Integer Dim a(3, 3) As Integer, i As Integer s = Text1 For i = 1 To 3 For j = 1 To 3 k = 0 pos = pos + 1 Do While Mid(s, pos, 1) <> "" And pos <= Len(s) pos = pos + 1 k = k + 1 Loop a(i, j) = Mid(s, pos - k, k) Text2 = Text2 & CStr(a(i, j)) & "" Next j Text2 = Text2 & vbCrLf Next i
版权声明：文章由 好百科 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.haobaik.com/tips/236868.html
