读书人

请问一下

发布时间: 2012-03-06 20:47:55 作者: rapoo

请教一下



我TEXTBOX1里面有1,2,3,4
TEXTBOX2里面也有1,2,3,4

我要查找出相同的数字并统计它们有多少个相同,在TEXTBOX3里显示出来

[解决办法]
用String.Split方法来做循环
[解决办法]
Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(), b() As String
Dim i, j, count As Int32
a = TextBox1.Text.Split( ", ")
b = TextBox2.Text.Split( ", ")
For i = 0 To a.GetUpperBound(0)
For j = 0 To b.GetUpperBound(0)
If a(i) = b(j) Then
count += 1
Exit For
End If
Next
Next
TextBox3.Text = count
End Sub
End Class

读书人网 >VB Dotnet

热点推荐