高考问答直播深圳公共频道:各位VB高手帮帮忙
来源：百度文库 编辑：高考问答 时间：2024/04/29 13:15:38
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
一定要用情况选择结构
case 后面不是跟条件表达式的。改成if...then形式吧
Private Sub Form_click()
Dim x As Integer, y As Integer
x = InputBox("输入x", "计算分段函数值")
if cint(trim(x))<=5 then
y = 1 - x * x
else
y = (x - 5) ^ 0.25
end if
Text1.Text = " y=" & y
End Sub