1、编写程序,求“鸡兔同笼”问题,鸡有2只脚,兔有四只脚,如果已知鸡和兔的总头数为h,总脚数为f ,问笼中鸡和兔各有多少

第一题 放2个输入眶用来输入头数和脚数 还有一个按钮用来计算 结果显示在窗体上 2个输入眶和按钮最好放在窗体的靠下的位置 因为输出的结果是从窗体上方开始打印的 如果控件放在上面有可能会被遮挡掉 代码如下
Private Sub Command1_Click()
Dim h, r As Integer
h = CLng(Text1.Text) '这个输入眶放的是头数
r = CLng(Text2.Text) '这个输入眶放的是脚数
Dim x, y As Integer
For x = 0 To h
y = h - x
If (2 * x + 4 * y = r) Then
Print "当鸡有" & Str(x) & "只,兔子有" & Str(y) & "只时,满足条件" & Str(h) & "个头," & Str(r) & "只脚"
End If
Next
End Sub
第二题 放2个输入眶用来输入用户名和密码 还有一个按钮用来判断 用户名和密码的数值我在代码中有注释 代码如下
Private Sub Command1_Click()
Dim username, password As String
username = "admin" '这里是正确的用户名
password = "123456" '这里是正确的密码
Static count As Integer
If (Text1.Text username) Then
End
ElseIf (Text2.Text password) Then
count = count + 1
MsgBox ("密码错误")
Else
MsgBox ("登录成功")
End If
If (count = 3) Then
End
End If
End Sub
第三题 直接输出到窗体上 什么控件都不用放 记得窗体调的大点 以免内容太多输出不下 代码如下
Private Sub Form_Paint()
Cls
Const n = 10
Dim myarray(n, n) As Integer
Dim x, y As Integer

For y = 0 To n
For x = 0 To y
If (x = 0) Then
myarray(x, y) = 1
ElseIf (x = y) Then
myarray(x, y) = 1
Else
myarray(x, y) = myarray(x - 1, y - 1) + myarray(x, y - 1)
End If

Next
Next

Dim tmpstr As String

For y = 0 To n
tmpstr = ""
For x = 0 To y
tmpstr = tmpstr & Str(myarray(x, y)) & vbTab
Next
Print tmpstr
Next
End Su