7,789
社区成员
发帖
与我相关
我的任务
分享谁有vb6的环境，给做个简单的题。
已知y=x2－︱x+2︱+5(x的2次幂减去x+2的绝对值然后在加5 ),编程求y的值。要求:在文本框中输入x的值，单击“计算”按钮在“y”框中显示y的值；单击“退出”按钮退出程序；建立名为“求函数值”的文件夹，并将有关文件保存至该文件夹中。
就这么简单，我没vb的环境。
不待了再装了，大家帮帮忙，把原代码给我就行了。
也是帮别人。。。。
就这么简单，我没vb的环境。
不待了再装了，大家帮帮忙，把原代码给我就行了。
也是帮别人。。。。
...全文
请发表友善的回复…
发表回复
chang110cn 2005-05-11
- 打赏
- 举报
thank you!
apingmiao 2005-05-11
- 打赏
- 举报
Private Sub CmdCompute_Click()
If IsNumeric(TxtX) = False Then
MsgBox "您的输入有误，请输入数字！", vbInformation, "提示"
Exit Sub
End If
Dim X As Double, Y As Double
X = Val(TxtX)
Y = X ^ 2 - Abs(X + 2) + 5
TxtY = Format(Y)
End Sub
Private Sub CmdExit_Click()
End
End Sub
If IsNumeric(TxtX) = False Then
MsgBox "您的输入有误，请输入数字！", vbInformation, "提示"
Exit Sub
End If
Dim X As Double, Y As Double
X = Val(TxtX)
Y = X ^ 2 - Abs(X + 2) + 5
TxtY = Format(Y)
End Sub
Private Sub CmdExit_Click()
End
End Sub
