字串分離與奇偶數分離程式 - 伊莉討論區

[/code]
'**************************************************************
'字串分離與奇偶數分離
'**************************************************************
Public Class Form1
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim instring As String
instring = rxdmix.Text
Dim splittxt() = instring.Split(",")
Dim i0 = splittxt.GetLowerBound(0)
Dim i1 = splittxt.GetUpperBound(0)
Dim j = 0, k = 1
mixnumber_i0.Text = i0
mixnumber_i1.Text = i1
Do
j += 2
rxdeven.Text &= j & vbCrLf
rxdcounter.Text &= splittxt(j)
Loop While j <= i1 - 2
evennumber.Text = j
rxdvolt.Text = splittxt(1)
Do
k += 2
rxdodd.Text &= k & vbCrLf
rxdvolt.Text &= splittxt(k)
Loop While k <= i1 - 2
oddnumber.Text = k
End Sub
End Class

複製代碼