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

题型：填空题题类：模拟题难易度：困难

浙江省杭州市2015年高考信息技术模拟卷7

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

n = 0

Do While n <= max

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

If Then

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

End If

Loop

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

End Sub

举一反三

三个正整数a、b、c满足等式a²+b²=c² ， a、b、c称为“勾股数”，求出100以内所有“勾股数”可采用的算法是（）

对称字符串的特征是从左到右读和从右往左读是完全一样的。如“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)

代码顺序正确的是（）

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：

①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

（加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()

Dim s, f, t As Integer

Dim a(1 To 400) As Boolean

For i = 1 To 400

a(i) = False

Next i

s = 0

f = 0

i = 0

Do While f < 399

i = i + 1

If i = 401 Then i = {#blank#}1{#/blank#}

If a(i) = False Then s = s + 1

If s = 2 Then

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

List1.AddItem Str(i)

a(i) = True

f = {#blank#}3{#/blank#}

End If

Loop

For i = 1 To 400

If {#blank#}4{#/blank#} Then text1.text=str(i)

Next i

End Sub

在程序划线处填入合适的代码。

编写程序输出100~200之间不能被3整除的自然数，并统计出符合条件的个数。

程序如下：

Private Sub Form_Click()

Dim i As Integer

Dim t As Integer

For i = 100 To 200

If{#blank#}1{#/blank#} Then '不能够被3整除的条件

Print i

t=t+1

End If

Next i

End Sub

程序运行结束后t的值为{#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

相关试卷

公司介绍

服务介绍

帮助中心