vbs有关数学和物理方面的应用1.docVIP

vbs有关数学和物理方面的应用1 说明：如遇杀毒软件误报，请将本程序加入白名单；如需更改功能请与我取得联系。 标题：VSB应用系列之小学数学 作者：陈海友 类别：VSB应用 备注：如遇杀毒软件误报，请将本程序加入白名单。 1.小学数学训练器 2.指数运算器 3.排列组合运算器 5.一元二次方程解答器 6.解二元一次方程组 7.简单的二元二次方程组 8.长方形面积计算器 9.三角形面积计算器（已知三边边长）已知三边边长 10.圆的面积计算器 11.长方体体积计算器 12.球的体积计算器 31.两物体弹性碰撞的速度计算 1.小学数学训练器 ------小学数学训练器------ dim e,a,b,c,d,f e=InputBox(请选择训练种类：1.含答案加法2.互动性加法3.减法4.含小数乘法5.结果用余数除法6.结果用小数除法,小学数学训练器) select case e case 1 --------加法试题(含正确答案)---------1 a=CDbl(inputbox(请输入被加数)) b=CDbl(inputbox(请输入加数)) c=a+b d=CDbl(inputbox(输入你的和)) if d=c then msgbox 对了 else msgbox 错了 msgbox 正确答案是(c) end if --------加法试题--------- case 2 --------加法试题(互动性)---------2 f=CDbl(inputbox(如果你的答案错了，需要正确答案请输入1，不需要正确答案请输入0)) a=CDbl(inputbox(请输入被加数)) b=CDbl(inputbox(请输入加数)) c=a+b d=CDbl(inputbox(输入你的和)) if d=c then msgbox 对了 else if f=0 then msgbox 错了 else msgbox 正确答案是(c) end if end if --------加法试题(互动性)--------- case 3 ------------减法试题----------3 a=CDbl(inputbox(请输入被减数)) b=inputbox(请输入减数) if ab then msgbox 题目已超出小学范围 c=a－b d=CDbl(inputbox(输入你的差)) if d=c then msgbox 对了 else msgbox 错了 msgbox 正确答案是(c) end if ------------减法试题---------- case 4 ------------乘法（含小数）试题----------4 a=inputbox(请输入被乘数：) b=inputbox(请输入乘数：) c=a*b d=CDbl(inputbox(输入你的积)) if d=c then msgbox 对了 else msgbox 错了 msgbox 正确答案是(c) end if ------------乘法（含小数）试题---------- case 5 -------除法试题(结果用余数表示)--------5 a=CDbl(inputbox(请输入被除数：)) b=inputbox(请输入除数：) c=int(a/b) d=a mod b e=CDbl(inputbox(输入你的商)) f=CDbl(inputbox(输入你的余数)) if e=c and f=d then msgbox 对了 else msgbox 错了 msgbox 商是(c) msgbox 余数是(d) end if -------除法试题(结果用余数表示)-------- case 6 -------除法试题(结果用小数表示)--------6 a=CDbl(inputbox(请输入被除数：)) b=inputbox(请输入除数：) c=a/b d=CDbl(inputbox(输入你的商)) if d=c then msgbox 对了 else msgbox 错了 msgbox 正确答案是(c) end if -------除法试题(结果用小数表示)-------- end select ------小学数学训练器------ ●2.指数运算器 ------指数运算器------ a=inputbox(请输入底数：) b=inputbox(请输入指数：) c=a^b msgbox 正确答案是(c) ------指数运算器------ ●3.排列组合运算器 ------排列组合运算器------ Dim