我今天看着vb基础教程的第二章第五节那里看到判断语句
我就模范了下看看能不能做
感觉现在能做出来了
但是好像输入100以上的值也能计算出
我就想问问在那里加个东西能控制a的值的范围？

if a>0 and a<60 then
    label1.caption="不及格"
else
    if a>=60 and a<＝90 then
        label1.caption="成绩优良"
    else
        if a>90 and a<=100 then
            label1.caption="成绩优秀"
        else
            label1.caption="输入错误"
        endif
    endif
endif

谢谢大哥的帮手了阿 但是我想问问能不能在整体定义a的值的时候直接给出范围  也就是在dim那里？

定义时我不知道能不能限定 但是可以在输入时做限定：
在TEXT1.LOSTFOCUS()里输入如下内容：
if isnumeric(text1.text) then
    if text1.text>100 or text1.text<0
        msgbox "输入错误，请重新输入！"
        text1.setfocus
    endif
else
    msgbox "请输入数字"
    text1.setfocus
endif

Dim a as integer

Private Sub Text_Change()
  a=Val(Text1.Text)    '防止输入字元或字组,否则值为0
End Sub

Private Sub Command1_Click()

  if (a>100) or (a<0) then
    msgbox "Input Error !"
  else
    +你那段
  End If

End Sub

因为你a声明为整数型,所以就算你输入小数,它也会自动帮你把小数后的去掉.
先卡掉字元和浮点数～再定出a值范围～

不过直接Val()输入" 10A "好像会得出10
所以还是先Trim()再IsNum...()再Val()可能比较保险～