1、打开易语言，创建窗口。在启动窗口分别添加1个按钮、2个编辑框。如图所示
2、双击“启动窗口”跳至程序集，按图示定义变量，编程时严格按照一元二次方程解题步骤来编程，如图
3、编译完成，调试运行，如图所示，要是没问题，保存编译即可。
4、源码如下：.版本 2编辑框2.内容 ＝ “”a ＝ 到小数 (取文本中间 (编辑框1.内容, 1, 寻找文本 (编辑框1.内容, “x”, , 假))) ' 原形 a^2+bx-c=0b ＝ 到小数 (取文本中间 (编辑框1.内容, 取文本长度 (到文本 (a) ＋ “x^2”) ＋ 1, 寻找文本 (编辑框1.内容, “x”, 取文本长度 (到文本 (a) ＋ “x^2”), 假)))c ＝ 到小数 (取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “x”, , 假))).如果真 (a ≠ 1) b ＝ b ÷ a c ＝ c ÷ a a ＝ 1.如果真结束编辑框2.加入文本 (“解 ∵ a=” ＋ 到文本 (a) ＋ “ b=” ＋ 到文本 (b) ＋ “ c=” ＋ 到文本 (c))deta ＝ b × b － 4 × a × c编辑框2.加入文本 (#换行符 ＋ “ ∴ △=b^(2)-4ac”)编辑框2.加入文本 (#换行符 ＋ “ ∴ △=” ＋ 到文本 (b) ＋ “^(2)-4×” ＋ 到文本 (a) ＋ “×” ＋ 到文本 (b))编辑框2.加入文本 (#换行符 ＋ “ ∴ △=” ＋ 到文本 (b × b) ＋ “-” ＋ 到文本 (4 × a × b))编辑框2.加入文本 (#换行符 ＋ “ ∴ △=” ＋ 到文本 (deta))编辑框2.加入文本 (#换行符 ＋ “ ∴ 根据求根公式得：”)编辑框2.加入文本 (#换行符 ＋ “ x=(-b±(2)√△)/2a”)编辑框2.加入文本 (#换行符 ＋ “ x=(” ＋ 到文本 (－b) ＋ “±” ＋ 到文本 (求平方根 (deta)) ＋ “)/” ＋ 到文本 (2 × a))x1 ＝ (－b ＋ 求平方根 (deta)) ÷ 2 × ax2 ＝ (－b － 求平方根 (deta)) ÷ 2 × a.如果真 (deta ＝ 0) ' 判断结果的两种情况 编辑框2.加入文本 (#换行符 ＋ “ ∴ 解得：x1=x2=到文本 (x1)”).如果真结束.如果真 (deta ＞ 0) 编辑框2.加入文本 (#换行符 ＋ “ ∴ 解得：x1=” ＋ 到文本 (x1) ＋ “ x2=” ＋ 到文本 (x2))