求教怎么写这个VB

Question

求教怎么写这个VB：
添加一个认证过程到 getName
Name 不得为空
添加一个认证过程到 getGrade
Grade 必须是数字
Grade 必须大于等于 0
Grade 必须小于等于 100

Answer 1

添加2个textbox，名称分别为name和grade，再添加一个command
双击command，在这个过程中添加如下代码''name的认证
if len(name.text)=0 then
      msgbox "name不能为空!"
      exit sub
else
      msgbox "name=" & name.text 
endif
''grade的认证
if isnumeric(grade.text) then
    if val(grade.text)>=0 and val(grade.text)<=100 then
         msgbox "grade=" & grade.text
    else
         msgbox "grade必须在0~100之间!"
    endif
else
    msgbox "grade必须为数字!"
endif大概的就这样...........你看着改改