急需小学二年级整百整千的加减练习题及口算题，最少400题，谢谢啦_百度知道请问康佳A1辅助功能在哪里，有何软件能代替。谢谢！_百度知道推荐方泓杰的口算计算机辅助教学软件
推荐方泓杰的口算计算机辅助教学软件
推荐方泓杰的口算计算机辅助教学软件
CAI是“计算机辅助教学”的简称。方泓杰读者编写的“口算心算”程序为大家提供了良好的示范。
这个CAI程序能够表现出远比上面的动画所表现的更加复杂的功能：①有相对友好的提示和显示界面，②能够兼顾“低年级”、“中年级”、“高年级”不同程度的自动出题目的要求，③能够随机出题并判断是否做对了并累计得分，④进行20分钟倒计时并显示最终得分，⑤用适当的话语对使用者的计算能力进行评价。
所有这些功能都涉及到相对复杂的逻辑关系和多种多样的编程技巧，编写出来是有一定难度的。
这个程序提供给大家进行交流。欢迎有兴趣的人可以自此基础上进行修改、提高。
方泓杰编制
& draw ht ku make "fe 0 setpc 12
& setfont "仿宋 23 1 pu setxy se -155 15
& tt "欢迎使用口算心算程序!
& pu setxy se -130 80 pd tt "程序编制：方泓杰
& wait 500 setfont "仿宋 16 1
& clean ku setpc 9 pu setxy se -265 15
& tt "低年级请按左键，中年级请按右键，高年级请按滚轮键。
& label "ks_1
& if (button 1) then[make "nj 1 ks :nj
& if (button? 2) then[make "nj 2 ks :nj
& if (button? 3) then[make "nj 3 ks :nj
& go "ks_1
to ks :nj :fe
& wait 300 setfont "仿宋 23 1
& clean ku setpc 12 pu setxy se -240 15
& tt "加减法请按左键，乘除法请按右键。
& label "ks_2
& if (button? 1) then [jj :nj :fe
& if (button? 2) then [cc :nj :fe
& go "ks_2
to jj :nj :fe
& make "t (item 1 time)*3600 (item 2
time)*60 (item 3 time)
& make "t2 1
& label "jj
& make "w random 2
& if :w=1 then[if
:t2-:t&1200 then
[xs :fe stop] \
&&&&&&&&&&&&&&
make "fe :fe jia :nj :fe wait 125]
& if :w=2 then[if
:t2-:t&1200 then
[xs :fe stop] \
&&&&&&&&&&&&&&
make "fe :fe jian :nj :fe wait 125]
to cc :nj :fe
& make "t (item 1 time)*3600 (item 2
time)*60 (item 3 time)
& make "t2 1
& label "cc
& make "w random 2
& if :w=1 then[if
:t2-:t&1200 then
[xs :fe stop] \
&&&&&&&&&&&&&&
make "fe :fe cheng :nj :fe wait 125]
& if :w=2 then[if
:t2-:t&1200 then
[xs :fe stop] \
&&&&&&&&&&&&&&
make "fe :fe chu :nj :fe wait 125]
to jia :nj :fe
& cs ku pu setxy se -275 90 pd setpc
& tt "请在文本区输入答案，按Enter键确定答案。
& if :nj=1 then[make "j_1 random 100 make
random 100]
& if :nj=2 then[make "j_1 random 10000 make
random 10000]
& if :nj=3 then[make "j_1 random 30000 make
random 30000]
& make "j_3 random 4
& if :j_3=1 then[pu setxy se -255 15 pd (tt
"一个数减去
"等于 :j_2 "，这个数是：)]
& if :j_3=2 then[pu setxy se -155 15 pd (tt
:j_1 [ ] \
:j_2 "，求X：)]
& if :j_3=3 then[pu setxy se -100 15 pd (tt
[ ] :j_2 [=])]
& if :j_3=4 then[pu setxy se -165 15 pd (tt
"什么数等于
:j_1 "加上 \
:j_2 "。)]
& make "he :j_1 :j_2
& make "jia read
& make "t2 (item 1 time)*3600 (item 2
time)*60 (item 3 time)
& pu setxy se -150 15 pd
& test :jia=:he
& iftrue& [clean ku
setpc 4 tt
"做对了，你真棒！ op 25]
& iffalse& [clean
ku setpc 4 (tt
"做错了，答案是： :j_1 :j_2) \
&&&&&&&&&&&
to jian :nj :fe
& cs ku pu setxy se -275 100 pd setpc
& tt "请在文本区输入答案，按Enter键确定答案。
& label "jian
& if :nj=1 then[make "j1 random 100 make
random 100]
& if :nj=2 then[make "j1 random 10000 make
random 10000]
& if :nj=3 then[make "j1 random 30000 make
random 30000]
& make "j3 random 4
& if :j1-:j2&0 then[go
& make "cha :j1-:j2
& if :j3=1 then[pu setxy se -255 15 pd (tt
"一个数加上
"等于 :j1 "，这个数是：)]
& if :j3=2 then[pu setxy se -155 15 pd (tt
:j2 "，求X：)]
& if :j3=3 then[pu setxy se -100 15 pd (tt
& if :j3=4 then[pu setxy se -165 15 pd (tt
"什么数等于
:j1 "减去 \
:j2 "。)]&
& make "jian read
& make "t2 (item 1 time)*3600 (item 2
time)*60 (item 3 time)
& pu setxy se -150 15 pd
& test :jian=:cha
& iftrue& [clean ku
ku setpc 4 tt
"做对了，你真棒！ op 25]
& iffalse& [clean
ku setpc 4 (tt
"做错了，答案是： :j1-:j2) \
&&&&&&&&&&&
to cheng :nj :fe
& cs ku pu setxy se -275 100 pd setpc
& tt "请在文本区输入答案，按Enter键确定答案。
& label "cheng
& if :nj=1 then[make "c_1 random 10 make
random 10]
& if :nj=2 then[make "c_1 random 500 make
random 500]
& if :nj=3 then[make "c_1 random 3000 make
random 3000]
& make "c_3 random 4
& if :c_1*:c_2&100000
& make "ji
:c_1*:c_2&
& if :c_3=1 then[pu setxy se -255 15 pd (tt
"一个数除以
"等于 :c_2 "，这个数是：)]
& if :c_3=2 then[pu setxy se -155 15 pd (tt
:c_1 [*] :c_2 \
"，求X：)]
& if :c_3=3 then[pu setxy se -100 15 pd (tt
[*] :c_2 [=])
& if :c_3=4 then[ \
pu setxy se -165 15 pd (tt "什么数等于 :c_1 "乘 \
:c_2 "。)]
& make "cheng read
& make "t2 (item 1 time)*3600 (item 2
time)*60 (item 3 time)
& pu setxy se -150 15 pd
& test :ji=:cheng
& iftrue& [clean ku
setpc 4 tt
"做对了，你真棒！ op 25]
& iffalse& [clean
ku setpc 4 (tt
"做错了，答案是： :c_1*:c_2) \
&&&&&&&&&&&
to chu :nj :fe
& cs ku pu setxy se -275 100 pd setpc
& tt "请在文本区输入答案，按Enter键确定答案。
& label "chu
& if :nj=1 then[make "c1 random 50 make "c2
& if :nj=2 then[make "c1 random 1200 make
random 600]
& if :nj=3 then[make "c1 random 10000 make
random 5000]
& make "c3 random
& if (or :c1/:c2&(int
:c1/:c2&(int :c1/:c2)) \
then[go "chu]
& make "shang :c1/:c2
& if :c3=1 then[pu setxy se -255 15 pd (tt
"等于 :c1 "，这个数是：)]
& if :c3=2 then[pu setxy se -155 15 pd (tt
:c1 [/] :c2 \
"，求X：)]
& if :c3=3 then[pu setxy se -100 15 pd (tt
& if :c3=4 then[ \
pu setxy se -165 15 pd \
(tt "什么数等于 :c1 "除以 \
& make "chu read
& make "t2 (item 1 time)*3600 (item 2
time)*60 (item 3 time)
& pu setxy se -150 15 pd
& test :shang=:chu
& iftrue& [clean ku
setpc 4 tt
"做对了，你真棒！ op 25]
& iffalse& [clean
ku setpc 4 (tt
"做错了，答案是： :c1/:c2) \
&&&&&&&&&&&
& cs ku pu setxy se -200 15 pd
& (tt "本次您的分数为： :fe "。)
& wait 200 cs ku
& if :fe&500 then[pu setxy
15 pd tt "请继续努力！]
& if :fe&1000 then[pu setxy
15 pd tt "您的计算成绩良好。]
& if :fe&1400 then[pu setxy
15 pd tt "您的计算速度快，成绩优秀。]
& if :fe&1800 then[pu setxy
15 pd tt "您的计算又快又正确，值得表扬！]&
& pu setxy se -300 -80 pd setpc 13
stamprect 660
欢迎提供自编的程序进行交流
这个程序的著作权归方泓杰所有。允许个人博客按原文(含图片及附注)进行完整转载，转载时敬请注明程序作者方泓杰的姓名、文章原始出处，并以链接形式标明来源。
凡有发现图片消失&
敬请在评论中告知
以 便 及 时 补 充 修 复
这里是新颖有趣的LOGO语言之家
欢迎评论 欢迎转载
查阅林老师最新发表文章的链接：
快速检索数百篇博客提高阅读效率的链接：
林正山老师邮箱：&
因网络拥挤“纸条”常不能及时打开查阅。有信息尽量使用“评论”或邮件。&
需要LOGO系统文件、常用表格及工具程序文件的可以发邮件给林老师
林正山老师发表的文章及照片，媒体、网站或出版物未经本人许可谢绝进行任何形式的删节、改编、重组及转载。
允许个人博客按原文(含图片及附注)进行完整转载，转载时敬请注明本博作者姓名、文章原始出处，并以链接形式标明来源。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。谁有人教版帮你学数学口算练习册小学数学六年级下的答案！！谢谢各位大哥了！跪求
魔石尾潭25
为您推荐：
扫描下载二维码至急！！！我想练北斗神拳，请问有人介绍好的方法或者师傅哇？别跟我说健次郎，谢谢。_百度知道