level 9
不是太长的话…循环,一个字母一个字母挑出来验证,元音字母就5个吧…?判断一下就好。大小写的话我记得有方法可以转换。然后搞个变量存一下就好了。
但是这个问题涉及到英语,英语…我学的渣不知道那样简单的统计是否合理。。。
——来自 诺基亚 Lumia 928
2016年05月06日 06点05分
2
level 9
刚才用的手机,不好码字代码如下,比较笨,而且只是单纯计算aeiou的数量
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim aeioucount As Integer : Dim i, j As Integer : Dim s As String = "" : Dim sasc As Integer
s = InputBox("come on")
If s <> "" Then
For i = 1 To Strings.Len(s)
sasc = Asc(Strings.Right(Strings.Left(s, i), 1).ToLower)
If sasc >= 97 And sasc <= 122 Then
j += 1
If Strings.Right(Strings.Left(s, i), 1).ToLower = "a" Or Strings.Right(Strings.Left(s, i), 1).ToLower = "e" Or Strings.Right(Strings.Left(s, i), 1).ToLower = "i" Or Strings.Right(Strings.Left(s, i), 1).ToLower = "o" Or Strings.Right(Strings.Left(s, i), 1).ToLower = "u" Then
aeioucount += 1
End If
End If
Next
MsgBox("元音字母有:" & aeioucount.ToString & "个,其它字母有" & (j - aeioucount).ToString & "个。")
End If
End Sub
2016年05月06日 07点05分
4
明显3楼的更高端。我这个业余了些
2016年05月06日 07点05分
回复
wxtlovezch
:实际上我也是业余的。
2016年05月06日 07点05分
@企鹅列兵 ![[勉强]](/static/emoticons/u52c9u5f3a.png)
初中看的basic黑白屏的,就对for和if亲切。。。。
2016年05月06日 08点05分