UC知道vb鸡兔同笼
来源：百度知道 编辑：UC知道 时间：2024/05/12 15:17:31
0个错误,就是答案挣扎不出来,各位帮我看看把...最后那个显示答案的是msgbox么,写在哪啊....菜啊....
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, b, h, f As Single
h = Val(InputBox("总的头数为 ")) '总的头数为
f = Val(InputBox("总的脚数为")) '总的脚数为
If (h * 10 <> Int(h) * 10) Or (f * 10 <> Int(f) * 10) Then
MsgBox("您输入的数据不合理!,请重新输入")
Exit Sub
End If
a = (4 * h - f) / 2
b = (f - 2 * h) / 2 ' 鸡的数量
If a < 0 Or b < 0 Then
MsgBox("您输入的数据不合理!,请重新输入")
Exit Sub
End If
If (a * 10 <> Int(a) * 10) Or (b * 10 <> Int(b) * 10) Then
MsgBox("您输入的数据不合理!,请重新输入")
Exit Sub
End If
End Sub
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, b, h, f As Single
h = Val(InputBox("总的头数为 ")) '总的头数为
f = Val(InputBox("总的脚数为")) '总的脚数为
If (h * 10 <> Int(h) * 10) Or (f * 10 <> Int(f) * 10) Then
MsgBox("您输入的数据不合理!,请重新输入")
Exit Sub
End If
a = (4 * h - f) / 2
b = (f - 2 * h) / 2 ' 鸡的数量
If a < 0 Or b < 0 Then
MsgBox("您输入的数据不合理!,请重新输入")
Exit Sub
End If
If (a * 10 <> Int(a) * 10) Or (b * 10 <> Int(b) * 10) Then
MsgBox("您输入的数据不合理!,请重新输入")
Exit Sub
End If
End Sub
'你的计算原理都不对。怎么会对。。。。
h =InputBox("总的头数为 ")
f =InputBox("总的脚数为") '总的脚数为
If ((int(h) * 4) < Int(f)) Then MsgBox("您输入的数据不合理!“头太多了，脚太少了”,请重新输入")
If ((int(h) * 2) > Int(f)) Then MsgBox("您输入的数据不合理!“头太少了，脚太多了”,请重新输入")
a = (4 * h - f) / 2 '这才是鸡的数
b = (f - 2 * h) / 2 '这兔子的数量
msgbox "按你给出的计算计算出来了,一共有鸡: " & a & " 只,兔子: " & b & " 只"