1. (2021高二上·临河月考) 输入一个成绩， 若大等90显示“优”，否则若大等80显示“良”，否则若大等70显示“一般”，否则若大等60显示“及格”，否则显示“不及格”

PRIVATESUB FORM_CLICK( )

    DIM X AS SINGLE

    X=VAL（INPUTBOX（“请输入一个成绩”））

    SELECT CASE 

        CASE 

            PRINT “优”

        CASE 

            PRINT “良”

        CASE

            PRINT “一般”

        CASE

            PRINT “及格”

        CASE 

            PRINT “不及格”

   

END SUB