求救VB啊啊啊,急

Question

题目要求：
1、百钱买百鸡
使用For循环及If语句计算下面问题结果，并通过print函数将计算结果打印在窗体相应位置，功能外观如例
待求问题：用100 元买100 只鸡，母鸡3元1只，小鸡1元3只，问各应买多少只？
2、成绩计算
如例程所示，分别在相应位置输入“学生姓名”及三种百分制的成绩，按“计算”按钮可显示带有“学生姓名”的“综合成绩”及“评分等级”（100-90优秀、89-80良好、79-70中等、69-60及格、60分以下为不及格。，请编程实现。
3、有条件求和
如例程所示，在文本框中输入0-1000中任意整数值n，单击“求和”按钮，在标签栏中计算得出1到n中所有能被“3”整除的整数之和，输入0-1000以外的数打印输出“输入数值超范围”。请编程实现。
4、图片展示
如例程所示，利用图片框实现图片的自动展示和手动展示，当复选框被选中时，开始图片自动切换，自动切换时间为1S，初始图片为“00.jpg”，之后在“01.jpg-02.jpg-03.jpg”之间循环切换。单击“NEXT”按钮进行图片手动切换。并设置如例所示窗体标题、背景颜色及按钮颜色。
5、播放器
如例程所示，利用Windows Media Player控件制作一个播放器，可通过复合框（下拉菜单）选择预设的歌曲，通过“Play”和“Stop”按钮来实现歌曲播放控制，当未选择歌曲时标签栏提示“请选择歌曲”，选择播放后标签栏消失。请编程实现。
6、多窗体比较大小
如例程所示，在（1）第一个窗体的三个文本框中分别输入三个数字，（2）单击“比较”菜单中的“最大值”选项，在第二个窗体中通过标签栏输出三个数中的最大值；（3）在第（1）步后单击“比较”菜单中的“排序”选项在第二个窗体中输出三个数由大到小的排序结果。
（4）按照例程建立菜单项并完善菜单功能。
7、多窗体选择图片
如例程所示，在第一个窗体中通过“文件列表框”选择硬盘上的任意图片，单击“确认”后在第二个窗体的图片框中显示所选中的图片，并在文本框中显示图片名。（注：当选择图片文件时，文件列表框只显示以jpg、bmp、gif为扩展名的文件，不显示其他类型的文件。）且按例程风格设置窗体及按钮颜色。
8、窗体动画
如例程所示，在启动窗体中添加两条动态的直线，第一条（红色）由上至下水平移动，Y1=Y2坐标由100变化到2800，第二条（绿色）由下方逐渐向正上方伸长，Y1不变，Y2由3000变化到80.。第一条直线移动结束时第二条直线开始变化，第二条直线变化结束时如例中诗句题目出现，单击题目出现诗句首句，单击首句出现第二句，直至最后一句出现。（发挥部分：设计如例所示标签栏颜色随时间自动变化）

Answer 1

题目写得不太清楚 “例程”看不到：
只能实现功能：

'1 ?百钱买百鸡
'使用For循环及If语句计算下面问题结果，并通过print函数将计算结果打印在窗体相应位置，功能外观如例
'待求问题：用100 元买100 只鸡，母鸡3元1只，小鸡1元3只，问各应买多少只？

Private Sub Command1_Click()

For x = 1 To 100
For y = 1 To 100
If x + y = 100 And 3 * x + 1 / 3 * y = 100 Then
Print "母鸡数："; x, "小鸡数："; y
End If
Next
Next
End Sub

'2 ?成绩计算
'如例程所示，分别在相应位置输入“学生姓名”及三种百分制的成绩，按“计算”按钮可显示带有“学生姓名”的“综合成绩”及
'“评分等级”（100-90优秀、89-80良好、79-70中等、69-60及格、60分以下为不及格。，请编程实现。
Dim sname As String
Dim red1 As Integer
Dim red2 As Integer
Dim red3 As Integer

Private Sub Command1_Click()
ave = (red1 + red2 + red3) / 3#
Select Case Int(ave / 10)
Case 9
s = "优秀"
Case 8
s = "良好"
Case 7
s = "中等"
Case 6
s = "及格"
Case Else
s = "不及格"
End Select
Print "学生姓名："; sname
Print "综合成绩："; ave
Print "评分等级："; s
End Sub

Private Sub Text1_Change()
sname = Text1.Text
End Sub

Private Sub Text2_Change()
red1 = Text2.Text
End Sub

Private Sub Text3_Change()
red2 = Text3.Text
End Sub

Private Sub Text4_Change()
red3 = Text4.Text
End Sub

3.
Private Sub Command1_Click()
If CInt(Text1.Text) >= 0 And CInt(Text1.Text) <= 1000 Then
For i = 1 To CInt(Text1.Text)
If i Mod 3 = 0 Then
s = s + i
End If
Next
Label1.Caption = s
Else
Print "输入数值超范围"
End If
End Sub

Answer 2

老大,作业是要自己做滴
不过我也抄了不少作业,心虚ing...随便选一个给你做吧

3、有条件求和
如例程所示，在文本框中输入0-1000中任意整数值n，单击“求和”按钮，在标签栏中计算得出1到n中所有能被“3”整除的整数之和，输入0-1000以外的数打印输出“输入数值超范围”。请编程实现。

sub 求和_click()
on error goto e
dim n as integer,t as long ,m as long
n=cint(文本框.text)
if n>1000 or n<0 then goto e
n=n-(n mod 3)
m=n\3
标签栏.caption=((n+3)*m)\2
exit sub
e:
print 输入数值超范围""
end sub

Answer 3

第一题:
Dim mj, xj
mj = 0
For mj = 0 To 33
xj = (100 - mj * 3) * 3
If xj + mj = 100 Then
GoTo End1:
End If
Next
End1:
Print ("母鸡" & mj & "只," & "小鸡" & xj & "只.")

Answer 4

这些应该是作业吧 不然不会这么多

而且这些都是很简单的VB程序啊

程序要自己去编自己去想自己去试自己去改才会进步的 ！

太多了，没法做，要花很多时间的，这200分我还是不要了吧，闪人。。

Answer 5

哥们!自己动手吧!给分也没有多余的时间给你做这么细的活.要不你去威客网问问.

Answer 6

200分大概会有人考虑帮忙
我是拿分走人的