vbvb 关于计算方法问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 22:26:40
求f(x),使其满足：当前仅当x=6,9,15,27,30时，f(x)=x/3 ，其他的虽然不等于x/3，但还是可以用当前算法正常计算的。
这样，我加进去两个text一个Command1，点击Command1，text2出结果
拿一个数来举例
如
Private Sub Command1_Click()
a=text1.text
text2.text=a-4'计算方法
End Sub
这时，我在text1输入6，text2输出2，和6/3的结果一样
但我在text1输入18，text2输出14，这个结果就不等于18/3了
一个数我可以这么写，但多个数该怎么写
要用同样的计算方法，其他的情况不知道你的要让它等于多少---等于正常计算的结果，但结果不能是/3

x=val(text1)
select case x
case 6,9,15,27,30
text2=x/3
case else
text2=f(x) '函数表达式你自己定
end select

Private Sub Command1_Click()
a=val(text1.text)

'当前仅当x=6,9,15,27,30时，f(x)=x/3
If a = 6 Or a = 9 Or a = 15 Or a = 27 Or a = 30 Then
Text2.Text = a / 3

'其他的情况不知道你的要让它等于多少
Else
Text2.Text = a - 4
End If
End Sub

除了用分段函数外，你的要求是不可能实现的。