酒店客房效果图手绘:我用VB作的分段函数运行不了,请高手指教!!!
来源:百度文库 编辑:高校问答 时间:2024/07/08 12:05:10
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。