关于VB的问题 Private Sub Command1_Click() Dim x As Single, z As Single, y As Single x = Val(Text1.
发布网友
发布时间：2023-02-14 22:43
共1个回答
热心网友
时间：2023-09-13 10:35
Dim x As Single, z As Single, y As Single
x = Val(Text1.
???
nei rong bu quan a追问我是菜鸟，请问应该怎样改？
请指教
追答x=-38.9,z=10
If z < 0 Then '因为Z=10不满足z<0的条件就直接进入这个IF的else中，就是***的地方
If x < -10 Then
y = x ^ 2 + z ^ 2
Else
y = x + z
End If
**** Else
If x < -30 Then‘因为x=-38<-30所以 y=x/z+3.89=-3.8/10+3.89=0.09,所以Text3.Text = Str(y)
=0.09，别忘了你的y也是定义的single，要是定义为integer，那么y=0了
y = x / z + 3.89
ElseIf x < -8 Then
y = x * Sin(z)
Else
y = Abs(x - z) ^ 0.5
End If
End If
Text3.Text = Str(y)
