返回列表 上一主題 發帖

給小朋友練習加法的問題

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-3-5 19:33 | 顯示全部帖子
本帖最後由 register313 於 2012-3-5 20:25 編輯

回復 1# dondon1495

問題1
用VBA解決出題之困擾
  1. Sub 出題()
  2. For Each R In Union([A3:A22], [C3:C22])
  3.   R.Value = Int(Rnd() * 50)
  4. Next
  5. [E3:E22] = ""
  6. End Sub
複製代碼
1.gif
加法練習.rar (7.11 KB)

問題2
F3=IF(COUNT($E$3:$E$22)=20,IF((A3+C3)=E3,"√","×"),"")

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-6 00:02 | 顯示全部帖子
回復 7# dondon1495
1.完成加,減工作表
2.加入VBA程式
  工具/巨集/VB編輯器
  
  1. Sub 加法出題()
  2. UP = 99: LOWER = 0
  3. Sheets("加").Select
  4. For Each R In [A3:A22]
  5.    R.Value = Int((UP - LOWER + 1) * Rnd + LOWER)
  6.    R.Offset(0, 2).Value = Int((99 - R.Value - LOWER + 1) * Rnd + LOWER)
  7. Next
  8. [E3:E22] = ""
  9. End Sub
  10. Sub 減法出題()
  11. UP = 99: LOWER = 0
  12. Sheets("減").Select
  13. For Each R In [A3:A22]
  14.    R.Value = Int((UP - LOWER + 1) * Rnd + LOWER)
  15.    R.Offset(0, 2).Value = Int((R.Value - LOWER) * Rnd + LOWER)
  16. Next
  17. [E3:E22] = ""
  18. End Sub
複製代碼
3.加入執行按鈕
1.gif

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-3-7 18:46 | 顯示全部帖子
回復 18# dondon1495

Hsieh超版的程式稍作修改即可
加減乘除法練習.rar (18.36 KB)

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題