cls
input "請輸入一數值",mynumber%
if (mynumber% mod 2) then
  print "你輸入了奇數";
end if
print mynumber%

• 此一程式中，如果使用者輸入一偶數，被2除後，所得值為0。在basic中視為假，則if判斷式不成立，程式直接執行end if後的敘述。
• 如果輸入奇數，所得值為1，在basic中視為真，則判斷式成立，執行if敘述內的指令，則訊息便顯示。而離開if敘述後程式繼續執行，印出輸入數值與2整數除後的答案

cls
input "請輸入一數值",mynumber%
if (mynumber% mod 2) then
  print "你輸入了奇數"
else
  print "你輸入了偶數"
end if
print mynumber%

• 在此段程式中，則利用了else指令。當if判斷式不成立時，程式便直接進入else後段的程序執行。
• 利用這種特色，可以建立所謂的巢狀判斷。利用不同的判斷式，依序建立判斷條件，逐層過濾程式

cls
input "你的成績",score%
select case score%
case 100
  print "Best"
case is >90
  print "Good"
case 60 to 89
  print "so so"
case is <60
  print "bad"
end select

• 本程式輸入一數值，然後利用select 判斷式進行判斷。如果找到第一個符合的條件式後，便執行該條件式後的第一個敘述。該敘述執行完後，便跳到end select後繼續執行後續的程式
• select case 後接條件式
• case後接的是條件式的結果，其格式有三種：

  	特定值
  	範圍值 to 範圍值
  	is 關係式

for x=1 to 9
  for y=1 to 9
    print x;"*";y;"=";x*y
  next y
next x
          

• 本程式乃是一99乘法表
• 利用迴圈代表重複執行的次數
• 迴圈計數器的增值未標記時，表示每一迴圈增加1

s=0
for x=1 to 5
  s=x+s
  x=x+1
next
print s

• 本程式目的在顯示迴圈計數器的變化
• 首先x=1，經第一次迴圈計算s=1，x=2
• 因為剛才迴圈計數器x已經變為2，所以第二次進入迴圈時x便由2成為3，此時s=4，而x=4
• 進入第三次迴圈時，x由4變為5，此時s=9，而x=6
• 進入第四次迴圈時x=6已經大於迴圈的上限值，所以迴圈結束

cls
input "輸入累加目標值(a%):";a%
s=0:x=0
do while x<=a%
  s=s+x
  x=x+1
loop
print s

• 本範例屬於前置式迴圈
• 使用者輸入一固定值，程式先設定兩個變數，變數s作為累加計算，變數x作為與變數a相比較值，測試迴圈結束的條件是否滿足
• 本迴圈進入前先比較測試條件是否滿足，如果滿足測試條件，則迴圈繼續執行；如果測試條件不滿足，則離開迴圈
• 使用者如果輸入負值，則滿足測試條件x<=a%，迴圈不執行，直接印出結果。即本迴圈至少執行0次

cls
input "輸入累加目標值(a%):";a%
s=0:x=0
do 
  s=s+x
  x=x+1
loop while x<=a%
print s

• 本範例屬於後置式迴圈
• 使用者輸入一固定值，程式先設定兩個變數，變數s作為累加計算，變數x作為與變數a相比較值，測試迴圈結束的條件是否滿足
• 本程式先進入迴圈執行，而後比較測試條件是否滿足。如果測試條件滿足，則繼續迴圈執行；否則結束迴圈
• 本迴圈至少執行1次

cls
input "輸入累加目標值(a%):";a%
s=0:x=0
do 
  s=s+x
  x=x+1
  if x>a% then
     exit do
  end if
loop
print s

• 本範例屬於永久迴圈
• 結束迴圈的條件判斷式寫在迴圈中，如果滿足該判斷式，則會以exit do離開迴圈
• 為避免形成無窮迴圈，必須注意加注離開迴圈的條件式。
• 本迴圈一定執行1次

cls
num=65
while num < 91
  print "num=";num;"='";chr$(num);"'"
  num=num+1
wend          

• 事先給定一變數值num=65
• 迴圈的測試條件為num<91
• 在迴圈中連續執行將相對應的數碼以chr$()函數印出該字元，並將num值每一迴圈+1
• 當num=91時便結束迴圈

cls
bincode$=""
input "請輸入轉變值",source
while source <> 0
  remain=source mod 2
  source=source \ 2
  bincode$=str$(remain)+bincode$
wend
print bincode$

• 本式乃是將使用者輸入的值轉變為2進位值
• 事先設定最終顯示的變數內容為空字串
• 利用環圈控制，當所轉換的值變為0才結束環圈
• 先計算所的的餘數remain
• 再計算轉換後的商數
• 將餘數轉變為字串後與逐層加入最終顯示字串

'九九乘法表
FOR x = 1 TO 9
	FOR y = 1 TO 9
	    PRINT x; "*"; y; "="; x * y
    NEXT y
NEXT x

• 本程式執行結果，將九九乘法表以直列方式，顯示出來
• 想一想：如何把它變成橫式列印（提示print using）

'繪出圖形
 FOR x = 1 TO 9
     FOR y = 1 TO x
         PRINT "*";
     NEXT
     PRINT
 NEXT

• 重複列印字元圖形
• 想一想：如何利用函數string$把要列印的字元顯示出來

'計算偶數總合
sum = 0
FOR x = 1 TO 1000
    IF not(x MOD 2) THEN
    	sum = sum + x
    END IF
NEXT
PRINT sum

• 利用迴圈讀取資料，計算該資料是否為偶數。如果該數據為偶數則經過mod運算後必為0，又經過not運算，便會成為1，代表true。IF後的關係式如果為true，便會執行then後的運算式，便進行加總符合條件的數據
• 想一想：如果計算奇數，該如何處理

'計算所輸入值的階層值
INPUT m.x
sum = 1
FOR i = 1 TO m.x
  sum = sum * i
NEXT
PRINT sum

• 所謂階層值，便是計算數據的連乘積，利用迴圈一直計算到迴圈結束的終止值

'計算輸入3個值，比較大小
OPTION BASE 1
PRINT "Input 3 Numbers"
DIM a(3)
FOR x = 1 TO 3
    INPUT a(x)
NEXT
FOR i = 2 TO 1 STEP -1
   FOR j = 1 TO i 
       IF a(j) > a(j + 1) THEN
          tmp = a(i)
          a(i) = a(i + 1)
          a(i + 1) = tmp
       END IF
NEXT j,i
FOR x = 1 TO 3
    IF x = 3 THEN
      PRINT a(x)
    ELSE
      PRINT a(x); "<";
    END IF
NEXT

• 程式構想：設計一個陣列存放所輸入的值，然後把該陣列排序，排序後在依據排序的結果，把各個陣列值以及其間的關係子顯示出來
• 為防止陣列觀念誤差，所以宣告陣列的註標由1開始
• 利用氣泡排序的方法，以陣列中各元素兩兩比較，把值比較大的元素，排到陣列尾端
• 想一想：如果利用選擇排序法，則程式如何撰寫呢？

'成績分級
INPUT "Please Input score ?", score%
SELECT CASE score%
       CASE IS >= 90
           PRINT "Score is "; score%; "degree A"
       CASE IS >= 80
           PRINT "Score is "; score%; "degree B"
       CASE IS >= 70
           PRINT "Score is "; score%; "degree C"
       CASE IS >= 60
           PRINT "Score is "; score%; "degree D"
       CASE ELSE
           PRINT "Score is "; score%; "degree E"
END SELECT

RANDOMIZE 27　(亂數種子最好是質數)

DEF FNSQR(X)=2^X

PRINT FNSQR(2)
	  

• 單行函數前方一訂要用DEF FN函數名 為函數命名

DEF FNCASE(X)
	SELECT CASE X
		CASE IS >0
		  FNCASE=1
		CASE IS 0
		  FNCASE=0
		CASE <0
		  FNCASE=-1
	END SELECT
END DEF
	  

• 敘述區段式的自訂函數，必須以END DEF為函數結束