高手帮忙做几个简单VB程序,奖重金！

一、 完成以下编程题
要求：
① 只保存exe文件，用自己的名字加数字命名文件名
② 将窗体的caption属性改为自己的名字
③ 程序界面尽量与样例一致，允许控件大小与样例有较小差别

1、 编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。

2、 编一个移动图片程序，每间隔0.1秒使图片从窗口左边向右边水平移动100个单位。

3、卖葡萄。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。
我的邮箱：Superjhq@hotmail.com
名字:JHQ

呵呵，我也是新手，做了一下，算是练习！一共三个窗体，每个窗体的代码分别如下：
窗体1：两个command，三个text,三个label，代码如下：
Const pi = 3.14
Dim r, l, s As Double
Private Sub Command1_Click()
r = Val(Text1.Text)
l = 2 * pi * r
Text2.Text = l
s = pi * r * r
Text3.Text = s
End Sub

Private Sub Command2_Click()
Form1.Hide
Form2.Show
End Sub
窗体二：一个command ,一个picture，一个timer，代码如下：
Private Sub Command1_Click()
Form2.Hide
Form3.Show
End Sub

Private Sub Form_Load()
Picture1.AutoSize = True
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 100
If Picture1.Left > 1500 Then
Picture1.Left = 0
End If
End Sub

窗体三：三个commmand,两个label,两个text，代码如下；
Private Sub Command1_Click()
If Val(Text1.Text) >= 10 Then
Text2.Text = 3 * Val(Text1.Text)
Else
Text2.Text = 3.5 * Val(Text1.Text)
End If
End Sub