Question

vb编写一程序提取字符串中的数字,并把连续的数字作为整体

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

Private Sub Command1_Click() '在text1中输入字符串，单击按钮command1提取，并在窗体中打印结果
   Dim a(), f As Boolean
   For i = 1 To Len(Text1.Text)
      If IsNumeric(Mid(Text1.Text, i, 1)) Then
         If f = False Then
            f = True
            ReDim a(0)
         Else
            ReDim Preserve a(UBound(a) + 1)
         End If
         a(UBound(a)) = Mid(Text1.Text, i, 1)
         For j = i + 1 To Len(Text1.Text)
            If IsNumeric(Mid(Text1.Text, j, 1)) Then
               a(UBound(a)) = a(UBound(a)) & Mid(Text1.Text, j, 1)
               i = i + 1
            Else
               Exit For
            End If
         Next j
      End If
   Next i
   If f = True Then
      Print "提取的数字依次为："
      For i = 0 To UBound(a)
         Print a(i)
      Next i
   End If
End Sub

追问

什么鬼

追答

程序运行界面如下

、

输入内容后点击按钮显示如下

追问

可以按照Vb的格式在写一遍吗？并做解释

可以按照Vb的格式在写一遍吗？并做解释

追答

上面的就是VB的代码啊，你用的是vb6.0还是vb.net?

追问

你这上面第一个if后面一个then怎么接着一个if，then后没语句

你这上面第一个if后面一个then怎么接着一个if，then后没语句

你这上面第一个if后面一个then怎么接着一个if，then后没语句

追答

连续判断啊，就像找出三个数a,b，c 的最大值，可以用下面的代码道理一样啊

Private Sub Command1_Click()
   Dim a As Integer, b As Integer, c As Integer
   a = 5
   b = 3
   c = 6
   If a > b Then   '比较a，b 大小
      If a > c Then
         Print "最大值为："; a
      Else
         Print "最大值为："; c
      End If
   Else
      If b > c Then
         Print "最大值为："; b
      Else
         Print "最大值为："; c
      End If
   End If
End Sub