插入排序。小明用VB设计程序，主要功能如下：随机产生10个介于1到100之间的正整数数列，按升序排序后显示在List1列表框中，在文本框Text1中输入1个10

题干

插入排序。小明用VB设计程序，主要功能如下：随机产生10个介于1到100之间的正整数数列，按升序排序后显示在List1列表框中，在文本框Text1中输入1个100以内的正整数，单击“插入”按钮Command1后将其插入到数列中，并保持数列仍然有序，显示在列表List2中，同时在标签Label4中显示插入的位置，程序界面如下图所示。

实现上述功能的VB程序代码如下，但是有两个地方有误，请改正。
Dim a(1 To 15) As Integer
Dim i, j As Integer
Const n=10
Private Sub Form_Load()

Randomize '随机生成n个1到100之间的正整数

For i = 1 To n

a(i) = Int(Rnd * 100) + 1

Next i

'将10个数从小到大排序

For i = 1 To n-1

k = i

For j = i + 1 To n

If a(k) < a(j) Then k = j ‘（1）

Next j

If i <> k Then

t = a(i): a(i) = a(k): a(k) = t

End If

Next i

'将排好序的数输出在列表框Listl中

List1.Clear

For i = 1 To n

List1.AddItem Str(a(i))

Next i

End Sub
Private Sub Command1_Click()

Dim key As Integer

key = Val(Text1.Text)

i = 1

Do While key > a(i) And (i <= n)

i = i + 1

Loop

Label4.Caption = "该数插入的位置是：" + Str(i)

If i = 11 Then

a(i) = key

Else

For j = n+1 To i + 1 Step -1
a(j-1) = a(j+1) ‘（2）
Next j
a(i) = key

End If

List2.Clear

For i = 1 To 11

List2.AddItem a(i)

Next i

End Sub

上一题下一题 0.99难度填空题更新时间:2019-04-16 09:09:37

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

同类题1

（加试题）下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个1，999范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是__________。（填：冒泡排序 / 选择排序）
（2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer，j As Integer
Dim x As Integer，k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
①________     ′产生1，999范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str( a(n))
End If
Loop
For i=1 To 9 ′进行排序
For j=10 To i+1 step -1
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
For i=1 To 10
②___________
Next i
End Sub

同类题3

小王用 VB 编写一个自动统计离散数据的“极大值”（如图 a 所示）个数的程序。功能如下：在列表框 List1 中随机产生 n 个介于1,99的正整数，单击“统计极大值”命令按钮 Command1，程序自动统计出极大值，并将其输出到列表框 List2，且将其中的最大值输出在标签 Label1 中。程序界面如图 b 所示，实现上述功能的 VB 程序如下。（假设：数据的左右两个端点不计入极大值，且相等的两个值也不计入极大值）。请回答以下问题：

图 a 图 b
（1）当 n=6，原始数据为“8 39 24 5 71 25”,此时极大值有：。
（2）请在划线处填入合适的代码。 Const n = 10
Dim a(1 To n) As Integer    '存储原始数据 Dim Max(1 To n) As Integer '存储极大值数据
Private Sub Form_Load() '原始数据初始化
Randomize
For i = 1 To n
a(i) = ① '产生1,99间随机整数
List1.AddItem Str(a(i))
Next i End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim count As Integer, Maxa As Integer
count = 0
List2.Clear
For i = 2 To n - 1 '统计极大值，左右两边端点值除外
If   ②     Then
count = count + 1
    ③   = a(i)
End If
Next i
Maxa = 0
For i = 1 To count
List2.AddItem Str(Max(i))
If Maxa < Max(i) Then
Maxa = Max(i)
End If
Next i
Label1.Caption = "极大值中的最大值为：" + Str(Maxa) End Sub

题干

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

同类题1

同类题2

同类题3

同类题4

同类题5