- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省高中信息技术环问题练习

平面上有N(3≤N≤100)个房间围成一圈，按顺时针方向分别编号为1…N，相邻的两个房间之间均有一扇门，第i个房间居住人数为a(i)。初始时选择一个房间，将所有人都聚集在该房间，接着每个人都按顺时针方向走到相邻的房间，直至走到居住的房间。一个人每经过一扇门花费1能量，请确定初始房间，使得所有人花费的能量和最小。例如:N=5，a(1)=4，a(2)=7， a(3)=8， a(4)=6， a(5)=4。

最佳方案:初始时所有人聚集在2号房间，花费的能量和:7*0+8*1+6*2+4*3+4*4=48。为了解决这个问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取N的值和编号为1到N的房间的居住人数，人数存储在数组a中。点击窗体上的按钮Command1，程序枚举每一种方案(不同的初始房间)，计算该方案的能量和，在文本框Text1中输出最优方案的初始房间编号，在文本框Text2中输出最小能量和。

实现上述功能的VB代码如下，请在划线处填入合适代码。

Dim a(1 To 100) As Integer ’依次存储编号为1到100的房间的居住人数

Private Sub Form_Load()

‘本过程从数据库中读取N的值和每个房间居住人数，存储在数组a中

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer, k as Integer

Dim t As Long, ans As Long

k=0 : ans = 32767 ‘ans初始化为最大的Integer数据

For i = 1 To n

t = 0

For j = 0 To n - 1

If w = 0 Then w = n

Next j

If t < ans Then

k= i

ans = t

End If

Next i

Text1.Text = Str (k) ‘起始房间编号

Text2.Text =

End Sub

举一反三

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

Private Sub Command1_Click()

Dim s As String, a As String, t As String

s = Text1.Text: t = ""

For i = 1 To Len(s)

a = Mid(s, i, 1)

If a >= "0" And a <= "9" Then

t = t + a

ElseIf a = "!" Then

t = ""

ElseIf t <> "" Then

List1.AddItem t

End If

Next i

End Sub

执行程序时，在文本框 Text1 中输入“12+34=46!789ok”（不包括双引号），单击按钮Command1后，在列表框List1中显示的结果是（）

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

i =1：j=2

Do While j <= 10

If j < 10 Then

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

End If

If a (i) > a(j) Then

temp =a (i): a(i) = a(j): a(j) = temp

i=j

j=2*i

Else

Exit Do

End If

Loop

Text1.Text =a (2)

已知数组元素a(1)到a(10)的原始数据为“20, 3, 10, 17,18, 15, 16, 19, 21, 30”，执行该代码后,文本框Text1中显示内容是：（）

在n个连续的方格内填字母A或B，但相邻两格都不能填B，求所有可能方案。可以用枚举算法解决，此题可以采用进制转换来解决。考虑到只包含了A与B两个字母，我们可以用二进制的0和1来代替。

程序部分代码如下：

Private Sub Command1_Click()

Dim n, m, s, i, j, count As Long

Dim flag As Boolean

Dim a(1 To 100) As Integer

n = Val(Text1.Text)

count = 0

①

For i = 0 to s-1

m = i

For j = 1 To n

a(j) = m Mod 2

m = m \ 2

Next j

flag = True

For j = 1 To n - 1

If ② Then flag = false: exit For

Next j

If flag = True Then ③

Next i

Label1.Caption =“可行方案共”+ Str(count) + “种”

End Sub

为了判断一个三位正整数的各个位置之和是否是9的倍数，下列程序划线处应填入的语句是（）

x = ①

t = 0: s = ""

Do While x <> 0

t = ②

x = x \ 10

Loop

If ③ Then Then Then s = "是9的倍数" Else s = "不是9的倍数"

数组整段移动:将一个长度为n的有序序列a(1)、a(2)…以整数t（1≤t≤n）为界划分为两段，并将序列a的前t个数移动到n位之后，保持这两段（t个数和n-t个数）之间的相对位置不变（即t个数和n-t个数各自有序）。

例如，长度为6的有序序列：38、42、59、61、69、78，当t=2时重排结果为:59、61、69、78、38、42。

小红编写了VB程序功能如下:程序运行时产生n个整数存储在数组a中，在文本框Text1中输入t，单击“对调”按钮Command1在列表框List2中输出t个数与n-t个数对调后的数字序列。程序运行界面如图所示。

为了实现上述功能，请在划线处填入合适的代码。

Const n = 10

Dim a (1 To 10) As Integer

Private Sub Form Load ( )

‘生成n个有序数 ,显示在List1中

‘代码略

End Sub

Private Sub Command1_ Click ( )

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

Dim temp As Integer

①

For i=t+1 To n

Temp = a(i)

For j = i To i+1-t step -1

②

Next j

a(j)= ③

Next i

For i=1 To n

List2 AddItem Str(a(i))

Next i

End Sub

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

某校最近开设了10节不同内容的选修课，课的编号为1～10。每位同学只能选报一门课。事先让学生做过问卷调查并根据自己的兴趣爱好填写了选课报名志愿表(无重复)，如某同学的报名志愿表为4，1，2，7，3，5，8，10，9，6，表示他最想选报的课的编号是4(第一志愿)，其次为1(第二志愿)，以此类推。学校根据每位学生的问卷调查得分及选课报名志愿表进行了分班，每班30人。
分班方法：优先满足问卷得分最高同学的第一志愿，如果该同学第一志愿所报名人数超过30人，则尝试满足其第二志愿，以此类推，直至该同学选课成功。
编写程序实现选课分配功能并统计各志愿录取率情况：单击读取按钮Command1后，在列表框List1中显示每位学生的相关信息。单击统计按钮Command2后，统计第X志愿录取人数及录取率的统计结果清单，显示在列表框List2中。程序界面如图a所示。实现上述功能的VB程序代码如下，请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心