2024年4月14日发(作者：)
Visual Basic程序设计 试卷
1. 编写程序，求解鸡兔同笼问题。一只笼子有鸡x只，兔y只，每只鸡有2只脚，每只兔有4只脚。
今知鸡和兔的总头数为h，总脚数为f，问鸡和兔各有多少只。
（1） 代码
答：Private Sub Command5_Click()
Dim x, y, h, f As Single
h = Val() '总的头数为
f = Val() '总的脚数为
If (h * 10 <> Int(h) * 10) Or (f * 10 <> Int(f) * 10) Then
MsgBox "您输入的数据不合理!,请重新输入"
Exit Sub
End If
x = (4 * h - f) / 2 '鸡的数量
y = (f - 2 * h) / 2 '兔的数量
If x < 0 Or y < 0 Then
MsgBox "您输入的数据不合理!,请重新输入"
Exit Sub
End If
If (x * 10 <> Int(x) * 10) Or (y * 10 <> Int(y) * 10) Then
MsgBox "您输入的数据不合理!,请重新输入"
Exit Sub
End If
= x
= y
End Sub
（2） 运行结果截图
发布者：admin，转转请注明出处：http://www.yc00.com/web/1713101273a2183190.html
评论列表（0条）