请问大佬 在文本框输入若干组字符串 有字母有数字
求这若干组里 有几组字符串里有a ?
我做的有局限性 有时候准有时候不准 求大佬指点一下
Public Class Form1
Dim T() As String
Dim D As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Prompt, Title As String
Dim i As Short
Prompt = "请输入"
D = InputBox("个数")
If D > 0 Then ReDim T(D - 1)
For i = 0 To UBound(T)
Title = i + 1
T(i) = InputBox(Prompt, Title)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim R, B As String
Dim i As Short
R = "字符串" & vbCrLf & vbCrLf
For i = 0 To UBound(T)
R = R & T(i) & vbCrLf
Next
Dim m As Integer = 0
Dim n As Integer
n = InStr(R, "a")
For n = 0 To UBound(T)
If n <> 0 Then
m = m + 1
End If
Next
B = vbCrLf & "含有a的字符串数为" & vbCrLf & vbCrLf & m
TextBox1.Text = R + B
End Sub
End Class

楼主，下午有个VB考试，6道题，有时间帮忙看看吗？最多10分钟的事，有偿。
可以的话我加你

到底是从文本框输入还是用InputBox输入？

“有时候准有时候不准”？
让我告诉你什么时候是准的：当所有的字符串只有一个不含字母a时，结果是对的，否则就不对
因为你这个代码实际上得到的结果是字符串的个数减1
应该把下面这几句改掉：
n = InStr(R, "a")
For n = 0 To UBound(T)
If n <> 0 Then
m = m + 1
End If
Next
改成这样：
For i = 0 To UBound(T)
n = InStr(T(i), "a")
If n <> 0 Then m = m + 1
Next