一罐紫妈🍺 捣蛋猪征服者
我鸽子一会儿再编辑这个
关注数: 38 粉丝数: 648 发帖数: 12,763 关注贴吧数: 79
求大佬 这个哪里错了,输入数据以后就不显示了 dim a,b,c,d,e,f,g,h,i,j a=inputbox("请输入a,ax^2+bx+c") b=inputbox("请输入b,ax^2+bx+c") c=inputbox("请输入c,ax^2+bx+c") a=int(a) b=int(b) c=int(c) d=int(d) e=int(e) f=int(f) h=int(h) i=int(i) j=int(j) d=b^2-4*a*c if d>0 then e=(-b)/2*a i=sqt(d) f=i/2*a g=e+f h=e-f j=a*e^2+b*e+c if a>0 then msgbox("该函数 delta="&d&",与x轴的交点为("&g&",0)和("&h&",0),与y轴的交点为(0,"&c&")") msgbox("对称轴为x="&e&",开口向上,最低点为("&e&","&j&")") if a<0 then msgbox("该函数 delta="&d&",与x轴的交点为("&g&",0)和("&h&",0),与y轴的交点为(0,"&c&")") msgbox("对称轴为x="&e&",开口向下,最高点为("&e&","&j&")") if a=0 then msgbox("该函数不是二次函数") end if end if end if if d=0 then e=(-b)/2*a i=sqt(d) f=i/2*a g=e+f j=a*e^2+b*e+c if a>0 then msgbox("该函数 delta="&d&",与x轴的交点为("&g&",0),与y轴的交点为(0,"&c&"),对称轴为x="&e&",开口向上,最低点为("&e&","&j&")") if a<0 then msgbox("该函数 delta="&d&",与x轴的交点为("&g&",0)和("&h&",0),与y轴的交点为(0,"&c&"),对称轴为x="&e&",开口向下,最高点为("&e&","&j&")") if a=0 then msgbox("该函数不是二次函数") end if end if end if if d<0 then e=(-b)/2*a j=a*e^2+b*e+c if a>0 then msgbox("该函数 delta="&d&",与x轴没有交点,与y轴的交点为(0,"&c&"),对称轴为x="&e&",开口向上,最低点为("&e&","&j&")") if a<0 then msgbox("该函数 delta="&d&",与x轴没有交点,与y轴的交点为(0,"&c&"),对称轴为x="&e&",开口向下,最高点为("&e&","&j&")") if a=0 then msgbox("该函数不是二次函数") end if end if end if end if end if end if
首页 1 2 3 4 5 下一页