填空题 [程序5.1说明]
下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。
[Visual Basic代码]
Private Sub Form Load ()
Dim x As String*1
X= (1) (“请输入单个字符”，“字符”)
Select Case UCase ( (2) )
Case (3) 。
Print X+“是字母字符”
Case (4)
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() (5)
EndSub