- 二一组卷

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

【bj】高中信息技术综合库——枚举算法2

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：

5*5=25

6*6=36

25*25=625

76*76=5776

……

那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

（1）、程序运行时要在按钮上显示“统计”，应设置该按钮的属性。

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

Private Sub Command1_Click()

Dim n As Single, k As Integer, t As Integer, c As Integer

List1.Clear c=0

For n = 5 To 10000

k = Len(Trim(n)) 'Trim()函数用于删除字符串前后的空格

t = (n * n) Mod ①

If t = n Then

List1.AddItem Str(n)

②

End If

Next n

Label1.Caption = "自守个数为：" + Str(c)

End Sub

为实现上述功能，划线处应填入的代码分别为

① ②

（3）、解决该问题采用了（选填：枚举/解析）算法。

举一反三

《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。以下程序段是求指定范围内满足该问题条件的自然数及其个数。

k = 0 '用来计数

Max = Val(Text1.Text) '指定范围

n = 9 '①

Do While n <= Max

If n Mod 3 = 2 And n Mod 5 = 3 Then '②

List1.AddItem Str(n)

End If

n = n + 7 ' ③

k = k + 1 ④

Loop

Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"

运行程序，在文本框中输入自然数600，结果统计的个数与列表框中输出的个数不相符，如图所示：

请问出现此问题的原因是 ( )

一辆卡车运矿石，晴天每天运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

则下列说法正确的是（）

有趣的进制数：编写VB程序找出符合条件的十进制自然数，该自然数的七进制与九进制都是三位数，且七进制与九进制的三位数码顺序正好相反，输出这个十进制数与对应的七进制和九进制数。程序运行界面如图所示。

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

Private Sub Command1_Click（）

Dim i As Integer, d As Integer, r As integer

Dim rs As string, ans1 As Integer, ans2 As Integer

For i=81 To 342

①{#blank#}1{#/blank#}

rs=“”

Do While d ＜>0

r = d Mod 9

rs= str(r)+rs

②{#blank#}2{#/blank#}

Loop

ans1= Val(rs)

‘求出相应的七进制数，存储在变量ans2中，代码略

If ans1 Mod 10=ans2\ 100 And ans1\ 100=ans2 Mod 10 And ③{#blank#}3{#/blank#} Then

Text1. Text=④{#blank#}4{#/blank#}

Text2 Text= Str(ans1)

Text3. Text= Str(ans2)

End If

Next i

End Sub

现有n根棍子，第i根棍子的长度为a_i 。想要从中选出三根棍子组成周长尽可能长的三角形，输出最大的周长；若无法组成三角形，则输出0。如当n=5，a={2，3，4，5，10}时，输出12，即选择了3、4、5。当n=4，a={4，5，10，20}时，无法组成三角形，输出0。加框处代码有误，请改正。

Dim a(1 To 1000) As Integer

Dim n As Integer

Private Sub Form_Load()

‘确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略

End Sub

Function max(x As Integer, y As Integer) As Integer

If x > y Then

max=x

Else

max=y

End If

End Function

Private Sub Command1_Click()

Dim i As Integer , j As Integer , k As Integer

Dim ans As Integer , c As Integer , longest As Integer , rest As Integer

ans=0

‘让 i<j<k,保证棍子不会重复选中

For i=1 To n

For j=i+1 To n

For k=j+1 To n

c=a(i)+a(j)+a(k)

longest= ‘①

rest=c-longest ‘rest 保存最短的两条边的和

If Then ‘②

ans=max(ans , c)

End If

Next k

Next j

Next i

Print ans

End Sub

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

现有36个人搬36块砖，男的搬4块，女的搬3块， 2个小孩抬一块。要求一次正好全搬完，问男、女、小孩各需多少人？如果用编程的方法求解，以下算法最合适的是（）。

火柴棒等式。用火柴棒可以摆出0-9的数字，摆放规则如下图所示：

有一种火柴棒游戏，将火柴棒摆成形如“A+B=C”的火柴棒等式。用n根火柴棒摆放数学等式的规则约定如下：

⑴A、B都是不大于1000的正整数，若数值非零，则最高位不能是0；

⑵摆放“+”与“=”各使用两根火柴棒；

⑶A+B=C 与B+A=C视为相同的等式；

⑷n根火柴棒必须全部用上。

小明依据上述规则使用VB编写程序，研究“使用n根火柴棒，可以摆放出哪些不同的等式”，代码如下所示。请回答下列问题。

Dim sz(0 To 9) As Integer ‘数组元素sz(i)用于存储数字i所使用的火柴棒的数量

Private Sub Form_Load()

sz(0) = 6 : sz(1) = 2 : sz(2) = 5 : sz(3) = 5 : sz(4) = 4

sz(5) = 5 : sz(6) = 6 : sz(7) = 3 : sz(8) = 7 : sz(9) = 6

End Sub

‘自定义函数hcs用于求解摆放数字x需要使用的火柴棒数量

Function hcs(ByVal x As Integer) As Integer

Dim s As Integer, k as integer

s = 0

Do While ①

k = x Mod 10

s=s+sz(k)

x = x \ 10

Loop

hcs = s + sz(x)

End Function

Private Sub Command1_Click()

Dim n As Integer

Dim a As Integer, b As Integer, c As Integer

n = Val(Text1.Text)

ans = 0

List1.Clear

For a = 0 To 999

For b = ② To 999

c = a + b

If ③ Then

List1.AddItem (Str(a) + "+" + Str(b) + "=" + Str(c))

ans = ans + 1

End If

Next b

Next a

List1.AddItem ("共有" + Str(ans) + "种等式")

End Sub

相关试卷

公司介绍

服务介绍

帮助中心