【加试题】《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，VB程序段如下：Private Sub Command1_Click( ) k = 0 '用来计数 Max = 600 '指定范围600以内 n =...

题型：单选题题类：常考题难易度：普通

浙江省台州中学2016-2017学年高一下学期信息技术第四次统练试题

【加试题】《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，VB程序段如下：Private Sub Command1_Click( )

k = 0 '用来计数

Max = 600 '指定范围600以内

n = 9

Do While n <= Max

Loop

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

End Sub

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

① n=n+7

② k = k + 1

③ List1.AddItem Str(n)

④ End If

⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then

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

A、⑤①②③④ B、②⑤③①④ C、⑤③②④① D、⑤①③④②

举一反三

【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图1所示，Command1鼠标单击事件过程的流程图如图2所示。

图1
图2

程序代码如下：

Private Sub Command1_Click()

Dim i As Integer

List1.Clear '清除列表框内容

For i = 3 To 97 ___①___

If f(i) And ② Then

List1.AddItem Str(i) + " 和 " + Str(i + 2)

End If

Next i

End Sub

Private Function f(x As Integer) As Boolean '自定义函数f,返回值为逻辑型

Dim j As Integer

f = True

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

If x Mod j = 0 Then

f = ③ '函数返回值

Exit For '跳出For循环

End If

Next j

End Function

在我国古代《孙子算经》中曾经提出这样一个问题。原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2，程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序界面如右图，文本框名为Text1，用于录入最大自然数；列表框名为List1,用于输出结果。

程序代码如下：

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

If _______ _② ___ Then

List1.AddItem Str(n) '

________③_______

End If

Loop

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

End Sub

下面程序的功能是：统计输入信息有多少个英文大写字母、小写字母、数字字符。程序运行时，在文本框Text1中输入信息，单击“确定”按钮后，分别在文本框Text2、Text3、Text4中显示大写字母、小写字母和数字字符的个数。程序运行效果如图所示。

Private Sub Command1_Click()

Dim getStr As String

Dim a As String

Dim i As Integer，s As Integer

Dim q As Integer，l As Integer

s=0：q=0：l=0

getStr=Text1.Text

For i = 1 To ① ’对字符串中所有字符逐一判断

a = ②

If a >= "a" And a <= "z" Then s = s + 1

If a >= "A" And a <= "Z" Then q = q + 1

If a >= "0" And a <= "9" Then l = l + 1

Next i

Text2.Text = Str（s）

Text3.Text = Str（q）

Text4.Text = Str（l）

End Sub

质数又称为素数，除了1和它本身以外不再有其他因数的数成为素数。找到100到999以内的素数，并依次在列表框List1上输出的VB程序段如下：

For i = 100 To 999 lag = True: j = 2

Do While j < i And flag

Loop

If flag Then List1.AddItem Str(i) Next i

方框中的代码由以下四部分组成：①End If ②If i Mod j = 0 Then ③j = j + 1

④flag = False。代码顺序正确的是（）

火柴算术游戏，给定n(n<=24)根火柴，恰好用尽n根火柴拼凑出A+B=C形式的算式，问一共有多少种可行方案，请输出方案的总数，已知0~9每个数字所需的火柴根数如下表所示:

注意：⑴其中A+B=C 等式中的“+”“=”需要用去4根火柴。

⑵0+4=4与4+0=4算作一种方案。

例如n=18，符合条件的算式共有5个：0+4=4，0+11=11，1+10=11，2+2=4，2+7=9。

小明设计了一个程序，在Text1中输入火柴数量，单击“计算”按钮，在Label1中输出总的可行方案数，并在List1中输出所有可行的算式。

程序代码如下，加框处代码有误，请修改。

Dim s(0 To 9) As Integer

Private Sub Command1_Click()

Dim n As Integer, a As Integer, b As Integer, count As Integer

count=0

n=Val(Text1.Text)

For a=0 To 999 Step 1

For b=a To 999 Step 1

If Then '①{#blank#}1{#/blank#}

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

count=count+1

End If

Next b

Next a

Label2.Caption="共"+Str(count)+"种方案"

End Sub

Function gs(ByVal x As Integer) As Integer

Dim tmp As Integer

tmp=0

If x=0 Then tmp=s(0)

Do While x > 0

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

x=x \ 10

Loop

gs=tmp

End Function

Private Sub Form_Load()

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

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

End Sub

下列问题中适合使用枚举算法解决的是（）

相关试卷

公司介绍

服务介绍

帮助中心