【正确答案】正确答案：[操作步骤] 步骤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＜="2"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：调试并运行程序，关闭程序后按题目要求存盘。