- 二一组卷

题型：综合题题类：模拟题难易度：普通

浙江省2019年信息技术选考模拟试卷五

两个整数的平方差称为好数，如 $\text{[math]}$ ，，按从小到大的次序，则第一个好数是3。编写VB程序代码，求出第n个好数是多少。实现如下功能：在文本框Text1中输入要求的第几个好数n，点击“计算”按钮Command1，则在Label2上显示结果，程序运行界面如下图所示：

（1）、若要在Text1中填写序数为100，则应修改Text1对象的属性

（2）、为了实现以上程序功能，使程序正常运行，请完善以下两处代码。

Private Sub Command1_Click()

Dim n, k, i ,sAs Integer

s = Val(Text1.Text) : k = 2

Do While n < s

For i = 1 To k \ 2

If k Mod i = 0 Then

If (m + i) Mod 2 = 0 And (m - i) Mod 2 = 0 Then

n = n + 1

Exit For

End If

Next i

k = k + 1

Loop

Label2.Caption = "第" + Text1.Text + "个好数是" +

End Sub

（3）、由上述算法可知，数字21是第个好数。

举一反三

在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2。程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整。

Private Sub Command1_Click()

Dim sum As Integer 'sum 用来统计符合条件的自然数个数'

Dim n, max As Integer

List1.Clear

sum = 0

max = {#blank#}1{#/blank#}'指定查找范围的最大自然数，Text1文本框中输入'

n = 0

Do While n <= max

n = n + 1 '从自然数1开始不断往上寻找'

If {#blank#}2{#/blank#}Then

List1.AddItem Str(n) '找到后在List1中显示结果'

{#blank#}3{#/blank#}

End If

Loop

List1.AddItem ("共计" + Str(sum) + "个")

End Sub

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

由n行数字组成的数字三角形如图所示。设计一个算法，对于由n行数字组成的数字三角形（数字范围[1，50]，计算从三角形的顶至底的路径经过的数字和的最大值，每一步可以从当前点走到左下方的点也可以走到右下方的点。

寻求路径最大值的算法设计如下：

按三角形的行划分，若有n行，则有n-1个步骤

①从底层开始，本身数即为最大值

②倒数第二层的计算取决于底层的数据：

12+6=18,13+14=27,24+15=39,24+8=32；

③倒数第三层的计算取决于底二层的数据：

27+12=39,39+7=46,39+26=65；

④倒数第四层的计算取决于底三层的数据：

46+11=57,65+8=73；

④最后的路径：13—8—26—15—24其和为86。

根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框text1中输出最大值。

依据上述描述设计如下VB程序：

Const n = 5

Dim sx As String

Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear

For i = 1 To n For j = 1 To i

①

sx = sx + Str(a((i - 1) * n + j)) Next j

For k = n To i Step -1 sx = " " + sx

Next k List1.AddItem sx sx = ""

Next i End Sub

Private Sub Command2_Click() For i = n To 1 Step -1

For j = 2 To i

If ② Then

a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)

Else

a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)

End If Next j

Next i

③

End Sub

请回答下列问题：

列出所有可能的情况，逐个判断有哪些符合问题所要求的条件，从而解决问题，这是（）思路

一辆卡车运矿石，晴天每天运20次，雨天每天最多运12次，他一共运了8天，共112次，则晴天和雨天各有几天。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出晴天的天数，在文本框Text2中输出雨天的天数，程序代码如下：

Private Sub Command1_Click()

i＝1

j＝7

Do While _______

i＝_______

j＝________

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

则下列说法正确的是( )

解决“百鸡百钱”问题，比较恰当的算法是（）。

相关试卷

公司介绍

服务介绍

帮助中心