【加试题】有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

举一反三

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

①密码是六位数字，前面两位为59；

②最后两位数字相同；

③能被12和38整除。

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

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

有如下VB程序段:

Dim a(1 to 5) as Integer, i as Integer, c as Integer

a(1) = 2 : a(2) = 1 : a(3) = 3 : a(4) = 4 : a(5) = 5

c = 0

For I = 3 to 5

If a(i - 2) + a(i - 1) = a(i) Then c = c + 1

Next i

Text1.Text = Str(c)

该程序运行后，文本框text1中显示的内容是（）

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd，随机生成两个[0,1）之间的随机数，由此构成一个投点坐标（x, y），然后根据x2+y2<=1投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆内的点数为s，则4s/n即为所求PI的近似值。程序界面如图所示，在Text1中输入投点的个数，单机“计算”按钮，PI的近似值结果显示在Text2中。）

编写程序输出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#}

尼克斯彻定理：任何一个大于等1的整数的立方等于一串连续奇数之和，如：13=1，23=3+5，33=7+9+11。编写一个VB程序验证尼克斯彻定理，程序运行时，在文本框Text1中输入一个于等于1的整数，单击“验证”按钮Command1，在文本框Text2中显示验证结果，运行界面如图所示。

实现上述功能的VB代码如下，请完善代码：

Private Sub Command1_Click()

Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String

n=Val(Text1.Text)

For i=1 To n^3 step 2 '变量i表示连续奇数的首个整数

sum=0:t=i:flag=False

Do While sum<n^3 And flag= False

sum= {#blank#}1{#/blank#}

t=t+2

If {#blank#}2{#/blank#} Then flag=True

Loop

If flag=True Then Exit For

Next i

s=Str(n)+ "^"+Str(3)+ "="

Do While sum>0

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

If sum= 0 Then

s=s+Str(i)

Else

s=s+Srt(i)+ "+"

End If

i=i+2

Loop

Text2.Text=s

End Sub

相关试卷

公司介绍

服务介绍

帮助中心