有如下VB程序段：DimiAsInteger，cAsString，sAsString，tAsStrings＝“China2014IT”：t＝“”Fori＝1To_刷题宝

题干

有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
　c＝Mid(s，i，1)
　If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )

A．2014	B．ChinaIT
C．hina	D．CIT

上一题下一题 0.99难度选择题更新时间:2020-01-17 01:18:35

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

同类题1

设计算法，求个位不小于十位的两位数的和，请将如下VB代码填写完整。
Dim n as integer
n = 10
（1）__________
do while n <= 99
if （2）__________ then
s = s+n
end if
n = n + 1
loop
print s

同类题2

将两位同学的身高放入变量a和b中，比较这两个变量的大小，最后把其中较大的数放到变量c中并输出，流程图如图所示。①中应填（）

同类题3

如下VB程序段：
x = InputBox("输入x的值：")
If x > 3 Then
If x <= 6 Then
y = 2 * x
Else
y = 3 * x
End If
Else
y = 4 * x
End If
Print y若x、y均是整型变量，程序运行并输入6，则y的值是（）

同类题4

（加试题）有如下VB程序段：
a(1)=1
For i=2 To 6
Randomize
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2=1 Then
a(i)=a(i)\2+1
EIse
a(i)=a(i)/2
End If
Next i
执行程序后，a数组各元素可能是

A．1 3 4 6 7 9

B．1 2 0 3 5 6

C．1 2 3 4 5 4

D．1 3 4 5 1 1

同类题5

有如下VB程序段：
Dim a(1 To 6)As Integer
n=6：i=1
Do While i <=n

x=Int(Rnd * 10)+1

If i Mod 2=x Mod 2 Then

a(i)=x
i-i+1
Else
a(n)=x
n=n-1
End If
Loop执行该程序段后，在下列选项中，a数组各元素的值可能是（）

A．3，4，0，6，6，8	B．1，8，9，11，1，5
C．2，5，8，6，7，10	D．5，3，3，7，7，3

相关知识点