高考问答贵州遗弃的女婴:我用VB作的分段函数运行不了，请高手指教！！！
来源：百度文库 编辑：高考问答 时间：2024/04/28 12:32:54
Option Explicit
Private Sub Command1_Click()
x = Val(Text1.Text)
y = 3 * x + 2
If x <> 0 Then
y = x ^ 2 - 5
Text2.Text = y
End Sub
Private Sub Command2_Click()
x = Val(Text1.Text)
If x <> 0 Then
y = x ^ 2 - 5
Else
y = 3 * x + 2
End If
Text3.Text = y
End Sub
Private Sub Command3_Click()
x = Val(Text1.Text)
If x <> 0 Then y = x ^ 2 - 5
If x = 0 Then y = 3 * x + 2
Text4.Text = y
End Sub
Private Sub Command1_Click()
x = Val(Text1.Text)
y = 3 * x + 2
If x <> 0 Then
y = x ^ 2 - 5
Text2.Text = y
End Sub
Private Sub Command2_Click()
x = Val(Text1.Text)
If x <> 0 Then
y = x ^ 2 - 5
Else
y = 3 * x + 2
End If
Text3.Text = y
End Sub
Private Sub Command3_Click()
x = Val(Text1.Text)
If x <> 0 Then y = x ^ 2 - 5
If x = 0 Then y = 3 * x + 2
Text4.Text = y
End Sub
应该在最前面“声明”处定义x,y
Private Sub Command3_Click()
x = Val(Text1.Text)
If x <> 0 Then y = x ^ 2 - 5
If x = 0 Then y = 3 * x + 2
Text4.Text = y
End Sub
这里面少了两个end if
楼上错了，这里不需要 End If
1、在窗体层使用了 Option Explicit语句，则必须使用 Dim、Private、Public、ReDim 或 Static 等语句来显式声明所有的变量。如果使用了未声明的变量，程序在编译时就会出现错误。
2、Command1的单击事件中块IF缺少End If。