用Select case 编写程序完成输入一学生成绩,评定其等级,在窗体上输出。

Select (case when fen >= 90 and fen <= 100 then '优秀'

when fen >= 80 and fen <= 89 then '良好'

when fen >= 70 and fen <= 79 then '中等'

when fen >= 60 and fen <= 69 then '及格'

when fen <= 59 then '不合格' end ) as [水平]

from tablename

Private Sub Command1_Click()

x = Val(Text1Text)

Select Case x

Case Is <= 3

y = 8

Case Is > 3, Is >= 20

y = 15 (x - 3) + 8

Case Is > 20

y = 2 (x - 20) + 35

End Select

Text2Text = y

End Sub

select xh,xm,csrq from xs into cursor t3

应该是

select xh,xm,csrq from xs into cursor tS

吧？

close tables all --关闭所有打开的表

select 3--选择区号3

use js--三3区打开JS表

select xh,xm,csrq from xs into cursor ts--生成TS游标

select("xs")--显示XS区号，应为1

select("ts")--显示TS区号，应为2

select(0)--显示当前工作区号，应为2

显示结果为

1 2 2

以上就是关于用Select case 编写程序完成输入一学生成绩,评定其等级,在窗体上输出。全部的内容，包括:用Select case 编写程序完成输入一学生成绩,评定其等级,在窗体上输出。、编写VB程序，用select case 语言来实现text1中输入里程x，计算车费y,显示在text2中、执行以下程序，3个select()函数的输出值分别是 （需详细每一步对应工作区号）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！