第一题：
CLS
FOR i = 1 TO 3
FOR j = 1 TO i
PRINT i; "*"; j; "="; i * j,
NEXT j
PRINT
NEXT i
END

怎么第2个题目没人会做吗！帮帮忙啊！

input g$,h,n
select case n
case is>=90
print g$,h,n,"优"
case is >=80
print g$,h,n,"良"
case is>=70
print g$,h,n,"中"
case is >=60
print g$,h,n,"及格"
case else 
print g$,h,n,"不及格"
end select

第二题：
CLS
DIM A(6, 30)
FOR SU = 1 TO 6
PRINT "SUBJECT"
INPUT G$
IF SU = 1 THEN G1$ = G$
IF SU = 2 THEN G2$ = G$
IF SU = 3 THEN G3$ = G$
IF SU = 4 THEN G4$ = G$
IF SU = 5 THEN G5$ = G$
IF SU = 6 THEN G6$ = G$
FOR SC = 1 TO 30
PRINT "No."; SC
INPUT N
A(SU, SC) = N
NEXT SC
PRINT
NEXT SU
FOR SU = 1 TO 6
IF SU = 1 THEN PRINT G1$
IF SU = 2 THEN PRINT G2$
IF SU = 3 THEN PRINT G3$
IF SU = 4 THEN PRINT G4$
IF SU = 5 THEN PRINT G5$
IF SU = 6 THEN PRINT G6$
FOR SC = 1 TO 30
SELECT CASE A(SU, SC)
CASE IS >= 90
PRINT SC; A(SU, SC); "EXCE",
CASE IS >= 80
PRINT SC; A(SU, SC); "WELL",
CASE IS >= 70
PRINT SC; A(SU, SC); "MIDD",
CASE IS >= 60
PRINT SC; A(SU, SC); "PASS",
CASE ELSE
PRINT SC; A(SU, SC); "FAIL",
END SELECT
NEXT SC
PRINT
NEXT SU
END

一、打印三三乘法口诀表：
1X1=1
2X1=2  2X2=4  
3X1=3  3X2=6   3X3=9
我给你打9*9的啦~
CLS
FOR I=1 TO 9
  FOR J=1 TO I
    ? I,;"*";J;"=";I*J;
  NEXT J
  ?
NEXT I

二、某班有30个学生，每学期学习6门课程，写程序如下：
1、从键盘上输入课程名称、并能同时输入每个学生的学号和考试成绩
2、分课程输出学生的考试成绩一缆表，成绩统计表（按照90~100优、80~89良、70~79中、60~69及格、0~59不及格）
CLS
DIM S$(6),A(30,6),B(5)
FOR I=1 TO 6
  INPUT S$(I)
NEXT I
FOR I=1 TO 30
  FOR J=0 TO 6
    INPUT A(I,J) 
  NEXT J
NEXT I
? " ",
FOR I=1 TO 6
  ? S$(I),
NEXT I
?
FOR I=1 TO 30
  FOR J=0 TO 5
    ? USING"###";A(I,J),
  NEXT J
  ?
NEXT I 
?
FOR I=1 TO 30
 SELECT EASE A(I,J)
   CASE A(I,J)>=90 
      B(1)=B(1)+1
   CASE A(I,J)>=80 
      B(2)=B(2)+1
   CASE A(I,J)>=70
      B(3)=B(3)+1
   CASE A(I,J)>=60
      B(4)=B(4)+1
   CASE A(I,J)<=59 
      B(5)=B(5)+1
 END SELECT
NEXT I
FOR I=1 TO 5
  SELECT EASE I
    CASE 1 
      ?"优";B(I)
    CASE 2
      ?"良:";B(I)
    CASE 3
      ?"中:";B(I)
    CASE 4
      ? "差:";B(I)
    CASE 5
      ? "不及格:";B(I)
   END IF
NEXT I
END