跪请高人做一考题

Question

要求如下：
1：一个输入框，一个输出框，一个设定文本框
2：输入框输入三个数字为一组（范围:000-999）输入完三个数自动用空格空开：比如：001 078 356  
3：输入框重复数字输入，为了简化输入重复数字输入时用“*”后面跟要输入重复数的次数。比如：4*123 会自动转换为123 123 123 123 并用空格隔开
4：要求输出框根据设定框设定的数字筛选出输入框多余的数。比如：设定框为3.，输入框输入123 123 123 123 输出框自动输出一组123
例如：
输入框输入1233560010783574*5793*127123001001001001
输入框显示：123 356 001 078 357 579 579 579 579 127 127 127 123 001 001 001 001  
设定框数字设置为2
输出框输出：001 001 001 579 579 127 

Answer 1

楼上的已经提供了怎么判断一个端口是否可用了。
但是不能判断是否是串口(com口).
判断这个具体是否是串口(com口) 用vb的com控件 我的方法是发命令，根据命令回码来判断。就好像猫口发命令与收命令是一致的这类情况。假如还是不行 可以试试api 具体查资料才知道行不行

Answer 2

'运行程序后，在text1输入完数字后 按回车 观查结果
'最大可以三位数的重复数如456*456,设置text2多行属性MultiLine为true，可方便观查。Private Sub Form_Load()
   Text1 = "123 356 001 078 357 4*579 3*127 123 001 001 001 001"
   Text1.SelStart = Len(Text1)
   Text2 = ""
   Text3 = ""
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Dim temp1 As String, temp2 As String
      Dim temp3 As Integer, temp4 As String
      Dim temp5() As String, temp6 As String
      Dim temp7 As String
      Dim i As Integer, j As Integer, k As Integer
      
      temp7 = Replace(Text1, " ", "")
      For i = 1 To Len(temp7) Step 3
          temp1 = Mid(temp7, i, 3)
          temp3 = InStr(temp1, "*")
          If temp3 Then
             Select Case temp3
                Case 1
                   temp1 = iString(Val(Right(temp2, 4)), Mid(temp7, i + 1, 3))
                   i = i + 1
                Case 2
                   temp1 = iString(Val(Left(temp1, 1)), Mid(temp7, i + 2, 3))
                   i = i + 2
                Case 3
                   temp1 = iString(Val(Left(temp1, 2)), Mid(temp7, i + 3, 3))
                   i = i + 3
             End Select
          End If
          temp2 = temp2 + temp1 & " "
          
      Next
      temp2 = RTrim(temp2)
      temp5 = Split(temp2)
      
      If Val(Text3) <> 0 Then
         For i = 0 To UBound(temp5)
             temp6 = temp5(i)
             For j = i To UBound(temp5)
                 If temp6 = temp5(j) And temp6 <> "x" Then
                     temp5(j) = "x"
                     k = k + 1
                 End If
             Next
             If k - Text3 > 0 Then temp4 = temp4 + iString(k - Text3, temp6) & " "
             k = 0
         Next
         Text2 = RTrim(temp4)
      Else 'text3为0或""时不筛选重复数
         Text2 = temp2
      End If
   Else
      Static n As Integer
      If IsNumeric(Chr(KeyAscii)) Then
         
         If n = 3 Then
            Text1.SelStart = Len(Text1)
            Text1.SelText = " "
            n = 0
         End If
         n = n + 1
      Else
         If Chr(KeyAscii) = "*" Then
            n = 0
         ElseIf KeyAscii = 8 Then
            If n > 0 Then n = n = n - 1
         Else
            KeyAscii = 0
         End If
      End If
      
   End If
   
End SubPrivate Function iString(ByVal L As Integer, ByVal S As String) As String
    Dim i As Integer
    For i = 1 To L
        iString = iString & S & " "
    Next
    iString = RTrim(iString)
    
End FunctionPrivate Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Text1_KeyPress 13
      Text1.SetFocus
      Text1.SelStart = Len(Text1)
   End If
   
End Sub
如果运行结果还满意，请把贴子结了。

Answer 3

'运行程序后，在text1输入完数字后 按回车 观查结果
'最大可以三位数的重复数如456*456,设置text2多行属性MultiLine为true，可方便观查。Private Sub Form_Load()
   Text1 = "123 356 001 078 357 4*579 3*127 123 001 001 001 001"
   Text1.SelStart = Len(Text1)
   Text2 = ""
   Text3 = ""
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Dim temp1 As String, temp2 As String
      Dim temp3 As Integer, temp4 As String
      Dim temp5() As String, temp6 As String
      Dim temp7 As String
      Dim i As Integer, j As Integer, k As Integer
      Static n As Integer
      Dim a As Byte, b As Byte, c As Byte, d As Byte
      
      If Left(Right(Text1, 4), 1) = " " Or Left(Right(Text1, 4), 1) = "*" Then
         a = Left(Right(Text1, 3), 1)
         b = Left(Right(Text1, 2), 1)
         c = Right(Text1, 1)
         If a > b Then d = a: a = b: b = d
         If a > c Then d = a: a = c: c = d
         If b > c Then d = b: b = c: c = d
         Text1 = Left(Text1, Len(Text1) - 3) & a & b & c
         Text1.SelStart = Len(Text1)
      ElseIf Left(Right(Text1, 3), 1) = " " Or Left(Right(Text1, 3), 1) = "*" Then
         a = Left(Right(Text1, 2), 1)
         b = Right(Text1, 1)
         If a > b Then d = a: a = b: b = d
         Text1 = Left(Text1, Len(Text1) - 2) & a & b
         Text1.SelStart = Len(Text1)
      End If
        
      temp7 = Replace(Text1, " ", "")
      For i = 1 To Len(temp7) Step 3
          temp1 = Mid(temp7, i, 3)
          temp3 = InStr(temp1, "*")
          If temp3 Then
             Select Case temp3
                Case 1
                   temp1 = iString(Val(Right(temp2, 4)), Mid(temp7, i + 1, 3))
                   i = i + 1
                Case 2
                   temp1 = iString(Val(Left(temp1, 1)), Mid(temp7, i + 2, 3))
                   i = i + 2
                Case 3
                   temp1 = iString(Val(Left(temp1, 2)), Mid(temp7, i + 3, 3))
                   i = i + 3
             End Select
          End If
          temp2 = temp2 + temp1 & " "
          
      Next
      temp2 = RTrim(temp2)
      temp5 = Split(temp2)
      
      If Val(Text3) <> 0 Then
         For i = 0 To UBound(temp5)
             temp6 = temp5(i)
             For j = i To UBound(temp5)
                 If temp6 = temp5(j) And temp6 <> "x" Then
                     temp5(j) = "x"
                     k = k + 1
                 End If
             Next
             If k - Text3 > 0 Then temp4 = temp4 + iString(k - Text3, temp6) & " "
             k = 0
         Next
         Text2 = RTrim(temp4)
      Else 'text3为0或""时不筛选重复数
         Text2 = temp2
      End If
   Else
      
      If IsNumeric(Chr(KeyAscii)) Then
         
         If n = 3 Then
            a = Left(Right(Text1, 3), 1)
            b = Left(Right(Text1, 2), 1)
            c = Right(Text1, 1)
            If a > b Then d = a: a = b: b = d
            If a > c Then d = a: a = c: c = d
            If b > c Then d = b: b = c: c = d
            Text1 = Left(Text1, Len(Text1) - 3) & a & b & c
            Text1.SelStart = Len(Text1)
            Text1.SelText = " "
            n = 0
         End If
         n = n + 1
      Else
         If Chr(KeyAscii) = "*" Then
            n = 0
         ElseIf KeyAscii = 8 Then
            If n > 0 Then n = n = n - 1
         Else
            KeyAscii = 0
         End If
      End If
      
   End If
   
End SubPrivate Function iString(ByVal L As Integer, ByVal S As String) As String
    Dim i As Integer
    For i = 1 To L
        iString = iString & S & " "
    Next
    iString = RTrim(iString)
    
End FunctionPrivate Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Text1_KeyPress 13
      Text1.SetFocus
      Text1.SelStart = Len(Text1)
   End If
   
End Sub

Answer 4

Private Sub Command1_Click()
   Text1_KeyPress 13
End SubPrivate Sub Form_Load()
   Text1 = "123 356 001 078 357 4*579 3*127 123 001 001 001 001"
   Text1.SelStart = Len(Text1)
   Text2 = ""
   Text3 = ""
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Dim temp1 As String, temp2 As String
      Dim temp3 As Integer, temp4 As String
      Dim temp5() As String, temp6 As String
      Dim temp7 As String
      Dim i As Integer, j As Integer, k As Integer
      Static n As Integer
      Dim a As Byte, b As Byte, c As Byte, d As Byte
      
      If Left(Right(Text1, 4), 1) = " " Or Left(Right(Text1, 4), 1) = "*" Then
         a = Left(Right(Text1, 3), 1)
         b = Left(Right(Text1, 2), 1)
         c = Right(Text1, 1)
         If a > b Then d = a: a = b: b = d
         If a > c Then d = a: a = c: c = d
         If b > c Then d = b: b = c: c = d
         Text1 = Left(Text1, Len(Text1) - 3) & a & b & c
         Text1.SelStart = Len(Text1)
      ElseIf Left(Right(Text1, 3), 1) = " " Or Left(Right(Text1, 3), 1) = "*" Then
         a = Left(Right(Text1, 2), 1)
         b = Right(Text1, 1)
         If a > b Then d = a: a = b: b = d
         Text1 = Left(Text1, Len(Text1) - 2) & a & b
         Text1.SelStart = Len(Text1)
      End If
        
      temp7 = Replace(Text1, " ", "")
      For i = 1 To Len(temp7) Step 3
          temp1 = Mid(temp7, i, 3)
          temp3 = InStr(temp1, "*")
          If temp3 Then
             Select Case temp3
                Case 1
                   temp1 = iString(Val(Right(temp2, 4)), Mid(temp7, i + 1, 3))
                   i = i + 1
                Case 2
                   temp1 = iString(Val(Left(temp1, 1)), Mid(temp7, i + 2, 3))
                   i = i + 2
                Case 3
                   temp1 = iString(Val(Left(temp1, 2)), Mid(temp7, i + 3, 3))
                   i = i + 3
             End Select
          End If
          temp2 = temp2 + temp1 & " "
          
      Next
      temp2 = RTrim(temp2)
      temp5 = Split(temp2)
      
      If Val(Text3) <> 0 Then
         For i = 0 To UBound(temp5)
             temp6 = temp5(i)
             For j = i To UBound(temp5)
                 If temp6 = temp5(j) And temp6 <> "x" Then
                     temp5(j) = "x"
                     k = k + 1
                 End If
             Next
             If k - Text3 > 0 Then temp4 = temp4 + iString(k - Text3, temp6) & " "
             k = 0
         Next
         Text2 = RTrim(temp4)
      Else 'text3为0或""时不筛选重复数
         Text2 = temp2
      End If
   Else
      
      If IsNumeric(Chr(KeyAscii)) Then
         
         If n = 3 Then
            a = Left(Right(Text1, 3), 1)
            b = Left(Right(Text1, 2), 1)
            c = Right(Text1, 1)
            If a > b Then d = a: a = b: b = d
            If a > c Then d = a: a = c: c = d
            If b > c Then d = b: b = c: c = d
            Text1 = Left(Text1, Len(Text1) - 3) & a & b & c
            Text1.SelStart = Len(Text1)
            Text1.SelText = " "
            n = 0
         End If
         n = n + 1
      Else
         If Chr(KeyAscii) = "*" Then
            n = 0
         ElseIf KeyAscii = 8 Then
            If n > 0 Then n = n = n - 1
         Else
            KeyAscii = 0
         End If
      End If
      
   End If
   
End SubPrivate Function iString(ByVal L As Integer, ByVal S As String) As String
    Dim i As Integer
    For i = 1 To L
        iString = iString & S & " "
    Next
    iString = RTrim(iString)
    
End FunctionPrivate Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      Text1_KeyPress 13
      Text1.SetFocus
      Text1.SelStart = Len(Text1)
   End If
   
End Sub