用VB程序解答百鸡问题
我国古代数学家张丘建在“算经”里提出一个数学史上有名的百鸡问题。题曰:鸡翁一,值钱五;鸡母一,值钱三;鸡雏三,值钱一;百钱买百鸡,问鸡翁、母、雏各几何?
请把以下算法选项填入到程序语句相对应的位置:
设i、j、k分别代表鸡翁、鸡母、鸡雏的只数。首先确定i、j、k的取值范围:
A.若100个钱全买鸡母,则最多可买33只,即j的取值范围是0~33。
B.若100个钱全买鸡翁,则最多可买20只,即i的取值范围是0~20。
C.当i、j在各自的取值范围内确定某个值后,则鸡雏的只数,k=100-i-j也确定了。
D.让i从0变化到20,当i取某值时再让j从0变化到33,当j取某个值时,k的值也定了。如果i*5+j*3+k/3=100成立,则i、j、k当前的值就是答案。
先在窗体上绘制一个命令按钮,名称为Command1,编写命令按钮的单击事件。实现以上算法的程序如下:
Private Sub Command1_Click ( )( )
For i=0 To 20 2020
For j=0 To 33 3333
k=100-i-j( 100-i-j100-i-j)
If i*5+j*3+k/3=100 Then If i*5+j*3+k/3=100 And i+j+k=100 ThenIf i*5+j*3+k/3=100 And i+j+k=100 Then
Print“鸡翁、鸡母、鸡雏分别为“&i&”“&j&”“&k”只”
End if
Next j,i
End Sub
请计算出任意一种答案。鸡翁、鸡母、鸡雏分别有 4 18 784 18 78只。
【考点】选择语句.
【答案】( );20;33;100-i-j;If i*5+j*3+k/3=100 And i+j+k=100 Then;4 18 78
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/6/27 10:35:59组卷:2引用:1难度:0.4
相似题
-
1.编写程序查找字符串中最长连续相同字符的长度:
横线处可选代码为:①h②h=0③h=h+1④Mid(s,i,l)=Mid(s,i+1,1)⑤Mid(s,i,1)=Mid(s,i-1,1),则①②③处语句依次为( )发布:2025/1/2 10:30:2组卷:1引用:1难度:0.4 -
2.下列选项中,与语句“Ifx>188 Then y=x*0.5 Else y=x*0.8“功能相同的是( )
发布:2025/1/2 10:30:2组卷:1引用:2难度:0.5 -
3.有程序代码如下,输入某数据后,输出结果为“B”。那么输入的数据可能是( )
Dim score As Integer
score=Val(InputBox(“score:“))
If score>89 Then
Print“A“
Else
If score>59 Then
Print“B“
Else
Print“C“
End If
End If发布:2025/1/2 12:0:1组卷:0引用:1难度:0.6