懂VB编程语言的请进来一下，帮帮忙啦！！！紧急！！！

来源：百度知道 编辑：UC知道 时间：2024/06/23 07:37:06
1.分别统计输入文本框中有几个是奇数、奇数和、有几个偶数、偶数和，并将结果显示在标签中。
2.输入文本框中若干字符，按Eterer键后，统计有多少个元音字母（元音字母不分大小写为：a、i、o、e、u），并在标签中显示结果。
这两道题的编程语言怎么写啊？各位帮帮忙哦，谢谢！

Private Sub Command1_Click()
Dim a As String
Dim b, i, ssum, ddum, si, di As Integer
a = Text1.Text
si = 0
di = 0
ssum = 0
dsum = 0

For i = 1 To Len(a)
b = Val(Mid(a, i, 1))
If b Mod 2 = 0 Then
di = di + 1
dsum = dsum + b
Else
si = si + 1
ssum = ssum + b
End If
Next
Label1.Caption = "偶数有" & di & "个，偶数和为" & dsum & "奇数有" & si & "个，奇数和为" & ssum

End Sub

第一个完成，我再写第二个。
你先测验第一个吧，OK了

Private Sub Form_Load()
Dim y, z As Integer
Dim x, stra As String
z = 0
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
For y = 1 To Len(Text2.Text)
x = Mid(Text2.Text, y, 1)
If x = "a" Or x = "i" Or x = "o" Or x = "e" Or x = "u" Or x = "A" Or x = "I" Or x =