【正确答案】【操作步骤】
   步骤1：打开本题工程文件。
   步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
   参考答案(字体加粗部分是需考生填入的内容)
   Dim n As Integer
   Private Sub Text1_Change()
   Dim ch As String
   ch=Right$(Text1,1) '通过Right函数从Text1中取1位
   If ch＞="A" And ch＜="Z" Then '判断ch的范围是否在A～Z中
   Label1.Caption=Lcase(ch) '将大写的ch转换为小写
   n=n+1 '累加大写字符个数
   Else If ch＞="a" And ch＜="z" Then
   '判断ch是否为小写字母
   Label1.Caption=Ucase(ch)
   '将ch转换为大写
   n=n+1 '累加小写字符个数
   Else
   Label1.Caption=ch '当不在字母范围内，则直接赋值显示
   End If
   Label2.Caption=n'Label2中显示满足条件的个数
   End Sub
   步骤3：调试并运行程序，关闭程序后按题目要求存盘。
   【易错提示】Lcase()函数为大写字母转换成小写字母，Ucase()函数小写字母将转换成大写字母，在做题的时候要注意区别。
   

【答案解析】[考点] 本题考点有：Right()函数，Lcase()函数，Ucase()函数，标签的Caption属性以及If判断语句。
通过Right()函数获取输入的字符，通过Lease()函数和Ucase()函数实现字母大小写的转换。