[加试题]小王设计了一个程序来列举仁川亚运会奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。请根据算法将下列程序补充完整。 Dim a(1 To 45) As String Dim b(1 To 45) As Integer Private Sub FormLoad() a(1) = &amp...

题型：填空题题类：模拟题难易度：普通

浙江省杭州市2016年信息技术高考模拟卷四

[加试题]小王设计了一个程序来列举仁川亚运会奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。

请根据算法将下列程序补充完整。

Dim a(1 To 45) As String

Dim b(1 To 45) As Integer

Private Sub FormLoad()

a(1) = "中国"

b(1) = 308 ‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中

End Sub

Private Sub Command1Click()

Dim i As Integer,j As Integer

Dim t As Integer,f As Integer

List1.Clear

For i = 1 To 3

For j = To 2 Step -1

If Then

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

t = b(j): b(j) = b(j - 1): b(j - 1) = t

End If

Next j

Next i

For i = 1 To 3

List1.AddItem "第" + Str(i) + "名" + a(i) + " 奖牌数" + Str(b(i))

Next i

End Sub

举一反三

在冒泡排序时，当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此小明对冒泡排序进行了优化，编写了一个VB程序，功能如下，运行程序时，在列表框List1中显示随机产生的n个整数，单击“排序”的按钮Command1，在列表框List2中显示降序排序后的结果，运行的效果如图所示。

实现上述功能的VB代码如下，但划线处代码有错，请改正。

Const n As Integer = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 1 To n

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

End Sub

Private Sub Command1_Click()

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

For i = 1 To n - 1

k = 0

For j = n To i + 1 Step -1

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

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

k = k + 1

End If

Next j

If k > 0 Then i = n

Next i

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

以下程序的功能是随机生成100个97-122之间的正整数（包括97和122），并将一个区间内的数（第x个元素到第y个元素）取出并按升序输出。请修改加框处的错误。

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

x = Val(Text1.Text)

y = Val(Text2.Text)

For i = 1 To 100

(1)

List1.AddItem Str(a(i))

Next i

For i = x To y - 1

k = i

For (2)

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

Next j

If k <> i Then

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

End If

Next i

For i = x To y

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

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

排序前	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

有如下VB程序段：

For i = 1 To 2

For j = 5 To i + 1 Step -1

If a(j) > a(i) Then

t = a(j): a(j) = a(i): a(i) = t

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，,4,16,77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（）

【加试题】小张编写程序，实现把数据temp插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1)、a(2)、a(3)、……、a(n)中。他编写的VB程序段如下：要使程序实现上述功能，则方框①②中的语句分别是（）

If temp >= a(n) Then

a(n + 1) = temp

Else

j = n

Do While j >= 1 And temp < a(j)

①

j = j -1

Loop

②

End If

有一组正整数，要求仅对其中的奇数进行升序排序。排序后在列表框List2中也仅显示奇数部分数据，结果如图所示。

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

Const n=10

Dim a (1 To n) As Integer

Private Sub Command1_Click()

Dim t As Integer, i As Integer, j As Integer, m As Integer

Dim tmp As Integer

'读取一组正整数，存储在数组a中，并显示在列表框List1，代码略

i=1

Do While i<=n

For j=n To i+1 Step-1

If a(j) Mod 2=1 Then

If ① Then

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

t=t+1

End If

Next j

If ② Then m=m+1

i=i+1

Loop

For i=1 to m

List2.AddItem Str(a(i))

Next i

List2.AddItem "一共交换了"& t & "次"

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

相关试卷

公司介绍

服务介绍

帮助中心