大连北到周水子机场:哥姐请白话帮小弟解释一句代码谢谢
来源:百度文库 编辑:神马品牌网 时间:2024/08/27 10:51:08
Private Sub command1_click()
k = 0
n = -1
s = Text1.Text '取字符串
For i = 1 To Len(s) '按顺序逐个字符判断
t = Mid(s, i, 1) '取i位置的一个字符
If t < "0" Or t > "9" Then '判是否数字
k = 0 '非数字,置k=0
Else
If k = 0 Then
n = n + 1 '指向列表框的下一行
List1.List(n) = t '存入列表框
k = 1 '表示刚存过数字-----就是这句,为什么叫表示刚存过数字-----
Else
'把数字加入到列表框当前行的末尾
List1.List(n) = List1.List(n) + t
End If
End If
Next i
Label3.Caption = Str(n + 1) + "个数字串"
End Sub
k = 0
n = -1
s = Text1.Text '取字符串
For i = 1 To Len(s) '按顺序逐个字符判断
t = Mid(s, i, 1) '取i位置的一个字符
If t < "0" Or t > "9" Then '判是否数字
k = 0 '非数字,置k=0
Else
If k = 0 Then
n = n + 1 '指向列表框的下一行
List1.List(n) = t '存入列表框
k = 1 '表示刚存过数字-----就是这句,为什么叫表示刚存过数字-----
Else
'把数字加入到列表框当前行的末尾
List1.List(n) = List1.List(n) + t
End If
End If
Next i
Label3.Caption = Str(n + 1) + "个数字串"
End Sub
k=1就表示已经在List1中已经存入了数字,而不是里面一个数字也没有
意思是 List1.List(n) = t '存入列表框 进行过这个操作 即List1.List(n)刚保存过数字