UC知道一道有关Visual Basic 编程的easy题
来源：百度知道 编辑：UC知道 时间：2024/06/12 01:40:46
期中测验
1. 编写一个求解 ax2+bx+c=0（平方）的全解程序。 （3分）
要求：
从键盘中任意输入a、b、c三个整数。
对每一种运算条件，用一个输出语句来显示。
2. 由键盘随意输入三个整数，按从小到大的顺序输出。 （2分）
要求：用一个输出语句来显示。
用到诸如:Option explicit
Private Sub Form_load()
Dim a as Integer
...b...
...
Msgbox()
End sub
等等等等。此事有关小弟其中考分数，望各路英雄相助。
1. 编写一个求解 ax2+bx+c=0（平方）的全解程序。 （3分）
要求：
从键盘中任意输入a、b、c三个整数。
对每一种运算条件，用一个输出语句来显示。
2. 由键盘随意输入三个整数，按从小到大的顺序输出。 （2分）
要求：用一个输出语句来显示。
用到诸如:Option explicit
Private Sub Form_load()
Dim a as Integer
...b...
...
Msgbox()
End sub
等等等等。此事有关小弟其中考分数，望各路英雄相助。
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, X1 As Single, X2 As Single, QS As Single
Dim M1 As String, M2 As String
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
QS = B ^ 2 - 4 * A * C
If QS = 0 Then
X1 = X2 = -B / (2 * A)
ElseIf QS > 0 Then
X1 = (-B / (2 * A)) + Sqr(QS)
X2 = (-B / (2 * A)) - Sqr(QS)
ElseIf QS < 0 Then
M1 = Str((-B / (2 * A))) + "+" + Str(Sqr(-QS)) + "i"
M2 = Str((-B / (2 * A))) + "-" + Str(Sqr(-QS)) + "i"
End If
If M1 = "" And M2 = "" Then
M1 = Str(X1)
M2 = Str(X2)
End If
Label1.Caption = M1
Label2.Caption = M2
End Sub
做了一个，没有时间了