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 ......