Q1：编写程序，根据用户在文本框Text1中输入的文本，统计其中数字(0~9)中奇数个偶数的个数、英文字
Private Sub 主窗体加载(sender As Object, e As EventArgs) Handles MyBase.Load
lbl奇数框.Text = "奇数数量："
lbl偶数框.Text = "偶数数量："
lbl字母框.Text = "字母数量："
lbl其他字符框.Text = "其他字符数量："
End Sub
Private Sub 文本框文本更改(sender As Object, e As EventArgs) Handles txt文本框.TextChanged
Dim int奇数数 As Integer
Dim int偶数数 As Integer
Dim int大写字母数 As Integer
Dim int小写字母数 As Integer
Dim int其他字母数 As Integer
Dim int其他字符数 As Integer
For Each 字符 As Char In txt文本框.Text
If IsNumeric(字符) Then
If Val(字符) Mod 2 = 0 Then
int偶数数 += 1、Else
int奇数数 += 1、End If
ElseIf Char.IsLetter(字符) Then
If Char.IsUpper(字符) Then
int大写字母数 += 1、ElseIf Char.IsLower(字符) Then
int小写字母数 += 1、Else
int其他字母数 += 1、End If
Else
int其他字符数 += 1、End If
Next
lbl奇数框.Text = "奇数数量：" & int奇数数
lbl偶数框.Text = "偶数数量：" & int偶数数
lbl字母框.Text = "字母数量：" & "大写－" & int大写字母数 & "，小写－" & int小写字母数 & "，其他－" & int其他字母数
lbl其他字符框.Text = "其他字符数量：" & int其他字符数
End Sub
备注：这是 .NET 的 2015 版本。其他字母的意思是各种文字，包括汉字等在内的没有大小写的概念的字符（.NET 把它理解为字母）。其他字符就是各种标点符号啥的
Www.BAzhIShi..coM
Q2：编写程序，根据用户在文本框Text1中输入的文本，统计其中数字(0~9)中奇数个偶数的个数、英文字知道
vb还是VB.NET，这两种方式实现有很大差别，
Q3：vb如何在文本框text1中输入月日数字后，回车即在text1中自动生成‘年-月-日’格式（其中年要自动生成）
看你文本框是怎么输入的，如果是 20110501这种格式的话，请在text的keydown事件中写上dim a as stringif keyascii=13 then a=text1text1=left(a,4) & "年" & mid(a,4,2) & "月" & right(a,2) & "日"end if
Q4：在文本框Text1中输入数字34，在文本框Text2中输入数字16，执行下列语句，只有（ ） 可使文本框Text3中显示50。
两道问题都选择C
