UC知道VB函数小问题
来源：百度知道 编辑：UC知道 时间：2024/06/16 23:52:38
本人VB白痴 编辑下面程序 但总显示 “对” 该如何解决
Private Sub Form_Load()
Dim a, b As Integer
Dim d As Single
Text1.Text = a
Text2.Text = b
d = b ^ 2 - 4 * a * 3
If d >= 0 Then
Text3.Text = "对"
ElseIf d < 0 Then
Text3.Text = "错"
End If
End Sub
Private Sub Form_Load()
Dim a, b As Integer
Dim d As Single
Text1.Text = a
Text2.Text = b
d = b ^ 2 - 4 * a * 3
If d >= 0 Then
Text3.Text = "对"
ElseIf d < 0 Then
Text3.Text = "错"
End If
End Sub
Text1.Text = a
Text2.Text = b
要改成
a = Text1.Text
b = Text2.Text
就可以了
因为d的初值是0，所以不管你在文本框控件中输入任何值，text3.text中显示的都是对
是不是
a = Text1.Text
b = Text2.Text