查人人中国名人网魔物娘漫画无修 彩色:VB简单编程问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 18:46:54
有五个文本框,三个分别是命名为a,b,c;用来输入系数,a,b,c的;另外两个是得出结果的.命名为X1,X2.要求点击按钮"计算"时,得出结果X1,X2.点击按钮"结束"时,清楚文本框里面的数字.
两个按钮.一个按钮是"计算".另一个是"结束".
拜托啦.各位.
你们可能有点误会了.真对不起.
文本框的命名是用LABEL实现的.不需要在语言里编写的
TEXT1,TEXT2,TEXT3,分别用来输入系数a,b,c.
TEXT4,TEXT5是得出结果X1,X2的.
'计算按钮
Private Sub Command1_Click()
Dim xa, xb, xc, dlt, x, y, er As String
xa = Val(a.Text)
xb = Val(b.Text)
xc = Val(c.Text)
dlt = xb * xb - 4 * xa * xc
If dlt > 0 Then
x = (-xb + Sqr(dlt)) / (2 * xa)
y = (-xb - Sqr(dlt)) / (2 * xa)
X1.Text = Str(x)
X2.Text = Str(y)
End If
If dlt = 0 Then
x = (-xb + Sqr(dlt)) / (2 * xa)
X1.Text = Str(x)
X2.Text = Str(x)
End If
If dlt < 0 Then
X1.Text = "无解"
X2.Text = "无解"
End If
End Sub
'结束按钮
Private Sub Command2_Click()
a.text=""
b.text=""
c.text=""
X1.text=""
X2.text=""
End Sub
'计算按钮
Private Sub Command1_Click()
Dim xa, xb, xc, dlt, x, y, er As String
xa = Val(a.Text)
xb = Val(b.Text)
xc = Val(c.Text)
dlt = xb^2- 4 * xa * xc
If dlt > 0 Then
ptint "该方程有两个解!"
x = (-xb + Sqr(dlt)) / (2 * xa)
y = (-xb - Sqr(dlt)) / (2 * xa)
X1.Text = Str(x)
X2.Text = Str(y)
elseIf dlt = 0 Then
ptint "该方程有一个解!"
x = (-xb + Sqr(dlt)) / (2 * xa)
X1.Text = Str(x)
X2.Text = Str(x)
elseif dlt < 0 Then
ptint "该方程没有解!"
End If
End Sub
'结束按钮
Private Sub Command2_Click()
a.text=""
b.text=""
c.text=""
X1.text=""
X2.text=""
End Sub