编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在...

题型：填空题题类：常考题难易度：困难

浙江省杭州市第二中学2015-2016学年高二下学期信息技术期中考试试卷

编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。

Dim a(1 To 6) As Integer

Dim b(1 To 6) As Integer

Private Sub Command1_Click() '对数组a中的数据进行排序

Dim i As Integer, j As Integer ，k as integer

a(1) = 53 :a(2) = 18:a(3) = 62:a(4) = 22:a(5) = 6:a(6) = 25

s = ""

For i = 1 To 5

k = i

For j = i + 1 To 6

If a(k) > a(j) Then

Next j

If i <> k Then

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

End If

Next i

For i = 1 To 6

s = s + Str(a(i))

Next i

Label1.Caption = s

End Sub

Private Sub Command2_Click()

b(1) = 3: b(2) = 8: b(3) = 15: b(4) = 27: b(5) = 38: b(6) = 49

'此处部分代码省略

End Sub

Private Sub Command3_Click()

'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示

i = 1: j = 1: s = ""

Do While i <= 6 j <= 6 '如果两数组都还有数据未合并

If Then

s = s + Str(a(i)) : i = i + 1

Else

s = s + Str(b(j)) : j = j + 1

End If

Loop

Do While i <= 6 '只有数组a还有数据未合并

s = s + Str(a(i)) : i = i + 1

Loop

Do While j <= 6 '只有数组b还有数据未合并

s = s + Str(b(j)) : j = j + 1

Loop

Label3.Caption = s

End Sub

举一反三

有一组正整数，要求对其中的数据进行排列，排列后奇数在前，偶数在后。其中最后一个数据排到奇数与偶数交接处;自前到后的第一个偶数排到最后一个位置，空出的位置排列自后向前的第一个奇数，依此类推。排序示例如下。

排序前	71	85	64	55	42	62	33	17	34	30
排序后	71	85	17	55	33	30	62	42	34	64

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n=10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim temp As Integer,flag As Boolean

'读取一组正整数，存储在数组a中，代码略

i=1:j=n

temp=a(j):flag=True

Do While i<j

If flag Then

If a(i) Mod 2=0 Then

a(j)=a(i)

j=j-1

flag=Not flag

Else

'{#blank#}1{#/blank#}

End If

Else

If a(j) Mod 2=1 Then

a(i)=a(j)

flag=Not flag

Else

j=j-1

End If

Loop

' {#blank#}2{#/blank#}

'依次输出排序后的数据，代码略。

End Sub

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相信两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示，实现上述功能的VB代码如下：

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean

i = 1

flag = True

Do While '改错

flag = False

For j = n To i + 1 Step -1

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

k = a(j): a(j) = a(j - 1): a(j - 1) = k

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为" + '填空

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

有如下VB程序段：

For i = 1 To 2

k = i

For j = i + 1 To 7

If a(j) < a(k) Then k = j

Next j

If i <> k Then

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

End If

Next i

数组元素a(1)到a(7)的值依次为“19，85，86，90，24，22，62”，经过该程序段“加工”后，数组元素a(1)到a(7)的值依次为（）

有如下VB程序段：

i = 1

Do While i <= 6

t = Int(Rnd * 10) + 1

If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1

Loop

For i = 1 To 2

k = 1

For j = 1 To 6 - i * 2

If a(j) * k > a(j + 2) * k Then

t = a(j) : a(j) = a(j + 2) : a(j + 2) = t

End If

k = -k

Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（）

【加试题】有如下VB程序段：

s = "adobe": ans = ""

For i = 1 To Len(s)

A(i) = Mid(s, i, 1)

Next i

For i = 1 To Len(s)

k = i

For j = i To Len(s) Step 2

If a(j) < a(k) Then k = j

Next j

If k <> i Then t = a(k): a(k) = a(i): a(i) = t

Ans = ans + a(i)

Next i

label1.Caption = ans

该程序段运行后，标签Label1中显示的内容是（）

某排序算法，VB代码如下：

i=1

Do While i<=5

If i = 0 or a(i - 1)<= a(i) Then

i=i+1

Else

t=a(i): a(i)=a(i-1): a(i-1)=t

i=i-1

End If

Loop

数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（）

相关试卷

公司介绍

服务介绍

帮助中心