UC知道vb分段函数短代码
来源：百度知道 编辑：UC知道 时间：2024/05/28 01:46:10
错误好像在第二个区间上，得到的总是0呢，求救！！
Private Sub Command1_Click()
Dim i, j As Single
i = Val(Text1.Text)
If i < 0 Then
j = 3 * i + 5
ElseIf i < 5 Then
j = 4 * Abs(x)
Else
j = (5 * i + 3) / (3 + 6 * i)
End If
Text2.Text = j
End Sub
Private Sub Command1_Click()
Dim i, j As Single
i = Val(Text1.Text)
If i < 0 Then
j = 3 * i + 5
ElseIf i < 5 Then
j = 4 * Abs(x)
Else
j = (5 * i + 3) / (3 + 6 * i)
End If
Text2.Text = j
End Sub
把第二区间的这句:
j = 4 * Abs(x)
改为
j = 4 * Abs(i)
*********************************
Private Sub Command1_Click()
Dim i, j As Single
i = Val(Text1.Text)
If i < 0 Then
j = 3 * i + 5
ElseIf i < 5 Then
j = 4 * Abs(i)'把这里的x改为i
Else
j = (5 * i + 3) / (3 + 6 * i)
End If
Text2.Text = j
End Sub