会VB的进 高手帮我做3道题 够速度的给加分

来源：百度知道 编辑：UC知道 时间：2024/05/31 01:10:21
1、电子倒计时器：用一个计时器控件倒计时时间，每秒钟响应一次。倒计时时间到时响铃beep，并有提示信息
2、计算阶乘5!,6!,8!,以及5!+6!+8!：定义一个计算阶乘的通用过程。再定义一个按钮数组，实现所要求的4项计算
3、城市与人口：
（1）在“城市名”和“人口数”文本框中输入信息之后，单击“添加”按钮，城市名被添加到“已有城市”列表框中，相应的人口数量也被保存；
（2）单击列表框中任意一个城市名，在两个文本框中显示出这个城市的名称和相应的人口数量；
（3）单击“删除”按钮，删除列表框中当前选定的城市名；
（4）单击“全部删除”按钮，消除列表框中的所以城市名。
提示：列表框控件为每个条目保存了一个长整型数值，存储于itemdata属性中，它不被显示出来，但可以通过程序进行存取。itemdata属性是一个长整型数组，数组中的每个元素对应列表框中的一个条目，元素的个数与列表框中条目数相同，并与list属性的元素一一对应。程序可以利用这个属性保存与条目相关的各种操作
Lstcity.ItemData(Lstcity.NewIndex) = lngpop '保存人口数量
Txtpop.Text = Lstcity.ItemData(Lstcity.ListIndex) '显示人口数
如果可以的话做好 打包 发我邮箱 aqapaqq@163.com 多谢多谢多谢 高手一定帮忙啊

第2题的如下，全部的都发到你邮箱了

Private Function JieCheng(n As Integer) As Double
JieCheng = 1
If n < 1 Then Exit Function
If n > 1 Then JieCheng = n * JieCheng(n - 1)
End Function

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Command1(Index).Caption = "5!=" & JieCheng(5)
Case 1
Command1(Index).Caption = "6!=" & JieCheng(6)
Case 2
Command1(Index).Caption = "8!=" & JieCheng(8)
Case 3
Command1(Index).Caption = "5!+6!+8!=" & JieCheng(5) + JieCheng(6) + JieCheng(8)
End Select
End Sub

Private Sub Form_Click()
Form_Load
End Sub

Private Sub Form_Load()
Command1(0).Caption = "5!=?"
Command1(1).Caption = "6!=?"
Command1(2).Caption = "8!=?"
Command1(3).Caption = "5!+6!+8!=?"
End Sub

JieCheng函数还写成递归了，计算机不的累死。
下面这段可以不要
Private Functi