有如下程序段：Fori="1"To2Forj="2"To7-iIfa(j)>a(j-1)Thenk="a(j):"a(j)="a(j"-1):a(j-1)=kE_刷题宝

题干

有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（）

A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78

B．此过程中数据共需比较次数为8次

C．此过程中数据共需交换次数为5次

D．此过程中数据“54”共被比较5次

上一题下一题 0.99难度选择题更新时间:2017-02-17 10:10:42

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

同类题1

有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )

同类题2

下列赋值语句正确的是（）

A．x+3=y－2	B．d=d+2
C．0=a	D．x－y=1

同类题3

设a=2、b=3,在VB中表达式Not a>b and b>=3值是_______。

同类题4

某电信部门规定：拨打市内电话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话时间为整数）。下面是计算通话费用的流程图和程序，请认真分析并回答问题。根据题意，完善流程图，填写空白处。

①
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim    ② as ③
  ‘定义 x 为整型
x = Val(Text1.Text)
   ④ Then
‘条件语句
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于    ⑥ 结构程序设计。

同类题5

输出的结果为。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s

相关知识点