我正在教科書中工作,他們希望我使用.length,.trim,.remove,.insert,.indexof,.substring,like,is not,and some other。我有這個程序工作直到while循環,它凍結。 是否有另一個運算符查看可以用於我正在嘗試執行的模式(或者有沒有一種方法可以用來執行此操作)?如果是這樣,我該如何使用它?當循環處理時,程序凍結
Private Sub btnConvert_Click(sender As Object, e As EventArgs) Handles btnConvert.Click
Dim strWord As String
strWord = txtBefore.Text
If strWord.ToUpper.Substring(0, 1) Like "[A,E,I,O,U]" Then
strWord = strWord.Insert(strWord.Length, "-way")
ElseIf strWord.ToUpper.Contains("A") Or
strWord.ToUpper.Contains("E") Or
strWord.ToUpper.Contains("I") Or
strWord.ToUpper.Contains("O") Or
strWord.ToUpper.Contains("U") Then
strWord = strWord.Insert(strWord.Length, "-")
'works up until the while loop
'program freezes no error
While strWord.ToUpper.Substring(0, 1) IsNot "[A,E,I,O,U,Y]"
Dim strTemp As String
strTemp = strWord.Substring(0, 1)
strWord = strWord.Remove(0, 1)
strWord = strWord.Insert(strWord.Length, strTemp)
End While
strWord = strWord.Insert(strWord.Length, "ay")
End If
'txtAfter.Text = strWord
End Sub
你調試了嗎? – OneFineDay
無限循環? – OneFineDay
多數民衆贊成在即時通訊思維,只是試過調試它仍然攤位 – 0000