爲什麼我在VB 6中的代碼不工作？

Question

我需要一個代碼，當你鍵入（A，I，O，U，E）數字符..我寫了這個，但它不工作..請幫助我..對不起我的英語不好

n = Val(InputBox("enter a number")) 
For i = 1 To Len(n) 
     k = Mid(n, i, 1) 
     k = LCase k 
    Select Case k 
      Case "a""i""o""u""e": t = t + 1 

    End Select 

Next 
Print t 

Answer 1

val()將輸入值轉換爲數字，所以絕不會有任何元音..的情況下狀態取出和糾正缺少逗號：

Dim n As String, t As Long 
n = InputBox("enter a number") 

For i = 1 To Len(n) 
    Select Case LCase$(Mid$(n, i, 1)) 
     Case "a", "i", "o", "u", "e": t = t + 1 
    End Select 
Next 
Print t 

Answer 2

您的文字串a"i"o"u"e，這是檢查顯然不是你的意圖。

你可能打算：

n = Val(InputBox("enter a number")) 
For i = 1 To Len(n) 
    k = Mid(n, i, 1) 
    k = LCase k 
    Select Case k 
      Case "a", "i", "o", "u", "e": t = t + 1 
    End Select 

Next 
Print t 

您可以read here上Case語句是如何工作的。