请求高手注解~~~~~~~~~~~~~~~~~

Private Sub form_click()        'Form单击事件

 Dim msg, useinput              '定义变量msg,useinput
 msg = "pelase enter a letter or number from 0 to 9."  '赋值给msg
 useinput = InputBox(msg)        '用输入框赋值InputBox给useinput,字符串msg为InputBox的提示符参数

 If Not IsNumeric(useinput) Then    '如果不为数字,那么    IsNumeric 判断useinput是否为数字
 
   If Len(useinput) <> 0 Then   '判断useinput的字符长度是否为零
   
    Select Case Asc(useinput)   '设置Select选择 将useinput转化成Ascii码
    
    
    Case 65 To 90    '大写字母范围
       msg = "you entered the uppercase letter"   '你输入了一个大写字母
       msg = msg & useinput & "."                 '设置消息参数msg,下同 Chr(Asc(useinput))还原字母
     
     
    Case 97 To 122   '小写字母范围
        msg = "you entered the lowercase letter"  '你输入了一个小写字母
        msg = msg & Chr(Asc(useinput)) & "."


     Case Else    '为其余值时
        msg = "you did not enter a letter or a number." '你输入的不是字母或数字
   
     End Select '结束select
     
    End If
    
Else

Select Case bdb1(useinput)        '设置Select 调用判断奇偶函数bdb1 参数useinput
                                  'bdb1为自定义函数

   casse 1, 3, 5, 7, 9
       msg = useinput & "is an odd number." '设置消息参数msg
   
   
   Case 0, 2, 4, 6, 8
      msg = useinput & "is an even number."


   Case Else
      msg = "you entered a number outside"
      msg = msg & "the requested range."
      
End Select

End If

MsgBox msg         '发出消息

End Sub

非常感谢你的帮忙！！！！！2楼~~~~~~~~~~~~