下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。 Private Sub Command1_Click() Dim x AS Single x=InputBox("请

admin2012-03-22 99

问题下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。
Private Sub Command1_Click()
Dim x AS Single
x=InputBox("请输入x的值!")
________
Case Is＜50
　　y=0.8*x
　Case 50 To 100
　　y=0.7*K
__________
Print"输入的数据出界!"
End Select
Print x，y
End Sub

选项

答案Select Case x Case Eles

解析

转载请注明原文地址:https://kaotiyun.com/show/71hp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类