在文本框中输入n1的值. Dim st1 As String st1= "/25/12/98/20/36/58/65" Dim n1 As integer n1= val(TextBox1.Text) Dim x x = Split(st1, "/") Dim n2 As String n2= x(n1)字符串中有几个"/",n1的值最大值就是几
非常简单...给你代码 .跟我刚才写的稍做了下修改.可以显示所有"/"后面的数字,你参考一下吧,Dim n1() As String, n2 As String, st1 As Stringst1 = "/25/12/98/20/36/58/65"n1 = Split(st1, "/")n2 = n1(5) '//将第5个"/"后面的数存到n2中Print "共有 " & UBound(n1) & " 个""/"" 第5个""/""后面的数是 " & n2For i = 1 To UBound(n1)Print "第" & i & "个""/""后面的数是 " & n1(i)Next i
这么有规律的字符串为什么不用Split 呢？之后用数组
答：题目阐述的可能不太明确、 我看了还不知道是怎么回事 如ABBABB.....这样的到底算不算不是很清楚 希望能够补明一下~！ 谢谢~！详情>>
