我不是for循环的最佳人选，但据我了解，循环应继续在“ StupidString”中运行尽可能多的字符。在下面的代码中，我认为它应该运行的方式与运行方式完全不同。我的查看方式If语句（“ A”）应该运行3次。它的运行方式是If语句（“ A”）仅运行一次。TextBox1.Text显示5。如果有人可以告诉我我所缺少的内容，我将不胜感激。我敢肯定这是愚蠢的。谢谢
Dim len As Integer
Dim i As Integer
Dim key As String
Dim StupidString As String = "ACCAA"
len = Microsoft.VisualBasic.Len(StupidString)
For i = 1 To len
key = Microsoft.VisualBasic.Mid(StupidString, i, 1)
TextBox1.Text = key
If key = "A" Then
My.Computer.Audio.Play("Local audio file")
ElseIf key = "B" Then
My.Computer.Audio.Play("Local audio file")
End If
Next
My.Computer.Audio.Play开始在后台播放声音，而无需等待声音结束。如果已经在播放声音，则将其停止并开始新的声音。
因为您的For循环执行非常快，所以它A几乎同时发出三声声音。最终结果是您听到它播放了一次（最后一个预定时间）。
如果要播放声音三次，请指定第二个参数：
My.Computer.Audio.Play("Local audio file", AudioPlayMode.WaitToComplete)
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句