vb字符串判断程序,如果相同则输出结果,否则判断下一个字符串是否相同...
发布网友
发布时间:2024-04-08 23:52
我来回答
共1个回答
热心网友
时间:2024-04-25 07:33
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '定义字符串数组
Dim strs() As String = {"hello", "world", "hello", "vb"} '循环比较字符串
For i As Integer = 0 To UBound(strs) For j As Integer = i + 1 To UBound(strs) If strs(i) = strs(j) Then
MessageBox.Show("第" & i + 1 & "和第" & j + 1 & "个字符串相等:" & strs(i)) Exit For
End If
Next
NextEnd Sub