vb作业!甚急,在线等答案!求各位高手指教!!!!!!!

1．
设计如图界面，当点击“发射”后，让飞机移到云下。
2．在三个文本框中输入姓名、年龄、性别，并将这三个信息显示在一个标签上，
再根据性别在图片框中显示一幅表示男或女的小图片。
（说明：在C:或d:\program file\microsoft visual studio\common\graphics\misc下找图片）
3．建一个工程，两个窗体，在第一个窗体上是如下内容：
有两个命令按钮（一个显示“计算”，一个显示“输入半径”），三个文本框。
单击命令按钮对变量半径R赋值（inputbox,val）
第一个文本框显示半径,
第二个文本框显示圆的周长
第三个文本框显示圆的面积
单击“计算”命令按钮进行计算。
定义一个单精度变量R表示圆的半径，定义一个符号常量代表圆周率3.14159。

1.

Picture1.Top = Picture1.Top + 2000

2.
Label1.caption = text1.text & " " & text2.text & " " & text3.text

if text3.text = "男" then
Picture1.Picture = LoadPicture("d:\program file\microsoft visual studio\common\graphics\misc" & "\" & "male.bmp")
'*************图片名称要改
else
Picture1.Picture = LoadPicture("d:\program file\microsoft visual studio\common\graphics\misc" & "\" & "female.bmp")
'*************图片名称要改
end if

3.

个显示“输入半径”），

dim R as double

private sub command1_click()

R = val(inputbox("Please input R "))
end sub

一个显示“计算”，

private sub command2_click()

const cPI as double = 3.14159

Text1.text = R
Text2.text = 2 * cPI * R
Text3.text = cPI * R * R