为什么我在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语句是如何工作的。