UC知道急！追加分！！vb问题，为什么点命令按钮，窗体就关闭了
来源：百度知道 编辑：UC知道 时间：2024/06/02 15:42:49
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x As Single, x1 As Single, x2 As Single
Form1.Visible = ture
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b * b - 4 * a * c
If (a = 0) Then
lable4.Caption = "输入错误"
ElseIf (d < 0) Then
Label4.Caption = "此方程无根"
ElseIf (d = 0) Then
x = -b / (2 * a)
Label4.Caption = "此方程只要一个根"
Text4.Visible = True
Text4.Text = x
Else
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = "此方程有两个根"
End If
End Sub
Private Sub Form_Load()
Text4.Visible = False
Text4.Visible = False
End Sub
'这是一份解方程的程序
Dim a As Single, b As Single, c As Single
Dim d As Single, x As Single, x1 As Single, x2 As Single
Form1.Visible = ture
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b * b - 4 * a * c
If (a = 0) Then
lable4.Caption = "输入错误"
ElseIf (d < 0) Then
Label4.Caption = "此方程无根"
ElseIf (d = 0) Then
x = -b / (2 * a)
Label4.Caption = "此方程只要一个根"
Text4.Visible = True
Text4.Text = x
Else
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = "此方程有两个根"
End If
End Sub
Private Sub Form_Load()
Text4.Visible = False
Text4.Visible = False
End Sub
'这是一份解方程的程序
不是关闭了，而是隐藏了
Form1.Visible = ture'这句的意思就form1设置为不可见
Form1.Visible = ture 语句错误，应该是Form1.Visible = true，由于执行错误语句程序强行终止。
将Form1.Visible = ture 修改为：Form1.Visible = true，或直接删除此句。
另外：
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = "此方程有两个根"
应增加：
Text4.Visible = True
Text4.Text = "x1=" & x1 & " x2=" & x2
visible属性就是隐藏的意思！
Form1.Visible = ture
Text4.Visible = True
由于执行了这两句，所以form1，text4隐藏起来了，而text4是在form1，所以就会看到窗体突然消失的情况！
建议删除这两句！
Form1.Visible = ture
单词写错了， 是True
ME.close