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

某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生，只输出学号排在前面的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出最大成绩。实现上述功能的VB代码如下，请补全代码。
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max =    ①       （1分）
For i =" 2" To n
if     ②     (2分)
Next i
Text1.Text = "成绩最高分是：" + Str(max)
End Sub
(1)程序中①画线处应填入    。
(2)程序中②画线处应填入    。

同类题2

仔细分析以下流程图所示算法的功能，并回答问题。
（1）①处所示语句的功能是
（2）写出语句②对应的VB表达式
（3）程序运行的结果是

同类题3

（2018秋•温州期末）某算法的部分流程图如图所示，执行该流程后，输出i，k的值分别是（　　）

同类题4

（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then f = 1 Else f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（）

同类题5

有如下VB程序段
m=a(1)
For t=2 to 15 step 2
If a(t) > m then m=a(t)
Next t
该程序段执行后，变量t的值是（）

相关知识点