早教吧作业答案频道 -->其他-->
求VB高手。刚学,不要写的太复杂。1.通过InputBox函数输入一元二次方程的系数a、b、c,且满足b2-4ac>0,计算并输出一元二次方程的两个根x1,x2。2.求两个数的相加。在窗体上建立两个名称分别
题目详情
求VB 高手。刚学,不要写的太复杂。
1.通过InputBox函数输入一元二次方程的系数a、b、c,且满足b2 -4ac >0 ,计算并输出一元二次方程的两个根x1,x2。
2.求两个数的相加。在窗体上建立两个名称分别为C1和C2,标题分别为“输入”和“计算”的命令按钮,要求程序运行后,如果单击“输入”按钮,可通过输入对话框输入两个数(分别是64和96),分别存入整形变量a,b中,如果单击“计算”按钮,则对a,b变量进行加法运算,并把计算结果在消息框中显示出来
1.通过InputBox函数输入一元二次方程的系数a、b、c,且满足b2 -4ac >0 ,计算并输出一元二次方程的两个根x1,x2。
2.求两个数的相加。在窗体上建立两个名称分别为C1和C2,标题分别为“输入”和“计算”的命令按钮,要求程序运行后,如果单击“输入”按钮,可通过输入对话框输入两个数(分别是64和96),分别存入整形变量a,b中,如果单击“计算”按钮,则对a,b变量进行加法运算,并把计算结果在消息框中显示出来
▼优质解答
答案和解析
1.按你的要求!
Private Sub Form_click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single
a = InputBox("请输入a 的值")
b = InputBox("请输入b的值")
c = InputBox("请输入c的值")
If b ^ 2 - 4 * a * c > 0 Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print "x1=" & x1, "x2=" & x2
End If
End Sub
2,这个你要改一下命令按钮的名称和标题,代码如下
Dim a As Integer, b As Integer
Private Sub c1_Click()
a = InputBox("请输入a")
b = InputBox("请输入b")
End Sub
Private Sub c2_Click()
MsgBox "a + b=" & a + b
End Sub
Private Sub Form_click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single
a = InputBox("请输入a 的值")
b = InputBox("请输入b的值")
c = InputBox("请输入c的值")
If b ^ 2 - 4 * a * c > 0 Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print "x1=" & x1, "x2=" & x2
End If
End Sub
2,这个你要改一下命令按钮的名称和标题,代码如下
Dim a As Integer, b As Integer
Private Sub c1_Click()
a = InputBox("请输入a")
b = InputBox("请输入b")
End Sub
Private Sub c2_Click()
MsgBox "a + b=" & a + b
End Sub
看了 求VB高手。刚学,不要写的太...的网友还看了以下:
导数运算//(u*1/v)'怎么化简成u'*1/v+u*(1/v)'?(u/v)'=(u*1/v) 2020-06-04 …
映射题,求正解.首先我读不懂题(f(n)∈R,v∈R,u∈R)求所有的f:R→R满足:(1)f(2 2020-06-07 …
u=x-2y,v=x+ay,求二阶偏导为什么δ2z/δx2=(δ2z/δu2)*δu/δx+(δ2 2020-07-09 …
xu-yv=0,yu+xv=1方程两边分别对x求导xu-yv=0,yu+xv=1方程两边分别对x求 2020-07-13 …
悬赏200分有A和B两辆汽车,B作匀速直线运动,A则以恒速率v(v>u)追赶.初时A距B为r0,A 2020-07-30 …
函数w=1/z,把z平面上x^2+(y-1)^2=4映射成w平面上怎样的曲线?z=1/w=1/(u 2020-07-30 …
(u·v)'=u'·v+u·v'u,v均为向量左边两个向量的数量积不是一个数么求导之后不就是0吗为 2020-07-30 …
复合函数公式的应用?需要好人y=e^2x;公式:1、[F(u)]'=[F(u)]*u'2、(cu) 2020-08-02 …
复合函数公式的应用?y=e^2x;公式:1、[F(u)]'=[F(u)]*u'2、(cu)'=c( 2020-08-02 …
当x→0时,无穷小量u=-x+sinx∧2与无穷小量v=x的关系是:A.u是比v高阶无穷小量V.u是 2020-12-09 …