有如下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

在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千克10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到的程序结构是（）。

同类题2

若执行时输入18，以下流程图描述的算法执行结果是（）

同类题3

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。
程序运行界面如右图所示。

（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句________（单选，填字母：

A．Width=2018 /

B．Textl. Width = 2018 /

C．Width. Textl=2018）。

（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integer
s = Textl.Text: n = Len(s): i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "东"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v=_______________①
List1.AddItem d + " " + Str(v)
_____________②
Loop
End Sub
（3）若文本框Textl中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是_________。

同类题4

输入x为4，流程图运行结果为：（）

同类题5

下图描述的是求A的绝对值的算法。

为其中的空白处选择合适的选项_ ____。

相关知识点