case的用法

显示全部楼层 · 2011-2-8 13:14:40

英语中

千问 · 2011-2-8 13:14:40

Private Sub Command1_Click() Dim cj As Single cj = val(Text1.text)Select Case cj Case is0Text2.Text = "成绩不合格" Text1.Text = "" Text1.setfocusCase is>60,is70,is<79Text2.Text = "成绩中等" Text1.Text = ""Text1.setfocus

千问 · 2011-2-8 13:14:40

是什么语言？