高校问答哭砂张惠妹怎么样:为什么我这个VB运行不来啊,各位高手帮帮忙
来源：百度文库 编辑：高校问答 时间：2024/04/30 05:24:27
Private Sub Form_click()
Dim x As Integer, y As Integer
x = InputBox("输入x", "计算分段函数值")
Select Case x
Case x <= 5
y = 1 - x * x
Case x > 5
y = (x - 5) ^ 0.25
Text1.Text = " y" & Str(w)
End Select
End Sub
Dim x As Integer, y As Integer
x = InputBox("输入x", "计算分段函数值")
Select Case x
Case x <= 5
y = 1 - x * x
Case x > 5
y = (x - 5) ^ 0.25
Text1.Text = " y" & Str(w)
End Select
End Sub
Text1.Text = " y" & Str(w)应该放在End Select 后面
但我不知道你的Str(w) 这个w是什么,根本就什么都没有嘛,是不是y 啊??
y = 1 - x * x 和 y = (x - 5) ^ 0.25
极有可能是负数或小数,而你却定义为整型,这不行的.