Примеры программ на языке QBASIC

DECLARE FUNCTION MaxDay! (Y%, M%)
REM Определение количества дней в месяце
DATA 31,28,31,30,31,30,31,31,30,31,30,31
DIM SHARED DAYS(1 TO 12)
FOR J = 1 TO 12: READ DAYS(J): NEXT J
CLS
INPUT "Задайте год : ", Y%
INPUT "Задайте месяц : ", M%
PRINT "Число дней в этом месяце = "; MaxDay(Y%, M%)
END

FUNCTION MaxDay (Y%, M%)
  MaxDay = DAYS(M%)
  IF M% <> 2 THEN EXIT FUNCTION
  IF (Y% MOD 400 = 0) OR ((Y% MOD 4 = 0) AND (Y% MOD 100 <> 0)) THEN
      MaxDay = 29
  END IF
END FUNCTION