学步园

        鸡兔同笼

        已知在同一笼子里有鸡和兔的总头数为m头，鸡和兔的总脚数为n只，求鸡和兔各有多少只？

左上角的Label是显示的，对应控件依次是

    txtTotal   总数

    txtFeet    脚数

    Command1    计算

    Command2    生成

Option Explicit</p> <p>Private Sub Command1_Click()<br /> Dim s As Long, j As Long<br /> Dim x As Integer, y As Integer<br /> s = CLng(txtTotal.Text)<br /> j = CLng(txtFeet.Text)<br /> 's = x + y<br /> 'j = 2 * x + 4 * y<br /> y = j / 2 - s<br /> x = s - y<br /> lblResult.Caption = "计算结果：" & vbCrLf & "鸡有 " & CStr(x) & "只" & vbCrLf & "兔有 " & CStr(y) & "只"<br /> End Sub</p> <p>Private Sub Command2_Click()<br /> Dim x As Integer, y As Integer<br /> x = Int(Rnd * 100): y = 100 - x<br /> txtTotal.Text = CStr(x + y)<br /> txtFeet.Text = CStr(2 * x + 4 * y)<br /> End Sub</p> <p>Private Sub Form_Load()<br /> Command2_Click<br /> End Sub<br />

这是最简单不过的二元一次方程求解了

给最新最新最新最新最新最新最新，比处女还新的新手