Question

VB编程，计算Y值，由键盘输入X（两种方法）

Y={ X的3次方+10 X<=0
X的平方-2 x>0

Answer 1

你写的我怎么有点不懂啊？
Y={ X的3次方+10 X<=0
X的平方-2 x>0
{x^3+10 (x<=0)
哦，我知道了，是不是y={
{x^-2 (x>0)

还好了
我用from的单击事件 计算y的值

第一种由inputbox输入
Private Sub Form_Click()
dim x ,y as double
A:
x=inputbox("请输入x的一个数值") '输入x
if notisnumeric(x) then
msgbox "输入必须为数字"
goto A '判断x是否为数值

if x<=0 then
y=x^3+10*x
else
y=x^-2
end if

print y
End Sub

第二种用textbox输入x
在from上放置两个textbox分别为text1、text2
text1中输入x的值
text2中显示结果y
代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If '直接用keypress事件限制输入只能是数字，但是也限制了退格键，删除需用Delete
End Sub

Private Sub Form_Click()
if val(text1.text)<=0 then
text2.text=Str(Val(text1.text)^3+10*Val(text1.text)) '如果你是初学者请注意编程的习惯
else
text2.text=Str(Val(text1.text)^-2)
end if
End sub