- 二一组卷

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

浙江省十校联盟2020届高三上学期信息技术10月联考试卷

纪念品分组问题。某教师节晚会的纪念品分组规则如下：

按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定值w，单击“分组”按钮，在标签Label2上输出最少的分组数。程序运行界面如图所示。

（1）、要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在 Form Load事件过程中添加语句(单选，填字母：A .Fron1=“纪念品分组”/B .Form1.Name=“纪念品分组”/C .Form1. Caption=“纪念品分组”/D . Forml.Text=纪念品分组”)。

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。

Private Sub Command1 Click（）

Dim a(1 To 1000), n As Integer, w As Integer, cnt As Integer

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

Dim s As String, ch As String

Dim p As Integer, q As Integer

s= Text1. Text： w= Val (Text2 Text)： n=0

For i= 1 To Len (s)

ch= Mid(s, i, 1)

If ch=“,”Then

n=n+1：a(n)=t：t=0

Else

End If

Next i

For i= n To 2 Step-1

For j= 1 To ‘

If a(i)< a(j+1)Then

t=a(j)：a(j)=a(j+1)：a(+1)=t

End If

Next j

Next i

cnt=0

p=1：q=n

Do While<p

cnt=cnt+1

If Then

p=p+1： q=q-1

Else

p=p+1

End If

Loop

If p= q Then cnt=cnt+1

Labe12 Caption=Str(cnt)

End Sub

（3）、若在文本框 TextI中输入“50．30，100，70，80，40，50，20，”，文本框Text2中输入“110”，单击“分组”按钮，标签Labe12中显示的内容是。

举一反三

【加试题】随机产生一个存有两位整数组a，先排序，然后进行数据重组，使被排序的数据呈现中间小，并逐次向两边增大。小李编写了该VB程序，运行程序时，在列表框List1中显示排序前数据，单击“重组”按钮Command2，在列表框List2中显示“重组”后的数据，程序运行界面如图所示。

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

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub

Private Sub Command2_Click()

Dim i As Integer

n=Val(Text1．Text)

For i=0 To n-2

For j=i+1 To n-1

If Then ‘(1)

temp=a(i)：a(i)=a(j)：a(j)=temp

End If

Next j

Next i

If n Mod 2<>0 Then d(n＼2)=a(n-1) ‘个数为奇数，最小值放中间位置

For i=0 To n＼2—1

d(i)=a(i*2)

=a(2*i+1) ‘(2)

Next i

‘在列表框List2中输出数组d，代码略

End Sub

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

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

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

‘①

List1．Addltem Str(a(i))

Next i

End Sub

Private Sub Command2 Click()

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If ＞0 Then ①

t=a(j)：a(j)=a(j-1)：a(j-1)=t

End If

Next j

②

Next i

For i=1 To 10

List2．Addltem Str(a(i))

Next i

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

有如下Visual Basic程序段：

Dim a(1 To 7) As Integer, i As Integer, j As Integer

Dim k As Integer, c As Integer

a(1)=4: a(2)=9: a(3)=1: a(4)=5

a(5)=8: a(6)=6: a(7)=2

s=“”

For i=1 To 3

For j=i+1 To 7

If a(j) < a(i) Then

k=a(j): a(j)=a(i): a(i )=k

c=c+1

End If

Next j

s=Str(a(i))+s

Next i

Text1.Text=Str(c) & “:” & s

该程序段运行后，文本框Text1中显示的内容是（）

某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：

待排序数据已存储在数组a中(a(1)~a(n))

For i= 1 To n-2

k= i

For j= ‘①

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

Next j

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

Next i

For i= 1 To n\ 2

j=2*i-1

If a(j)< a(j+ 1) Then t= a()： a()=a(j+ 1)： a(j+1)=t

Next i

For i= ‘②

t= a(i)：j-i

Do While t> a(j)

a(j+1)=a()：j=j

Loop

‘③

Next i

上述程序段中3处方框处的代码分别为（）

有如下VB程序段，已知a数组各元素值为“7,5,6,3,1,8”,b数组各元素的初始值为“0”。则经过以下程序段处理后，b数组各元素分别为（）

For i = 1 To 5

k = i

For j = i + 1 To 6

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

Next j

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

b((i + 2) Mod 6 + 1) = a(i)

Next i

相关试卷

公司介绍

服务介绍

帮助中心