【加试题】有30个人，其中有男人、女人和小孩，他们在一家商场花去500元。已知，每个男人花20元，每个女人花30元，每个小孩子花10元。问男人、女人、小孩各为多少人？解决上述问题的VB程序如下，单击按钮Command1，列表框List1中输出结果。 Privvate Sub Command1Click( ) Dim man As Integer,woman As Integer,child A...

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

浙江省杭州市2016年信息技术高考模拟卷十一

【加试题】有30个人，其中有男人、女人和小孩，他们在一家商场花去500元。已知，每个男人花20元，每个女人花30元，每个小孩子花10元。问男人、女人、小孩各为多少人？解决上述问题的VB程序如下，单击按钮Command1，列表框List1中输出结果。

Privvate Sub Command1Click( )

Dim man As Integer,woman As Integer,child As Intger,s As Integer

For woman = 1 To 15

Child = 30 – man – woman

S = 20 * man + 30 * woman + 10 * child

If Then

List1.AddItem Str(man) + Str(woman) + Str(child)

End If

Next woman

Next man

End Sub

举一反三

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

程序代码如下：

Private Sub Command1_Click()

Dim i As Integer

List1.Clear '清除列表框内容

For i = 3 To 97 ___①___

If f(i) And f(i+2)=true Then

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

End If

Next i

End Sub

Private Function f(x As Integer) As Boolean '判断是否为素数，若是返回true,若不是则返回false

………

End Function

列出所有可能的情况，逐个判断有哪些符合问题所要求的条件，从而解决问题，这是（）思路

《孙子算经》中有一个“物不知其数”的问题，某数以3除余2，以5除余3，以7 除余 2。下面的 VB 程序用于求 1000 以内满足该条件的自然数及个数，请在程序划线处应填入合适的表达式。

Private Sub Command1_Click()

Dim c As Integer, n As Integer c = 0 : n = 9

Do While n <= 1000

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

List1.AddItem Str(n)

c ={#blank#}1{#/blank#}

End If

n ={#blank#}2{#/blank#}

Loop

Label1.Caption = "1000 以内满足条件的数有" & Str（c）& "个"

End Sub

小明编写了一个寻找非常幸运数的程序。程序运行时，单击“求解”按钮，则在列表框中输出所有的六位数中的非常幸运数，在标签Label2中输出非常幸运数的个数。

所谓的非常幸运数是指符合下列条件的整数：

⑴该数的偶数位数字之和等于奇数位数字之和。

⑵该数的前一半的各位数字之和正好等于后一半的各位数字之和。

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

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, sum(1 To 4) As Integer

Dim x As Long, i As Long, count As Long, k As Long

For i=100000 To 999999

x=i

k=1

Do While x > 0

a(k)={#blank#}1{#/blank#}

x=x\10

k=k+1

Loop

sum(1)=a(1) +a(2)+a(3)

sum(2)=a(4)+a(5)+a(6)

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

sum(4)=a(2)+a(4)+a(6)

If sum(1)=sum(2) And sum(3)=sum(4)Then

List1.AddItem Str(i)

{#blank#}3{#/blank#}

End If

Next i

Label2.Caption="共有个数:" + str(count)

End Sub

用枚举算法求解“找出所有满足各位数字之和等于5的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是（）

某校内活动需要n（1≤n≤10）名学生迎宾，要求是：男女生站成一排，男生不能相邻，男女生比例大于1/2。考虑到方案只包含了男和女两种情况，可以用二进制的0来代替女生，1来代替男生。当全部是0时最小，此数为0；当全部是1时最大。枚举从0到最大数的每一种情况，逐一判断是否包含男生相邻（二进制1相连），符合的0、1转换为女、男后输出，并在此基础上输出男女生比例较合适的方案（男:女>1/2）。

按上述要求，编写VB程序，功能如下：在文本框Text1中输入n的值，点击“开始枚举”按钮Command1，在列表框List1中输出所有方案，在列表框List2中输出比例合适方案。

实现上述功能的VB程序如下，回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心