Private Sub Command1_Click()
目前成都创新互联公司已为成百上千家的企业提供了网站建设、域名、网站空间、网站托管运营、企业网站设计、南川网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
Dim a, b, m, n As Integer '鸡为a,兔为b,鸡兔总数为m,鸡兔脚数为n
For b = 1 To m
a = m - b
If 2 * a + 4 * b = n Then
Print "鸡=" a ",兔=" b
End If
Next b
End Sub
Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
Private Sub Command1_Click()
Dim j As Integer '代表鸡的个数
Dim t As Integer ’代表兔的个数
Dim t1 As Integer '腿的个数
For j = 1 To 40
t = 40 - j
t1 = j * 2 + t * 4
If t1 = 100 Then
Print "鸡="; j; "只"; "兔="; t; "只"
End If
Next
End Sub
Dim x As Integer, y As Integer, z As Integer
Private Sub Command1_Click()
Randomize
x = Int(Rnd * (20 - 2 + 1) + 2)
y = Int(Rnd * (x - 2 + 1) + 0)
z = x - y
Text1.Text = "现在有一个装有鸡和兔的笼子，总共有" x "个头和 " y * 2 + z * 4 " 只脚，请问：笼子里的鸡和兔各有多少只？"
Label4.Visible = False
Cls
End Sub
Private Sub Command2_Click()
If y = Val(Text2.Text) And z = Val(Text3.Text) Then
Dim isquit As Integer
isquit = MsgBox("考试合格，要退出么？", 1 + 64 + 2 + 4096, "考试合格")
If isquit = 1 Then
End
End If
Else
MsgBox "不好意思，答错了", 0 + 16 + 0 + 4096, "悲剧"
Label4.Visible = True
Label4.Caption = "答案为：有" y "只鸡和" z "只兔子"
End If
End Sub
Private Sub form_load()
Randomize
x = Int(Rnd * (20 - 2 + 1) + 2)
y = Int(Rnd * (x - 2 + 1) + 0)
z = x - y
Text1.Text = "现在有一个装有鸡和兔的笼子，总共有" x "个头和 " y * 2 + z * 4 " 只脚，请问：笼子里的鸡和兔各有多少只？"
Label4.ForeColor = vbRed
End Sub
效果图 就是这个了...
我有做好的完整的考试系统 源代码...（很久以前自己做的）
需要可以和我联系...541601475
Private Sub Command1_Click()
Dim h As Integer, f As Integer
h = Val(InputBox("鸡和兔的总头数", "请输入", 0))
f = Val(InputBox("鸡和兔的总脚数（偶数）", "请输入", 0))
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label2.Caption = " 设笼中鸡和兔的总头数为" h ",总脚数为" f "。"
Label3.Caption = " 则笼中鸡有" x "只，兔有" y "只。"
End Sub
Dim a, b, c, d As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text "" And TextBox2.Text "" Then
If ((Val(TextBox2.Text) Mod 2.0) 0) Then
MsgBox("脚数应为偶数，请重新输入！", MsgBoxStyle.OkOnly, "警告")
Else
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = 2 * a - b / 2
d = (b - 2 * a) / 2
If c 0 Or d 0 Then
MsgBox("荒唐解，请重新输入！", MsgBoxStyle.OkOnly, "警告")
Else
TextBox3.Text = c
TextBox4.Text = d
End If
End If
Else
MsgBox("不能为空")
End If
End Sub