下列VB程序段功能为：根据文本框Text1中各字符的大小关系，计算各字符升序排列的序号，并将序号保存在数组y中。如文本框内容为“2011”，程序运行后y（1）〜_刷题宝

题干

下列VB程序段功能为：根据文本框Text1中各字符的大小关系，计算各字符升序排列的序号，并将序号保存在数组y中。如文本框内容为“2011”，程序运行后y（1）〜y（4）各元素的值分别为“4，1，2，3”。
s =" Text1." Text
n = Len（s）
For i =" 1" To n
y（i） = 1
Next i
For i="1" To （1）
For j="（2）" To n
If （3） Then
y（j）=y（j）+1
Else
y（i） =" y（i）" + 1
End If
Next j
Next i
上述程序段3个方框处的表达式分别为

A．（1）n（2）1（3）Mid（s，j，1）>= Mid（s，i，1）

B．（1）n（2）1（3）Mid（s，j，1）> Mid（s，i，1）

C．（1）n-1（2）i+1（3）Mid（s，j，1）>= Mid（s，i，1）

D．（1）n-1（2）i+1（3）Mid（s，j，1）> Mid（s，i，1）

上一题下一题 0.99难度选择题更新时间:2018-11-12 12:11:24

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

同类题1

在Visual Basic中，有整型变量a=5，b=3，要在标签控件中显示结果为8，则执行下列语句能正确显示结果的是：（）

A．Label1.Caption=Str(a+b)

B．Text1.Text=Len(a)+Val(b)

C．Text1.Text= Sqr(a+b)

D．Label1.Caption=" Str(a)+" Str(b)

同类题2

程序修改题，每小题①②③④处有1处错误，找出并改正

（1）下列程序的功能是在文本框Text1中显示变量a和b的较大值。
a = 1：b = 2
① If a > b Then
② c = a
Else
③ c = b
End If
④ Text1.Caption = Str(c)
错误在______处，改为_______________。

（2）下列程序的功能是标签Label1中显示1+2+3+…+10值。
Dim s As Integer
Dim i As Integer
① s = 0
② For i =" 1" To 10
③ s = i
Next i
④ Label1.Caption = Str(s)
错误在______处，改为_______________。

同类题3

Sub test16()
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（）

同类题4

Sub test3()双重循环运行输出图形与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是（）

同类题5

小杨在上信息技术课时，为了计算100以内所有能被7整除的数之和，画了如下图所示流程图，则空白处应该填写的赋值语句是：（）

相关知识点