- 二一组卷

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

【bj】高中信息技术综合库——枚举算法及程序实现1

尼克斯彻定理：任何一个大于等1的整数的立方等于一串连续奇数之和，如：13=1，23=3+5，33=7+9+11。编写一个VB程序验证尼克斯彻定理，程序运行时，在文本框Text1中输入一个于等于1的整数，单击“验证”按钮Command1，在文本框Text2中显示验证结果，运行界面如图所示。

实现上述功能的VB代码如下，请完善代码：

Private Sub Command1_Click()

Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String

n=Val(Text1.Text)

For i=1 To n^3 step 2 '变量i表示连续奇数的首个整数

sum=0:t=i:flag=False

Do While sum<n^3 And flag= False

sum=

t=t+2

If Then flag=True

Loop

If flag=True Then Exit For

Next i

s=Str(n)+ "^"+Str(3)+ "="

Do While sum>0

If sum= 0 Then

s=s+Str(i)

Else

s=s+Srt(i)+ "+"

End If

i=i+2

Loop

Text2.Text=s

End Sub

举一反三

大约1500年前,《孙子算经》中记载了"鸡兔同笼"问题.原文大意是:如果若干只鸡和兔在同一个笼子里，从上面数有35个头，从下面数有94只脚，求笼中鸡和兔子各有几只？
现在我们用VB6.0软件设计一个程序，可以解答上述问题，通过界面输入鸡和兔头数和，鸡、兔脚数和。在输入数据合理的情况下，求出鸡、兔各有多少只。程序运行界面图、输出界面图和程序的代码如下所示。

程序运行界面图                      输出结果界面图
程序代码如下：
Private Sub Command1_Click( )
Dim x As Integer, y As Integer   ’x是鸡的数量，y是兔的数量
Dim a As Integer, b As Integer   ’a是鸡兔的头数，b是鸡兔的脚数和
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 2 * a Or b > 4 * a Then   ’对数据合理性做出判断
MsgBox "您的输入数据不合理，请重新输入！", , "错误提示"
Text1.Text = ""
Text2.Text = ""
   ①
x = 0
Do While x     ②   a
y = a - x
If (2 * x + 4 * y = b) Then
MsgBox "鸡有：" & x & "只   兔有：" & y & "只", , "运行结果"
End If
   ③
Loop
End Sub
Private Sub Command2_Click( )
Text1.Text = ""
Text2.Text = ""
End Sub
请分析任务，完成下面试题。

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下：

n=Len(s) 's是待判断的字符串

k=0:j=n

For i=1 to n/2

Next i

If k=0 Then Label1.Caption="对称" Else Label1.Caption="不对称"

方框中的代码由以下三部分组成：

①j=j-1

②If c1 <> c2 Then k = k+1

③c1=Mid(s,i,1) : c2=Mid(s,j,1)

代码顺序正确的选项是（）

平面上有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

w={#blank#}1{#/blank#}

If w = 0 Then w = n

t={#blank#}2{#/blank#}

Next j

If t < ans Then

k= i

ans = t

End If

Next i

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

Text2.Text ={#blank#}3{#/blank#}

End Sub

“奔跑吧，兄弟”栏目组要在全国各地挑选节目录制的地点。有来自K(1<=K<=25)个不同省份的N(K<=N<=100)个地区送来了各自的竞选材料。由于参选地区太多，没有办法同时呈现所有材料供评委进行选择。栏目组决定选择一段连续区间内的参选地区，这个区间内每个省份的参选地区至少要有1个，求满足要求的最小区间长度。

参选地区用数字1，2，3……N表示，每个地区所属的省份依次存入数组a(1)到a(N)，若1号地区的省份编号是3，即a(1)=3。分析可知，所求区间的长度至少为K(省份的数量)，最大为N(地区的数量)。我们可以通过二分K到N之间的数求得最小区间长度。例如有10个参选地区，分别来自于5个不同的省份，从左到右排列，地区编号依次为2，1，2，4，3，3，5，5，3，5，则最小的一段包含所有5个地区的区间是从第2个到第7个地区，区间长度为6。

有如下所示VB程序段：

str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

s = “”

For i = 1 To 4

t = Int(Rnd*10) + 1

If t Mod 2 = i Mod 2 Then

t = t + 1

Else

t = t + 2

End If

s = s + Mid(str1，t，1)

Next i