各位高手帮忙编几个初级程序(用VB)

第一题
编写程序求出100以内的所有素数
第二题
求2-100中的完全数(因子之和等于它本身的数为完全数 例如:28的因子是1.2.4.7.14,且1+2+4+7+14=28,则28是完全数)
第三题
年级进行数学考试,数学老师请你帮助他设计一个程序,求出各班的最高分和平均分.
第四题
编写程序,在屏幕上输出如下格式的"金字塔"
A
ABA
ABCBA
.......
.........
ABCDEFG....MNOPQRSTUVWXYXWVUTSRQPONM....CBA
ABCDEFG....MNOPQRSTUVWXYZYXWVUTSRQPONM....CBA
第五题
公元6世纪,中国的<章丘建算经>有一道著名的百鸡问题:"今有鸡翁一值钱五,鸡雏三值钱一,鸡母一值钱三,凡百钱买百鸡,问鸡翁,鸡母,鸡雏各几只?"设计一个求解的算法,用自然语言把它描述出来.
希望各位高手能够详尽列出程序语言```简单的说我看不明白啊```谢谢```我正在学VB吖``拜托``
下午就截至啦`````块啊```

练习1：编写程序求出1000以内的所有素数。
参考程序：
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer
For i = 1 To 1000
For n = 2 To i - 1
If i Mod n = 0 Then Exit For
Next n
If n = i Then
Print i;
m = m + 1
If m Mod 10 = 0 Then Print '每输出10个素数后换行
End If
Next i
End Sub
练习2：求2~1000中的完全数（因子之和等于它本身的数为完全数，例如28的因子是1，2，4，7，14，且1+2+4+7+14=28，则28是完数）。
参考程序：
Private Sub Command1_Click()
For i = 2 To 1000
s = 0
For j = 1 To i - 1
If i Mod j = 0 Then
s = s + j
End If
Next j
If s = i Then Print i; "是完全数"
Next i
End Sub
练习3：年级进行数学考试，数学老师请你帮助他设计一个程序，求出各班的最高分和平均分。
参考程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, m As Integer
Dim fen As Single, sum As Single, average As Single, max As Single