注册

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

浙江省台州中学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、⑤①③④②

举一反三

大约1500年前,《孙子算经》中记载了"鸡兔同笼"问题.原文大意是:如果若干只鸡和兔在同一个笼子里，从上面数有35个头，从下面数有94只脚，求笼中鸡和兔子各有几只？
现在我们用VB6.0软件设计一个程序，可以解答上述问题，通过界面输入鸡和兔头数和，鸡、兔脚数和。在输入数据合理的情况下，求出鸡、兔各有多少只。程序运行界面图、输出界面图和程序的代码如下所示。

程序运行界面图                      输出结果界面图
程序代码如下：
Private Sub Command1_Click( )
Dim x As Integer, y As Integer   ’x是鸡的数量，y是兔的数量
Dim a As Integer, b As Integer   ’a是鸡兔的头数，b是鸡兔的脚数和
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 2 * a Or b > 4 * a Then   ’对数据合理性做出判断
MsgBox "您的输入数据不合理，请重新输入！", , "错误提示"
Text1.Text = ""
Text2.Text = ""
   ①
x = 0
Do While x     ②   a
y = a - x
If (2 * x + 4 * y = b) Then
MsgBox "鸡有：" & x & "只   兔有：" & y & "只", , "运行结果"
End If
   ③
Loop
End Sub
Private Sub Command2_Click( )
Text1.Text = ""
Text2.Text = ""
End Sub
请分析任务，完成下面试题。

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

质数又称为素数，除了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。代码顺序正确的是（）

珠心算是在大脑中以算珠表象作为载体，运用珠算法则所进行的计算。某学校的珠心算老师采用一种快速考查珠心算加法能力的测验方法，他随机给出一个正整数集合，集合中的数各不相同，然后要求学生回答：其中共有多少个数恰好等于集合中另外两个（不同的）数之和，例如集合{1，2，3，4}，一共有2个数等于集合中另外两个数之和，它们是3、4（4=3+1，3=2+1）。将上述算法编写成程序，其功能如下：程序运行时产生n个范围在[1，100]内的不同的随机整数存储在数组a中，并在列表框List1中显示，单击按钮Command1后，在标签Label1上输出结果，如图所示。

穷举法的适用范围是（）

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

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服