鸡兔同笼、三个数排序、水仙花数字的VB程序代码(共2页).docx

精选优质文档-倾情为你奉上鸡兔同笼在窗体中插入一个按钮，编写如下程序。Private Sub Command1_Click()Dim h%, f%, x%, y%h = InputBox(请输入总头数h：)f = InputBox(请输入总脚数f：)x = 2 * h - f / 2y = f / 2 - hPrint 鸡的数量：; xPrint 兔的数量是：; yEnd Sub将三个数字进行排序的VB代码：Private Sub Form_Click()Dim a#, b#, c#, x#, y#, z#i: a = InputBox(请输入a) b = InputBox(请输入b) c = InputBox(请输入c)If a = b Or b = c Or a = c ThenPrint 输入数据无法运算，请重新输入GoTo iEnd IfIf a b Then x = b If x c Then