Question

vb.net 在TextBox1中输入数字和空格，并求奇数数字，并求和

在TextBox1中输入数字和空格，输入其他字符自动清楚
按Button1将其中奇数在TextBox2显示，分行显示或一行显示都行，将奇数数值之和在TextBox3显示
最好用正则表达式，否则太麻烦了

Answer 1

给你个参考的例子
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim a_point As Integer = TextBox1.SelectionStart
Dim bs As String = Regex.Replace(TextBox1.Text, "[^ \d]", "")
If TextBox1.TextLength > bs.Length Then
TextBox1.Text = bs
TextBox1.SelectionStart = a_point
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim gs() As String = (From mt As Match In Regex.Matches(TextBox1.Text, "\d*[13579]\b") Select mt.Value).ToArray
TextBox2.Lines = gs
TextBox3.Text = ((From mt As String In gs Select CInt(mt)).ToArray).Sum
End Sub
End Class

Answer 2

用 pos 和 left$ 函数，for 语句

Answer 3

用 pos 和 left$ 函数，for 语句