【加试题】自从“7选3”计入高考成绩，让考生告别“一考定终身”的窘困。各校均组织学生进行了7选3高考选考科目的选课工作。某校政治、历史、地理、物理、化学、生物、技术7科的选考人数如下表所示：科目政治历史地理物理化学生物技术人数...

题型：综合题题类：模拟题难易度：困难

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

【加试题】自从“7选3”计入高考成绩，让考生告别“一考定终身”的窘困。各校均组织学生进行了7选3高考选考科目的选课工作。某校政治、历史、地理、物理、化学、生物、技术7科的选考人数如下表所示：

科目	政治	历史	地理	物理	化学	生物	技术
人数	193	151	112	186	167	103	179

设计VB程序，实现功能：将每个科目的选课人数按照选考人数降序排序后输出。其中，科目名称存放在数组a(i)中，人数存放在数组b(i)中。

程序运行界面设计如图所示，左边列表框List1是显示科目名称和选课人数，单击“排序”按钮Command1后，在右边的列表框List2中显示排序后的科目名称和选课人数。

Command1的处理事件过程如下，但加框处代码有错，请改正。

Private Sub command1_click()

Dim a(1 To 7) As String

Dim b(1 To 7) As Integer

Dim i As Integer, j As Integer, p As String, q As Integer

For i = 1 To 7

List1.AddItem a(i) + " " + Str(b(i))

Next i

For i = 1 To 6

k = i

For j = i + 1 To 7

Next j

If i <> k Then

p = a(i): a(i) = a(k): a(k) = p

End If

Next i

For i = 1 To 7

List2.AddItem a(i) + " " + Str(b(i))

Next i

End Sub
① ②

举一反三

【加试题】小李要给全班学生拍合照，要求所有学生站成一排，中间高，两端低，小李采用如下排队方法：按身高信息从高到低排序，让身高第一位的同学单独站出来，身高第二位同学站在他的左手边，身高第三位同学站在他的右手边，再依次向两端安排其他人。每个学生的学号与身高信息已存人数据库中。小李编写了VB程序，从数据库中读取学号和身高信息，在“原始信息”下方的列表框List1中显示，单击“排队”按钮Command1，在“排好的队形”下方的列表框List2中显示排好的队形，程序界面如图所示。

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

Const maxn=100

Dim id(1 To maxn)As Integer ‘存储每个学生的学号

Dim tall(1 To maxn)As Single ‘存储每个学生的身高

Dim n As Integer ‘存储学生的个数

Private Sub Form_Load()

‘从数据库得到学生的总人数n

‘从数据库读取学号信息，并存入id数组中

‘从数据库读取身高信息，并存入tall数组中

‘在列表框List1中显示学号与身高

End Sub

Private Sub Command1_Click()

Dim a(1 To maxn)As Integer ‘存储排好队形的学号

Dim b(1 To maxn)As Single ‘存储排好队形的身高

Dim i As Integer，j As Integer

Dim t1 As Integer，tr As Integer，mid As Integer

Dim tmp1 As Single，tmp2 As Integer

For i=1 To n-1

For j=n To i+1 Step-1

If Then ‘(1)

tmp1=tall(j)：tall(j)=tall(j-1)：tall(j-1)=tmp1

tmp2=id(j)：id(j)=id(j-1)：id(j-1)=tmp2

End If

Next j

Next i

If n Mod 2=0 Then ‘根据总人数的奇偶性，确定队形的中间位置

mid=n＼2+1

Else

mid=(n+1)＼2

End If

‘身高第一位的同学，安排在队形的中间位置

a(mid)=id(1)

b(mid)=tall(1)

t1=mid-1

tr=mid+1

For i=2 To n

If Then ‘(2)

a(tr)=id(i)

b(tr)=tall(i)

tr=tr+1

Else

a(t1)=id(i)

b(t1)=tall(i)

t1=t1-1

End If

Next i

List2．AddItem“位置”+“学号 ”+“身高”

For i=1 To n

List2．Addltem Str(i)+” ”+Str(a(i))+” ”+Str(b(i))

Next i

End Sub

有如下 VB 程序段：

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 4

For j = 1 To 5 - i

If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j Next i

执行该程序段后，数组元素 a(1)到 a(5)的数据依次为（）

如图a所示，在excel中使用Rank函数可以快速地返回一个数字在数字列表中的排位，而且是同分同名次，非常方便。小明想用Vb编写一个程序来实现类似Rank排名次的功能，程序运行时，随机产生10个[60,100]之间的随机数，并显示在列表框List1中，单击“排名”按钮Command1，在列表框List2中输出数据及其排名，程序运行界面如图b所示。

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

Dim a(1 to 10) As Integer ‘存储原始数据

Dim b(1 to 10)As Integer ‘存放名次

Private Sub Command1_Click()

Dim i As Integer, j As Integer, n As Integer

For i=1 To 10

n=0

For j=1 To 10

Then n=n+1 ‘①

‘②

Next j

Next i

For i= 1 to 10

List2.Additem a(i)&” ”&b(i)

Next i

End Sub

Private Sub Form_Load()

‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：{#blank#}1{#/blank#}

②处代码应改为：{#blank#}2{#/blank#}

有如下VB程序段：

s=“26170534”:n=Len(s):y=“”

For i=1 To n

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

Next i

For i=1 To n

k=i

For j=i To n Step 2

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

Next j

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

y=y & ch(i)

Next i

Label1.Caption=y

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

编写VB程序，实现如下功能:在文本框Text1和Text2中分别输入一个整数，单击命令按钮Command1，在列表框List1中显示结果，运行效果如图1所示。结果包含两列数据，第1列为两数之间的摄氏温度值(间隔1度、升序)，第2列为对应的华氏温度值。

有如下VB程序段：

For i=1 To 6

j=7

Do While j>i

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

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

End If

j=j-1

Loop

Next i

For i=3 To 6

s=s+a(i)

Next i

Label1.Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8，2，3，7，10，6，5”，则执行该程段后，标签Label1中显示的是（）

相关试卷

公司介绍

服务介绍

帮助中心