有如下VB程序段:x=25:y=20If x>y Theny=y+20If y>50Theny=y^2Elsey=y^2y=x+yEnd IfLabel1.Ca_刷题宝

题干

有如下VB程序段:
x=25: y=20
If x>y Then
y =y+20
If y>50 Then y=y^2
Else
y=y^2
y=x+y
End If
Label1. Caption=Str(y)
该程序段执行后，标签Labell中显示的内容是（）

A．1600

B．425

C．400

D．40

上一题下一题 0.99难度选择题更新时间:2019-05-07 09:41:09

答案(点此获取答案解析）

同类题1

在Visual Basic中，若a=4，b=3，语句If a>b Then c=a+1 Else c=b-1执行后，下列说法正确的是（）。

A．执行了语句c=a+1

B．先执行c=a+1，再执行c=b-1

C．执行了语句c=b-1

D．先执行c=b-1，再执行c=a+1

同类题2

若输入站数a为11，人数b为2，则运行的结果为_______

同类题3

某算法部分流程图如图所示。执行这部分流程，依次输入12、-5、29、18、7，则输出值是（）

同类题4

若输入28，以上代码输出结果是_______________。
Dim x as long
x=inputbox(“输入x的值”)
y="x" mod 7
if y="4" or y="5" or y=" 6" then
xq=y-3
else
xq=y+4
end if
print xq

同类题5

某快递公司规定自己的快递收费标准（不含香港、澳门、台湾），1公斤以内省内10元省外13元，超出部分每公斤省内2元省外2.5元。寄往香港、澳门、台湾的标准是……。上述描述用计算机算法表达时对应的算法结构是（）

A．顺序结构	B．选择结构
C．循环结构	D．框架结构

相关知识点