求VB程序代码

来源：百度知道 编辑：UC知道 时间：2024/04/28 07:38:32
在textbox输入0到100数字，0到59点击command在frame里显示“不及格”，60到74显示‘及格’，75到79显示‘良’，80到100显示‘优’。哪位知道的发下代码了，谢谢了~
楼下发的显示有错，打入不管什么分数都是显示‘不及格’

private sub command_click()
select case cint(textbox)
case 0 to 59
frame.caption="不及格"
case 60 to 74
frame.caption="及格"
case 75 to 79
frame.caption="良"
case 80 to 100
frame.caption="优"
end select
end sub
我这里试了，没问题
可能是文本框控件的名字错了吧，你对照看一下
文本框用的是 textbox

顶楼上

顶~

Private Sub Command_Click()
If CInt(textbox.Text) >= 80 Then
Frame.Caption = "优"
ElseIf CInt(Form1.textbox.Text) >= 75 Then
Frame.Caption = "良"
ElseIf CInt(Form1.textbox.Text) >= 60 Then
Frame.Caption = "及格"
Else
Frame.Caption = "不及格"
End If
End Sub
修改了一下呵呵
可以直接copy过去用了测试通过