*
分段函数判断求值
举报
发布于：2022-11-06
更新于：2022-11-06
0
558
作品介绍:
问题6.输入x，计算y的值。其中：y=1+3x (x>=0); y=1-5x (xɘ)。
操作说明:
Sub 判断求值() x = Val(InputBox("x=")) If x >= 0 Then y = 1 + 3 * x Else y = 1 - 5 * x End If Cells(1, 3) = "x=" Cells(1, 4) = x Cells(1, 5) = "时，y=" Cells(1, 6) = y End Sub 将vb程序转化为 Makeblock的方法。