当前位置:编程学习 > VB >>

一道VB的编程题目?

程序运行时,单击窗体,连续弹出3个输入对话框,分别提示输入二元一次方程ax^2+bx+c=0的3个系数(假设该方程一定有实根)。然后计算出方程的两个实根,用Format()函数以保留两位小数的格式在窗体上打印输出。

 

请问一下代码怎么写啊?

答案:
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
Dim x1 As Single, x2 As Single
a = InputBox("请输入a的值")
b = InputBox("请输入b的值")
c = InputBox("请输入c的值")
d = b ^ 2 - 4 * a * c
x1 = (-b + d ^ 0.5) / 2 / a
x2 = (-b - d ^ 0.5) / 2 / a
Print "第一个根为:"; Format(x1, "0.00")
Print "第二个根为:"; Format(x2, "0.00")
End Sub
玩穿越火线很纠结,进入游戏后黑色的,能看到小地图还有些灰尘,能听到枪声,看清楚哦,是进入游戏后,不是运行CF就出这情况的!求解决方案,高分!

上一个:做一个毕业设计,题目:智能磁环测试仪上位机程序设计。用VB编程。
下一个:关于 vb 的编程

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,