填空题 [程序5.1说明] 下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。 [Visual Basic代码] Private Sub Form Load () Dim x As String*1 X={{U}} (1) {{/U}} (“请输入单个字符”，“字符”) Select Case UCase ({{U}} (2) {{/U}}) Case {{U}}(3) {{/U}}。 Print X+“是字母字符” Case {{U}}(4) {{/U}} Print X+ “是数字字符” Case Else Print X+“是其他字符” End Select [程序5.2说明] 在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。 [Visual Basic代码] Private Sub Fom_Load () Timer1.Interval=1000 EndSub Private Sub Timer1_ timer() {{U}}(5) {{/U}} EndSub