- 二一组卷

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

高中信息技术综合库——枚举算法3

若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如11、121均是回文数。请你编写程序，输出10至n之间的所有回文数。程序运行界面如图所示，在文本框Text1中输入一个正整数n，单击“查找”按钮Command1，在列表框List1中显示10–n之间的所有回文数，并且在标签Label1中输出查找到回文数的总数。

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

Private Sub Command1_Click()

Dim n as long , sum as long , i As Long Dim x as long , y as long

List1.Clear

n = Val(Text1.Text) sum = 0

For i = 10 To n

x = ‘①

y = 0

Do While x > 0

y = ‘②

x = x \ 10

Loop

If y = i Then

List1.additem Str(i)

sum = sum+1

End if

Next i

Label1.caption = “共有”& Str(sum) & “个回文数” End Sub

①②

举一反三

在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以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

小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数，如图所示，单击“计算”按钮 Command1，在文本框 Text1 中显示符合条件的个数，在列表框 List1 中显示符合条件的二进制数。VB 程序代码如下：

提示：本题“除 2 取余倒排法”的方法将十进制转化为二进制，算法如下：例如十进制数“97”转化为二进制的过程如右图所示：

因此“97”二进制值为：1100001

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：

Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n = {#blank#}1{#/blank#}

Do While m <= 996

If {#blank#}2{#/blank#} Then n = n + 1

m={#blank#}3{#/blank#}

Loop

Text1.Text = Str(n)

End Sub

问题：在“1390771”号段的11位手机号码中，统计出最后两位数字相同的号码个数。

如13907715200、13907718366是符合条件的两个号码。

算式描述如图所示

请将程序补充完整

Private Sub Form_Cliek()

Dim a As Integer, b As Integer

Dim I As Integer, s As Integer

s=0

For =10000 To 19999

a={#blank#}1{#/blank#}

b=(i Mod 100)\10

If a=b Then

s={#blank#}2{#/blank#}

End If

Next i

Print“最后两位数字相同的号码个数有：”；{#blank#}3{#/blank#}

End Sub

哥德巴赫1742年给欧拉的信中哥德巴赫提出了以下猜想：任一大于2的偶数都可写成两个质数之和。下列程序的功能即验证哥德巴赫猜想。程序运行时，在文本框Text1中输入一个大于2的偶数，单击“证明”按钮Command1后，在列表框List1中输出所有符合猜想的组合，在标签Label2中输出共有多少个组合。程序运行效果如下图所示。

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

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer, c As Integer

n = Val(Text1.Text)

List1.Clear

c = 0

If n Mod 2 = 0 Then

For ①

If Then ②

List1.AddItem n & "=" & i & "+" & n - i

c = c + 1

End If

Next i

Label2.Caption = "共有" & c & "种组合"

Else

Label2.Caption = "请输入一个大于 2 的偶数"

End If

End Sub

Function is Prime(x As Integer) As Boolean

Dim i As Integer

Is Prime = True

For i = 2 To Int(Sqr(x))

If x Mod i = 0 Then

Is Prime = False

Exit For

End If

Next i

End Function

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

火柴棒等式。用火柴棒可以摆出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

相关试卷

公司介绍

服务介绍

帮助中心