台州市2017年2月教学质量评估选考部分试题

1、台州20172月教学质量评估加试部分试【加试题某相机以 1600 万像素拍摄照片并存储为 24 位真彩色未压缩的图像格式。32GBA4000 B1500 C700 【加试题】某数组的 6 个元素依次为“27，32，57，78，80，90。若对该数组进行顺A7/2 B7/3 C 5/2 D 【加试题】有如下 VB 程序段s=”26170534”for i=1 to n next fori=1ton for j=ito n Step if ch(j)ch(k) Thennext jifkIThent=ch(k)：ch(k)=ch(i):ch（i）=t y=y & ch(i)next i BCD 号

2、按 U 型走向分成均等两边（若 n 为奇数，则在末尾增加编号 0，使总数为偶数，即可得到第一轮的比赛秩序，例如，5 个队伍的比赛编排情况如图 a 所示；第二轮，固定编号 1，0图图VPrivate Sub Dim team(1 To 20) As StringDimnAsInteger,cAsInteger,resultAsString Dim i As Integer, j As Integer, temp As Stringn = For i = 1 To n team(i)=Str(i)Next c = n + n Mod cIfc nThen team(c) = Fori=1Toc-1

3、 result = For j= 1 To c result = result & team(j) & - & team(c - j) & ；Next jList1.AddItem&Str(i)&result 1，其余队伍逆时针移动一个位置temp =Forj= c To 2 Step -team(j) =team(j) =Next team(2)=temp Next iEnd 分，显示在列表框 List1 中；在文本框Text1中输入授奖班级n，单击“统计”按Command1，Lalel1、Lalel2 实现上述功能的 VB 程序如下，请在Const n = n+12n；2n+13nDimb

4、j(1Ton*3)AsInteger,df(1Ton*3)AsInteger,mc(1To3*n)AsInteger Dim i As Integer, j As Integer, t As IntegerPrivate Sub End Private Sub Dim c As c = Label1.Caption = 纪律前 & Str(c) & 名： & pm(1, n, c, False) Label2.Caption&Str(c)& &pm(n1,2*n,c,False)For i = 1 To bj(2*n+i)=i:df(2*n+i)=0:mc(2*n+i)=0 Next iFor

5、 i = 1 To 2 * ndf(2*n + bj(i) = df(2 * nbj(i) + Next Label3.Caption= 总分前 & Str(c) & 名： & c, End 函数 pm 实现对指定区间的数组元素进行排序，并返回前若干名的班级编号。ks 和 js 分别表示该区间的起止位置；num 表示返回的班级数；fx 表示排序方向：True 表示升序，FalseFunctionpm(ksAsInteger,jsAsInteger,numAsInteger,fxAsBoolean)AsString For i = ks To js - 1Forj= js To ks + 1 Step -If (fx And df(j) df(j - 1) Or ( )Then t = df(j): df(j) = df(j - 1): df(j - 1) = tt=bj(j):bj(j)=bj(j-1):bj(j-1)=t End IfNextj Next imc(ks)=1:pm=Str(bj(ks) For i = ks +