学进去-教育应平等而普惠
试题
类型:操作题
难度系数:0.40
所属科目:高中信息技术
小明基于插入排序思想设计了一个改进的排序算法。输入 n 个两位正整数到数组 a,判断数组 a 中每个元素的奇偶性,若为奇数则将其放前插入适当位置,若为偶数则将其放后插入适当位置。排序完后数组 a中所有奇数在前升序排序,偶数在后降序排序。程序代码如下:
Dim a(1 To 100) As Integer, n As Integer
Function moving( start As Integer, finish As Integer, st As Integer)
'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间
Dim i As Integer, k As Integer
k = a(finish)
For i = finish - st To start Step -st
a(i + st) = a(i)
Next i
a(start) =k
End Function
Private Sub Command1_Click()
Dim head As Integer, endl As Integer, i As Integer, ans As String
' 将待排序的数存储在数组 a 的 a(1)至 a(n)中,并输入元素个数 n,代码略
head = 1: endl = n + 1
Do While head < endl
If___________Then
For i = 1 To head - 1
If a(i) > a(head) Then Exit For
Next i
Call moving(i, head, 1)
head = ___________
Else
For i = endl To n
If a(i) < a(head) Then Exit For
Next i
Call moving______________
endl = endl - 1
End If
Loop
For i = 1 To n
ans = ans + Str(a(i))
Next i

Text2.Text = ans End Sub

请回答下列问题:
(1)若输入 n=5,元素 a(1)至 a(5)的初值为:11,12,13,14,15,运行程序后,输出的结果为_____
(2)实现上述功能的 VB 程序如下,请在划线处填入合适的代码。
(3)如果输入的 n 个数中有非正整数(数保证能在 Integer 型存储),运行程序后的输出_____(选填:能 / 不能)保证仍是奇数在前升序排序,偶数在后降序排序。
编辑解析赚收入
收藏
|
有奖纠错

同类型试题

优质答疑

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

用户名称
2019-09-19

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

用户名称
2019-09-19
我要答疑
编写解析
解析:

奖学金将在审核通过后自动发放到帐

提交
我要答疑
我要答疑:
提交