VB code: '引用了Microsoft VBScript Regular Expressions 5.5 Private Sub Form_Load() Dim re As RegExp Dim mh As Match Dim mhs As MatchCollection Dim inpStr As String inpStr = " -1 0 1 1000" Set re = New RegExp re.Global = True re.Pattern = "\d+" Set mhs = re.Execute(inpStr) For Each mh In mhs MsgBox mh Next End Sub
帮我改改 我总觉得有问题 Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
