编程计算一元二次方程的解 vbPrivate Sub Command1_Click() '此程序在点击按钮Command1中完成*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数*** d As Single '定义变量d为单精度实型数*** x1 As Single,x2 A
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/02 09:39:59
![编程计算一元二次方程的解 vbPrivate Sub Command1_Click() '此程序在点击按钮Command1中完成*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数*** d As Single '定义变量d为单精度实型数*** x1 As Single,x2 A](/uploads/image/z/1138179-3-9.jpg?t=%E7%BC%96%E7%A8%8B%E8%AE%A1%E7%AE%97%E4%B8%80%E5%85%83%E4%BA%8C%E6%AC%A1%E6%96%B9%E7%A8%8B%E7%9A%84%E8%A7%A3+vbPrivate+Sub+Command1_Click%28%29+%27%E6%AD%A4%E7%A8%8B%E5%BA%8F%E5%9C%A8%E7%82%B9%E5%87%BB%E6%8C%89%E9%92%AECommand1%E4%B8%AD%E5%AE%8C%E6%88%90%2A%2A%2A+a+As+%2A%2A%2A%2Cb+As+%2A%2A%2A%2Cc+As+%2A%2A%2A+%27%E5%AE%9A%E4%B9%89%E5%8F%98%E9%87%8Fa%E3%80%81b%E3%80%81c%E4%B8%BA%E9%95%BF%E6%95%B4%E5%9E%8B%E6%95%B0%2A%2A%2A+d+As+Single+%27%E5%AE%9A%E4%B9%89%E5%8F%98%E9%87%8Fd%E4%B8%BA%E5%8D%95%E7%B2%BE%E5%BA%A6%E5%AE%9E%E5%9E%8B%E6%95%B0%2A%2A%2A+x1+As+Single%2Cx2+A)
编程计算一元二次方程的解 vbPrivate Sub Command1_Click() '此程序在点击按钮Command1中完成*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数*** d As Single '定义变量d为单精度实型数*** x1 As Single,x2 A
编程计算一元二次方程的解 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
求大侠改下 跪谢
编程计算一元二次方程的解 vbPrivate Sub Command1_Click() '此程序在点击按钮Command1中完成*** a As ***,b As ***,c As *** '定义变量a、b、c为长整型数*** d As Single '定义变量d为单精度实型数*** x1 As Single,x2 A
dim a as long
dim b as long
dim c as long
dim d as single
x1,x2也是dim(定义变量一般都是用dim)
d=b^2-4ac
if