应用Excel之MacroVBA制作互动数学练习初阶.DOC

應用Excel之Macro及VBA製作互動數學練習 (初階) (A) Excel工作表的函數 A.1.1 round( ) (四捨五入) 例： round(4.56, 0) --- 結果是： round(4.56, 1) --- 結果是： 在A1儲存格輸入3.456789，再在B1儲存格輸入 =round ( a1 , 2 )， 結果是： A.1.2 rounddown( ) (截去後面數值) 例： rounddown ( 4.56 , 0 ) --- 結果是： rounddown ( 4.56 , 1 ) --- 結果是： 在A1儲存格輸入3.456789，再在C1儲存格輸入 =rounddown ( a1 , 2 )， 結果是： A.1.3 rand( ) (隨機數)：產生一個九個位的小數 --- 0.000000001 ~ 0.999999999 在A1儲存格輸入 =rand()後，看看結果； 再在B1儲存格輸入 =round(a1,1)，在C1儲存格輸入 =round(a1,2)， 在D1儲存格輸入 =round(a1*9,1)，在E1儲存格輸入 =rounddown(9*a1,1)，看看結果。 (各人的結果均不同，每次的結果亦不同。) A.1.4 round( )、 rounddown( )及 rand( ) round(10*rand(),0) 0 , 1 , 2 , … , 10 rounddown(rand()*10,0) 0 , 1 , 2 , … , 9 round(rand()*9,0)+1 1 , 2 , … , 10 rounddown(9*rand(),0)+1 1 , 2 , … , 9 2*(round(10*rand(),0)+1) 2, 4, 6, … , 18, 22 2*(rounddown(10*rand(),0)+1) 2, 4, 6, … , 18, 20 round(rand()*20,0)-9 -9, -8, …,0, ..., 9,11 rounddown(rand()*20,0)-9 -9, -8, …,0, ..., 9, 10 round(10*rand(),1) rounddown(10*rand(),1) round(rand()*99,0) rounddown(rand()*99,1) A.1.5 mod( ) (找出餘數) 語法： mod(n1, n2) --- 結果是：n1除以n2的餘數 例： mod ( 4, 3 ) --- 結果是： mod ( 14, 5 ) --- 結果是： 在A1儲存格輸入10，在B1儲存格輸入 7， 再在C1儲存格輸入 =mod(A1,B1)，結果是： A.2 練習 A.2.1 : 在C4及C5儲存格分別輸入 =round(9*rand(),0)+1或 =rounddown(9*rand(),0)+1； A.2.2 : 嘗試在D2 (或任何儲存格) 輸入任意數值，看看C4及C5的變化。 A.2.3 : 在C7儲存格分別輸入 =round(99*rand(),0)； A.2.4 : 嘗試在E7 (或任何儲存格) 輸入 =mod(C7, 3)，看看C7及E7的變化。 A.3 討論 A.3.1 : 若要製作一位數的四則運算題，最好是用哪一個函數的語法？ 出現數字： A.3.2 : 若要製作兩位數及三位數的四則運算題，最好用是哪些函數的語法？ / 出現數字： / (B) Excel工作表的條件 B.1 IF(condition, if true, otherwise) 例如：B.1.1 在B4輸入： 3 B.1.2 在C4輸入： + B.1.3 在D4輸入： 5 B.1.4 在E4輸入： = B.1.5 在G4輸入： =IF(F4=B4+D4,Correct,Wrong) B.1.6 嘗試在F4輸入該算式正確或錯誤的答案。 (C) 實例 (一) --- 四則運算 C.1 開啟MS Excel新工作表； C.2 在 (Sheet 1) B4至E10儲存格內輸入下列數字及符號：(各位可以輸入任意數字。) 符號表： ＋ － × ÷ ＝ C.3 設定B4至G10儲存格的格式； C.4.1 在G4儲存格輸入： =IF(F4=B4+D4,Correct,Wrong) C.4.2 在G6儲存格輸入：