![[填空题] 下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。Private Sub Commandl,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%EF%BC%9A%E5%BD%93X%EF%BC%9C50%E6%97%B6%EF%BC%8Cy%3D0.8%C3%97x%EF%BC%9B%E5%BD%9350%E2%89%A4x%E2%89%A4100%E6%97%B6%EF%BC%8Cy%3A0.7%C3%97X%EF%BC%9B%E5%BD%93x%EF%BC%9E100%E6%97%B6%EF%BC%8C%E6%B2%A1%E6%9C%89%E6%84%8F%E4%B9%89%E3%80%82%E8%AF%B7%E5%A1%AB%E7%A9%BA%E3%80%82Private+Sub+Commandl.png "[填空题] 下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。Private Sub Commandl,第1张")
[填空题] 下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。
Private Sub Commandl_Click()
Dim x As Single
x=InputBox("请输入x的值!")
[10]
Case Is ＜50
Y=0.8*x
Case 50 To 100
Y=0.7*x
[11]
Print"输入的数据出界!"
End Select
Print x，y
End Sub
正确答案：Select Case x
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）