致新手：用VB6解决一些有趣的问题（一）

        鸡兔同笼

 

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

 

 

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

    txtTotal   总数

    txtFeet    脚数

    Command1    计算

    Command2    生成

 

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

 

 

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

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