VB题目4：计算分段函数
由文本框输入一个数，单击“计算”按钮，计算分段函数Y的值，在图形框中按双精度输出。
Y=X+5X-8 x<0
Y=8X x>=0
相关代码如下：
Dim Y As Double, X As Single
Private Sub Form_Load()
我记得你 Text1.Text = ""
Command1.Enabled = Fal
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Picture1.Cls
Text1.SetFocus
Command1.Enabled = Fal
多分学情End Sub打弹子
Private Sub Command1_Click()
染发剂排名
If X >= 0 Then
猫拉肚子吃什么药最好 Y = 8 * X + Exp(X)
El
Y = X ^ 3 + 5 * X - 8
End If
Picture1.Print Space(6); "输入X="; X
Picture1.Print "分段函数Y="; Y
End Sub
老师对学生评语Private Sub Text1_LostFocus()
借款借条 If Not IsNumeric(Text1.Text) Then
MsgBox "不是数字，重新输入！", 16, "出错信息"
Text1.Text = ""
Text1.SetFocus
El
支部学习
Command1.Enabled = True
X = Val(Text1.Text)
Command1.SetFocus
End If
End Sub
