在文本框中输入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的值最大值就是几
Private Const str1 As String = "/25/12/98/20/36/58/65"Private str2 As StringPrivate Sub Command1_Click() Dim i As Integer Dim count As Integer Dim str As String count = 6 '根据实际情况设定 str = str1 Do While count > 1 i = InStr(1, str, "/") str =
非常简单...给你代码 .跟我刚才写的稍做了下修改.可以显示所有"/"后面的数字,你参考一下吧,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 呢？之后用数组
答：第1题:(.5分) 使文本框获得焦点的方法是GetFocus（ ） 正确 第2题:(.5分) 可以利用VB的“监视窗口”观察表达式的值（ ） 正确 第3题:(....详情>>
