Vb

程序解一元二次方程

以下是程序代码

需要的控件

7

label

3

text

一个

command

Private Sub Command1_Click()

Dim a, b, c, d, e, f As String

a = Text1.Text

b = Text2.Text

c = Text3.Text

d = b * b - 4 * a * c

If d > 0 Then

e = (-b + Sqr(d)) / 2 * a

Label6.Caption = e

f = (-b - Sqr(d)) / 2 * a

Label7.Caption = f

End If

If d = 0 Then

e = (-b + Sqr(d)) / 2 * a

Label6.Caption = e

f = (-b - Sqr(d)) / 2 * a

Label7.Caption = f

End If

If d

Label6.Caption = "

无解

"

Label7.Caption = "

无解

"

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "

请输入二次项系数

"

Label2.Caption = "

请输入一次项系数

"

Label3.Caption = "

请输入常数项

"

Label4.Caption = "X1="

Label5.Caption = "X2="

End Sub

编写lisp程序解一元二次方程_vb解一元二次方程代码相关推荐

  1. 解一元二次方程lisp_lisp语言编写lisp程序解二元一次方程组和一元二次方程组应该怎么做​...

    附上相关程序,请审核. ;-------------------------解二元一次方程组------------------------ (defun 1y1c (a c) (if (/= a 0 ...

  2. 编写lisp程序解一元二次方程_用C语言编写一程序求解一元二次方程的根。

    展开全部 C语言编写一程序求解32313133353236313431303231363533e78988e69d8331333365643661一元二次方程的根: #include #include ...

  3. 编写lisp程序解一元二次方程_怎样用C语言编一个解一元二次方程的程序?

    展开全部 用三个变量,来接一元二次方程的三个参数, 然后62616964757a686964616fe78988e69d8331333365633839根据这三个参数计算△=b*b-4ac,再根据△判 ...

  4. lisp pl线线段数_编写lisp程序多条多段线连接成一条多段线

    展开全部 命令HB合并多段线(defun c:hb (/ @myL @lpNum @etLst @@62616964757a686964616fe4b893e5b19e31333363383339en ...

  5. 如何用c 语言编写阶乘程序,求10000的阶乘(c语言代码实现)

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 /* 程序功能:计算一个正整数n的阶乘,目前最大能运算10000的阶乘,可秒杀. 程序意义:加强自己对于大数的处理. 说明:此程序对乘法和除法还未做任何优 ...

  6. java调用其他程序吗_java本地方法如何调用其他程序函数,方法详解

    JNI是Java Native Interface的缩写,中文为JAVA本地调用.从Java 1.1 开始,Java Native Interface (JNI)标准成为java平台的一部分,它允许J ...

  7. XFC演示-使用C语言通过WinAPI函数编写Windows程序

    XFC演示-使用C语言通过WinAPI函数编写Windows程序 1,目标效果: 2,代码片段: winMain.c /*!\file winMain.c\version v1.00\date 10/ ...

  8. python123求解一元二次方程_侄子今天问我这个一元二次方程怎么解!还好Python会解!...

    原标题:侄子今天问我这个一元二次方程怎么解!还好Python会解! 题目: 输入一个一元二次方程的系数 a, b, c,求解方程的根. 分析: 1.一元二次方程标准形式: (a ≠ 0) 其中: 是二 ...

  9. 第二十四讲编程项目 求函数的值 油量监控 一元二次方程全解等

    任务和代码: [项目1:分段函数求值] 从键盘输入x的值(要求为实型),根据公式1计算并输出x和y的值. /* *Copyright (c) 2016, CSDN学院 *All rights rese ...

最新文章

  1. RHEl5 dns的配置
  2. 为什么volatile不能保证原子性而Atomic可以?
  3. web前端岗位经典面试题,面试前必读!
  4. SpringBoot 整合 RabbitMQ 实践
  5. 使用 MIDP 底层用户接口 API
  6. MySql 安装 Win python3
  7. PHP判断浏览器类型和语言
  8. 解决Odoo出现的Unable to send email, please configure the sender's email address or alias.
  9. ROSt通信编程_服务编程
  10. 如何看硬盘SMART参数----用HDtune工具查看
  11. 计算机网络故障检测,计算机网络故障处理
  12. NBIOT BC26 opencpu物联网应用案例详细解析
  13. netty 给指定用户推送消息_Netty实战:设计一个IM框架就这么简单!
  14. 剑网3服务器延迟高,关于《剑网3》网络延迟的一些理论分析
  15. HDMI接口简介---分辨率 时钟频率 lane速率计算
  16. 如何用PDF编辑器将PDF文件拆分
  17. 获取浏览器中鼠标选中的文本内容
  18. 关于汽车遥控器芯片EV1527的研究
  19. opencv 寻找轮廓线与轮廓线的交点, 轮廓与圆的交点
  20. 2023最新版本Camtasia电脑录屏软件好不好用?

热门文章

  1. 如何在wsl中安装kotlin编译器(简单有效)
  2. 【优化理论】 共轭梯度下降算法实现
  3. 数实融合激变时刻,与长期主义同行
  4. vue + elementui table 列内容相同 自动合并单元格 完整代码
  5. php 配置 error_reporting,PHP中error_reporting()用法详解 技术分享
  6. 高效工程师系列(一) 如何找到一个利于自己成长的环境
  7. dsp版win10和普通版区别_图文详解win10各个版本之间有什么区别
  8. 服务器的公共显示屏,网络公共广播系统主机服务器-星时华熠官网 - 航天信广...
  9. Programming Ruby读书笔记
  10. 怎样写好英语作文呢?或者说是高分作文的一些技巧: