请VB编程高手帮忙

Text1.Text 输入头数

Text2.Text 输入脚数

Text3.Text 为输出鸡数

Text4.Text 为输出兔数

Private Sub Command1_Click()

Dim a, b, h, f As Single

h = Val(Text1.Text) '总的头数为

f = Val(Text2.Text) '总的脚数为

If (h * 10 <>Int(h) * 10) Or (f * 10 <>Int(f) * 10) Then

MsgBox "您输衡拿颂入的数据不合理!,请重新输入"

Exit Sub

End If

a = (4 * h - f) / 2 '兔子的数量

b = (f - 2 * h) / 2 ' 鸡的数量

If a <0 Or b <0 Then

MsgBox "敏拦您输入的数据不咐郑合理!,请重新输入"

Exit Sub

End If

If (a * 10 <>Int(a) * 10) Or (b * 10 <>Int(b) * 10) Then

MsgBox "您输入的数据不合理!,请重新输入"

Exit Sub

End If

Text3.Text = a

Text4.Text = b

End Sub

1、用Shell调用Winrar，网上有丛悄winrar参数说明

2、生成穷举字典，网上渗亏渣有VB穷举法函数

3、循环执行解压命令，直到返回正确信息，或穷举完成。

4、不用空郑什么控件，只要有装winrar就行

我来补充几句：

学习程序设计，动手实践很重要，也是一个好的途径。

问题①，完全应该通过实践，在VB里一条语句，就可以找到答案。然后要理解各个运算符号的作用，可以一一尝试。

问题②，也可以实践尝试，获得解答。例如：

print Right("DEF", 1)

print Right("DEF", 2)

print Right("DEF", 3)

print Right("DEF", 4)

问题③，

解析法 ---- 就是列出要求的结果与已知条件之间的数学关系式，求解的方法。

例如：已知矩形的长和宽，求面积？

例如：已知直线匀速运动的速度、时间，求位移？等等，可以这么说，初等数学应用题、物理、化学等题目，大多数可以用解析法来解。

穷举法 -- 又叫枚举法，就是把问题可能的所有解一一列举，在列举的过程中同时樱卖逐个检验，如果检验结果符合符合要求的就是解、不符合要求的就舍弃。通常解题过程先要根据题目要求，确定穷举范围，用循环来实现穷举，然后在循环中用一个选择（分支）来完成检验。所以穷举法的一个特点，一般是循环内嵌套分支。

例如：生活中的例子，一串钥匙去开一把锁，不知道是哪把？就会自然而然的用穷举（一一列举，逐个检验）

例如：求1000以内的素数

穷举（循环）范围，i = 2--1000，检验是否素数（用2到i-1去一一除）

递归法：当过程或函数自己调用自己时，该过程或函数称为递归过程或递归函数：

举个简单的例子：

例如：求1+2+3+...+100的和

解法一：不用递归

s=0

for i=1 to 100

s=s+i

next i

解法二：用递归（编写递归函数）

Function 求和(Byval n As Integer) As Integer

if n=1 then

求和=1

else

求和=n + 求和(n-1)

End iF

End Function

主程序用一句去调用它

print 求和（100）

关于：冒泡排序法、选择排序法，是排序的不同方法，排序方法很多，这是两种基本的方法，凡是教科书都会缓御介绍，一句两句说不完，你可以直接搜索一下“冒泡排序法”和“选择排序法”脊哪逗，应该网上有很多，很详细的介绍 百度就有 。

---