Private Sub Command1_Click() Dim a, b As Single a = Val(InputBox("a=", "输入头数")) b = Val(InputBox("b=", "输入脚数")) x = 2 * a - b / 2 y = b / 2 - a Print "鸡数x="; x, "兔数y="; y End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub

Dim A, B, C As Integer A = Text1.Text B = Text2.Text C = Text3.Text S = 2 * (A * B + A * C + B * C) Label6.Caption = S V = A * B * C Label7.Caption = V End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label6.Caption = "" Label7.Caption = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() End Sub