99乘法表


交作業須知與計分

完成圖

  1. 作業要求:設計一程式可以印出99乘法表,1-100的數、奇數、偶數及總和。

  2. 改Form 名稱(5分)顯示作者之資料(5分)
     
  3. 程式完成後,儲存原始檔名80AXX-N.frm,並在VB內製作執行檔,檔名80AXX-N.exe(N為作業代號)
     
  4. 須先行測試無錯誤,再將以上兩檔案上傳交作業給老師!
     
  5. 原始程式碼(~.frm   自己傳到FTP內保存備份。

 

命令說明:

  1. 清除畫面  : cls
  2. 印出空一行: print
  3. 連著印:print  ~ ;  (加分號)
  4. 印出文字: print "~~~~"(前後加雙引號)
  5. 印出變數的值: print  i
  6. 印出變數的相乘的積: print  i*j
  7. 迴圈之使用

    For i = 初值  To  終值  step  間格

    .......  ( i  >= 初值  i< = 終值 條件成立時執行的敘述)

    Next i
     

  8. 判斷每5個印同一行  ==>   除以5的餘數   N mod 5

    if i mod 5  = 0  then

    print     '印一行 空行

    end if
     

  9. 印一個空白字: print  Spc(1)

     If  i  < 10  Then
    Print Spc(2);
    Else
    Print Spc(1);
    End If

     

第一次作業練習: 印出自己的名字1xx(xx表座號)遍,每10遍印一行,並印出 i 最後的值

第二次作業練習: 印出1到100的數,每10遍印一行,最後印出總和

 

(General) 之宣告

Dim i, j,sum     '宣告變數 i, j,sum
 

●執行鈕1                '利用迴圈 印出 1到 10 及 名字

For i = 1 To 10  step 1     '迴圈開始           

Print i;"lin";                   ' 印出 1到 10 及 名字

Next i                          '迴圈折返點

 

●執行2

Sum=0                                  'sum為總和之代號 設初值為0
For i = 1 To  10    
step 1          '變數i之值的範圍

  Print i;                                '印出 i 之值
  Sum =   ...                           '累加

Next i                                  '下一個  i 迴圈折返點

print "1到10之總和=" ;  sum         '印出提示文字及總和之值

 

●執行3   99乘法表之參考相似例子

For = 1 To   ...           '迴圈開始

     For i = 1 To  ...        '迴圈開始   '變數i之值的範圍

print j; ........            '印出 變數j, 變數i 等號= 及 j乘i之積

Next i                      '迴圈迴圈折返點'下一個  i

Next j                            '迴圈迴圈折返點 '下一個  j  
 

●結束鈕

end

 

交作業:每次繳交~.exe ~.frm兩個案,另需自行備份到自己FTP的位置內

 


---------------------補充說明---------------------

例二:連續數之總和

sum=0
For i = 1 To N
    Sum = Sum + i
Next i

print sum

●輸出訊息之函數 MsgBox

MsgBox ("輸入錯誤!請輸入正數")    '顯示錯誤訊息