dibawah ini adalah contoh Program sederhana mancari Luas Persegi pada Qbasic semoga bermanfaat untuk semuanya
CLS
PRINT "===================================="
PRINT "PROGRAM MENCARI LUAS PERSEGI"
PRINT "===================================="
PRINT " "
INPUT "MASUKKAN SISI"; S
LUAS = S ^ 2
PRINT "LUAS PERSEGI PERSEGI ADALAH ="; LUAS
END
PRINT "===================================="
PRINT "PROGRAM MENCARI LUAS PERSEGI"
PRINT "===================================="
PRINT " "
INPUT "MASUKKAN SISI"; S
LUAS = S ^ 2
PRINT "LUAS PERSEGI PERSEGI ADALAH ="; LUAS
END