UC知道vb一道作业题
来源：百度知道 编辑：UC知道 时间：2024/05/08 13:16:50
实现
y= x, x<1000
0.9x, 1000<=x<2000
0.8x, 2000<=x<3000
0.7x, >=3000
用print输出y 不用print函数显示y
谢谢！~~~~~~~~~~~~~~~~
y= x, x<1000
0.9x, 1000<=x<2000
0.8x, 2000<=x<3000
0.7x, >=3000
用print输出y 不用print函数显示y
谢谢！~~~~~~~~~~~~~~~~
Private Sub Command1_Click()
x = Val(InputBox("输入x值"))
Select Case x
Case Is < 1000
y = x
Case Is < 2000
y = 0.9 * x
Case Is < 3000
y = 0.8 * x
Case Is >= 3000
y = 0.7 * x
End Select
Open "c:\1.txt" For Output As #1
Print #1, y
Close #1
End Sub
select case x
case <1000
y=x
case <2000
y=0.9*x
case <3000
y=0.8*x
case >=3000
y=0.7*x
end select
print y