试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省桐庐分水高级中学2019-2020学年高三上学期信息技术第一次月考试卷

在探究冒泡排序过程中数据的“移动”情况,小明编写了一个VB程序,功能如下:在列表框List1中显示排序前数据(存储在数组a中),在文本框Text11中输入初始位置(即下标值),单击“排序”按钮Command1后,在标鉴Label4中显示指定初始位置的数据在排序过程中的位置变化情况,排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下:

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'排序前的8个数据存储在数组a中,并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer        '变量pos存储指定数据的位置(即下标值)

Dim s As String            '变量s存储pos变化情况

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(j) < a(j - 1) Then

k = a(j - 1)

a(j)=a(j-1)    '(2)改错

a(j) = k

'如果pos位置的数据参与交换,则更新pos值,记录pos变化情况

If pos = j Then

pos = j - 1

s = s + "→" + Str(pos)

ElseIf                        Then '填写代码

pos = j

s = s + "→" + Str(pos)

End If

End If

Next j

Next i

Label4.Caption = "位置变化情况:" + s

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

(1)、要使程序运行后,窗体Form1标题立即自动显示为“冒泡排序程序探究”,可在(单选,填字母:A . Form_Load / B . Form_Click / C . Command_Click)事件过程中添加语句Form1.Caption=“冒泡排序程序探究”。
(2)、程序代码中,加框处代码有误,请写出正确程序    
(3)、程序代码中,ElseIf  Then 语句处代码缺失,请补充正确程序
(4)、根据程序,若在Text1中输入的初始位置为3,则Label4中显示的内容为  。
举一反三
返回首页

试题篮