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