早教吧 育儿知识 作业答案 考试题库 百科 知识分享

用vb编写鸡兔同笼,头有35,脚有94计算鸡兔各多少只

题目详情
用vb编写鸡兔同笼,头有35,脚有94计算鸡兔各多少只
▼优质解答
答案和解析
Private Sub command1_Click() Dim a%,b%,c%,d% a = CInt(Text1.Text) b = CInt(Text2.Text) For c = 1 To b \ 2 For d = 1 To b \ 4 If c + d = a And c * 2 + d * 4 = b Then MsgBox("鸡有" & c & "只" & vbCrLf &...