题库 高中信息

题干

小明最近学习了一种新的排序方法,其基本思想是:经过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)=kB.a(j+1)=kC.a(i)=kD.a(j-1)=k
上一题 下一题 0.99难度 选择题 更新时间:2020-03-31 09:11:32

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

同类题5

小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温,并存放在 ACCESS数据库中。程序运行时,读取日期和最高气温并显示在列表框 List1 中,在文本框 Text1 中输入温度值,单击“统计”按钮 Command1,程序自动统计运行在该温度值及以上的最长连续天数,并显示在 Text3 中,同时在 Text2 中显示日期区间,运行界面如下图所示。

实现上述功能的 VB 代码如 下,在划线处填入合适代码。
Dim rq(1 To 100) As String ‘ 存放日期
Dim qw(1 To 100) As Integer ‘ 存放最高气温值
Dim n As Integer '总天数
Private Sub Form_Load()
' 读取数据库内容,其中日期数据存放在数组 rq 中,最高气温数据存放在 qw 中,第 i 个日期保存在 rq(i)中,对应的气温保存在 qw(i)中,并显示在列表框 List1 中,代码略
End Sub
Private Sub Command1_Click()
Dim ntempend As Integer ‘ 记录当前结束日期的下标
Dim max As Integer   ‘ 记录最大连续天数
Dim nend As Integer ‘ 记录最大连续天数下的结束日期的下标
Dim ncount As Integer ‘ 统计连续天数
Dim tjqw As Integer   ‘ 存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If  ___________①___________ Then
ncount = ncount + 1
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________
End If
Next
If max <> 0 Then Text2.Text = ___________③___________ & "-" & rq(nend)