1、编写程序,求“鸡兔同笼”问题,鸡有2只脚,兔有四只脚,如果已知鸡和兔的总头数为h,总脚数为f,问笼中鸡和兔各有多少只?2、编写一个密码输入的验证程序,对输入的帐号和密码验证规则如

Question

1、编写程序,求“鸡兔同笼”问题,鸡有2只脚,兔有四只脚,如果已知鸡和兔的总头数为h,总脚数为f ,问笼中鸡和兔各有多少只?
2、编写一个密码输入的验证程序,对输入的帐号和密码验证规则如下：
（1）如果用户名不正确则退出系统
（2）如果用户名正确,则判断密码是否正确
（3）如果密码不正确,统计输入次数,当输入次数超过三次时,退出系统
3、编写程序,输入“杨辉三角形”
杨辉三角形的每一行是（x+y)ⁿ的展开式的各项的系数,例如,第一行是（x+y)º,其系数为1；第二行是（x+y)¹,其系数为1,1；第三行（x+y)²,其展开式为x²+2xy+y²,系数分别为1,2,1,.一般形式如下：
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
分析上面的形式,可以找出其规律：对角线和每行的第一列均为1,其余各项是它的上一行中前一个元素和上一行的同一列元素之和.例如第四行第三列的值为3,它是第三行第二列与第三列元素值之和,可以一般地表示为：
a(i ,j) = a( i-1 ,j-1)+( i-1 ,j)
编写程序,输出n=10的杨辉三角形（共11行）.
希望有人能帮帮忙啊

Answer 1

第一题 放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 Sub