计算机二级
下列程序的功能是:当x100时, Private Sub Command1_下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,Private Sub Command1_Click()Dim x As Singlex = InputBox("请输入x的值" )Select Case xCase Is＜50y=0.8 * xCase 50 To 100y=0.7 * x【 】Print "输入数据出界!"End SelectPrint x, yEnd
题目
下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,
Private Sub Command1_Click()
Dim x As Single
x = InputBox("请输入x的值" )
Select Case x
Case Is＜50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【 】
Print "输入数据出界!"
End Select
Print x, y
End Sub
相似问题和答案
第1题：
某反应的速率方程式是v=kcx（A)cy（B)，当c（A)减少50％时，v降低至原来的，当c（B)增大2倍时，v增大1.41倍，则x,y分别为
A．x=0.5， y=1
B．x=2，y=0.7
C．x=2 ,y＝0.5
D．x=2，y=2
第2题：
在关于下面程序段的说法中，正确的是（）。 if x＜0 Then y = Cos（x) y = Sin（x)
A．当x＞=0，y = Cos(x)；当x＜0，y = Sin(x)
B．无论x的值是什么，y = Cos(x)
C．当x＞=0，y = Sin(x) ；当x＜0， y = Cos(x)
D．无论x的值是什么，y = Sin(x)
第3题：
在关于下面程序段的说法中，正确的是 。 if x＜0 Then y = Cos（x) y = Sin（x)
A．当x＞=0，y = Cos(x)；当x＜0，y = Sin(x)。
B．无论x的值是什么，y = Cos(x)
C．当x＞=0，y = Sin(x) ；当x＜0， y = Cos(x)
D．无论x的值是什么，y = Sin(x)
第4题：
下列程序的输出结果是：___________。 x = 10 y = 20 def swap（x, y): t = x x = y y = t print（x, y) swap（x,y) print（x,y)
A．20 10 10 20
B．10 20 10 20
C．10 20 20 10
D．20 10 20 10
第5题：
下列程序的功能是：当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
第6题：
根据下列程序，X、Y的值正确的是（ ）。 Dim xAs SingleDim yAs SingleIfx<；0 Theny-=3Elsejf x<；l theny=2*xelsey=48x+6Endif
A.当x=2时，y=一2
B.当X=-1时，y=一2
C.当x=0．5时，y=4
D.当x=一2．5时，y=11
暂无解析，请参考用户分享笔记
第7题：
填空：
（1）已知函数 y=2（x+1）²+1，当x＜____时，y随x的增大而减小，当x＞ _____时，y随x的增大而增大，当x=______时，y最_____；
（2）已知函数 y=-2x²+x-4，当x＜_____时，y随x的增大而增大，当x＞_____时，y随x的增
大而减小，当x=______时，y最_____；
（3）二次函数 y=ax²+bx+c，a ＞0 ,当x＜_____时，y随x的增大而减小，当x＞_____时，y
随x的增大而增大，当x=______时，y最_____；
（4 )二次函数 y=ax²+bx+c，a ＜0 ,当x＜_____时，y随x的增大而增大，当x＞_____时，y随
x的增大而减小，当x=______时，y最_____。
(1)-1,-1,-1,小
(2)1/4,1/4,1/4,大
(3)-b/2a, -b/2a,-b/2a,小
(4) -b/2a, -b/2a, -b/2a,大
第8题：
下列程序的功能是:当x<50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当x>100时,没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值!")
Select Case x
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【 】
Print "输入的数据出界!"
End Select
Print x, y
End Sub
Case Else 解析：考查考生对多分支控制结构的掌握。阅读程序后,在Select Case 结构中,只有两个Case子句,分别表示x取值的两种情况,但题目中将x的值分为3种情况,空白处应该填写Case Else语句。嵌套使用多分支控制结构时,应注意程序执行过程。
第9题：
A. X x=new X();
Y y=new Y();
Z z=new Z();
y=(Y)x;
B. X x=new X();
Y y=new Y();
Z z=new Z();
x=(X)y;
C. X x=new X();
Y y=new Y();
Z z=new Z();
Z=(Z)x;
D. X x=new X();
Y y=new Y();
Z z=new Z();
W w=(W)x;
答案：D
解析：对象的强制类型转换的格式要求："W w=(W)x;"，只有D项符合