小明最近学习了一种新的排序方法，其基本思想是：经过i-1遍加工后，a(1)到a(i-1)已经有序，第i遍加工时将a(i)插入到位置1到位置i之间的适当位置p（包_刷题宝

题干

小明最近学习了一种新的排序方法，其基本思想是：经过i-1遍加工后，a(1)到a(i-1)已经有序，第i遍加工时将a(i)插入到位置1到位置i之间的适当位置p（包含位置1和位置i），原来位置p及p后的元素一一向右移动一个位置（若插入在位置i，则不需要移动其他元素），使得a(1)到a(i)依然有序，依此重复下去，直到n个数全部排序完成，VB程序段如下：
For i=2 To n
k=a(i):j=j-1
Do While k<a(i)
a(j+1)=a(j)
j=j-1
If j=0 Then Exit Do
Loop

Next i
要实现上述排序算法，方框内VB语句应为（）

A．a(j)=k

B．a(j+1)=k

C．a(i)=k

D．a(j-1)=k

上一题下一题 0.99难度选择题更新时间:2020-03-31 09:11:32

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

同类题1

（加试题）某算法流程图如下图所示，该流程图对应的程序段为（）

A．s = 0
For i = 1 To 20
If i Mod 3 = 0 Then
s = s + 2 * i
Else
i = i + 1
End If
Next i

B．i = 1
For s = 0 To 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Next i

C．i = 1: s = 0
Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
Else
i = i + 1
End If
Loop

D．i = 1: s = 0

Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Loop

同类题2

（加试题）某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1 ”。
Private Sub Command1_Click()
Dim a As intger, i As intger, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i > n Then ① Else ②
Next i
text2.Text = s
End Sub
为实现以上功能，①②处分别填写( )

A．①s=Str(2*n-i) ②s=Str(i)	B．①s=s+Str(2*n-i) ②s=s+Str(i)
C．①s=s+Str(2n-1) ②s=s+Str(2n)	D．①s= Str(2n-1) ②s= Str(2n)

同类题3

以下算法是用循环结构求数列1,3,5,7,9…前10项的和。完成空缺部分。（每行只能填写一个VB语句）
dim i as integer
dim a as integer
dim sum as integer
1
i=1
do while i<=10
2
sum=sum+a
i=i+1
loop
print sum

同类题4

现有如下Visual Basic程序段：

Private Sub Command1_Click()

Dim a(-1 To 8) As Integer

Dim i As Integer

For i = -1 To 8

Next i

Print a(i)

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示可能是（）

A．子程序或函数未定义

B．下标越界

D．类型不匹配

同类题5

有如下VB程序段：
For i=2 To 8
Max=0
For j=1 To i-1
If a(i)>a(j) And f(j)>Max Then Max=f(j)
Next j
f(i)=Max+f(i)
Next i
数组f元素的初始值都为1，数组a的元素值为5,3,47,4,31,39,7,8，程序运行后f(6)的值为（）

相关知识点