dim a as long
dim b as long
dim c as long
dim d as single
x1,x2也是dim(定义变量一般都是用dim)
d=b^2-4ac
ifconst a As long b As longc As long 定义变量a、b、c为长整型数一直弄不对const 是定义常量的下面的大哥说的是对的!我都没注意到诶。
编程计算一元二次方程的解 vb
编程计算一元二次方程的解 vb
Private Sub Command1_Click() '此程序在点击按钮Command1中完成
*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数
*** d As Single '定义变量d为单精度实型数
*** x1 As Single,x2 As Single '定义变量x1和x2为单精度实型数
a = InputBox("a=") '将用户输入a的值赋值给变量a
b = InputBox("b=") '将用户输入b的值赋值给变量b
c = InputBox("c=") '将用户输入c的值赋值给变量c
d = *** '求b^2-4ac的值赋值给变量d
'以下语句判断d的值,若小于0则直接输出“此方程无解”
'否则,求两个解x1和x2,并输出结果
If *** Then
Text***.Text = "此方程无解" '在对应的文本框中输出提示
Else
X1 = (-b + Sqr(d)) / (2 * a) '计算x1的值
X2 = (-b - Sqr(d)) / (2 * a) '计算x2的值
Text***.Text = "此方程的解为:" & "x1=" & x1 & "," & "x2=" & x2 '输出x1和x2的值
*** '条件语句结束
End Sub
求大侠改下 跪谢
Private Sub Command1_Click() '此程序在点击按钮Command1中完成
*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数
*** d As Single '定义变量d为单精度实型数
*** x1 As Single,x2 As Single '定义变量x1和x2为单精度实型数
a = InputBox("a=") '将用户输入a的值赋值给变量a
b = InputBox("b=") '将用户输入b的值赋值给变量b
c = InputBox("c=") '将用户输入c的值赋值给变量c
d = *** '求b^2-4ac的值赋值给变量d
'以下语句判断d的值,若小于0则直接输出“此方程无解”
'否则,求两个解x1和x2,并输出结果
If *** Then
Text***.Text = "此方程无解" '在对应的文本框中输出提示
Else
X1 = (-b + Sqr(d)) / (2 * a) '计算x1的值
X2 = (-b - Sqr(d)) / (2 * a) '计算x2的值
Text***.Text = "此方程的解为:" & "x1=" & x1 & "," & "x2=" & x2 '输出x1和x2的值
*** '条件语句结束
End Sub
求大侠改下 跪谢
其他人气:370 ℃时间:2019-12-06 15:29:05
优质解答
我来回答
类似推荐
猜你喜欢
- 1高一物理所有天体运动公式,以及适用条件,
- 2please look over your paper carefully to ___ there are no mistakes.
- 3人类会像恐龙一样在地球上消失吗?
- 4求极限,x趋向于0,lim((tan2x)/(sin3x))
- 5在800米环岛上,每隔50米插一面彩旗,后来又增加了一些彩旗,就把彩旗的间隔缩短了,起点的彩旗不动,重新插后发现,一共有四根彩旗没动,问现在的彩旗间隔多少米?
- 6一辆汽车从甲地开往乙地,已经已经行了全程的七分之四,正好行了160千米,甲乙两地相聚多少千米
- 7一个菜店先运进154筐白菜和萝卜,后来又运进62筐白菜和萝卜.已知白菜和萝卜筐数的比是5:4.
- 8已知直线y=kx-3与两坐标轴围成的三角形的面积为9,求直线的解析式.
- 9函数商的求导法则证明
- 10A,n都是自然数,且A=n2+15n+26是一个完全平方数,则n等于 _.