请计算机高手帮我做做这几道VB程序设计题，关乎我的计算机成绩，万分感谢！！
我们计算机药考试了 我一窍不通 请计算机高手帮我做做 谢谢啦！！参考http://61.136.178.248/yuanxi/shekebu/im386/vb.doc或者题目如下：
1、在名称为Form1的窗体上建立一个名称为Cmd1，宽度为1500，高度为500，标题为"显示"的命令按钮（如图所示），编写适当的事件过程。要求程序运行后，如果单击"显示"命令按钮，则在窗体上显示"祝你考试成功"。
2、输入圆的半径,求圆的周长和面积。
3、在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
4、在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为"体育"、 "音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。要 求程序运行后，如果选中某个复选框，则当单击"显示"命令按钮时，则显示 相应的信息。例如，如果选取中"体育"和"音乐"复选框，则单击"显示" 命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果 选中"体育"、"音乐"和"美术"复选框，则单击"显示"按钮后，在窗 体上显示"我的爱好是体育音乐美术"。
5、编写程序，输出如下图形：
A
AAA
AAAAA
AAAAAAA
BBBBBBB
BBBBB
BBB
B
6、设计程序，在窗体上添加两个命令按钮：添加和删除，左右两边各放置一个列表框listbox控件，list1和list2，在list1中竖排显示内容“你的学号、你的姓名、你的性别、你的出生年月（格式为****年**月**日）”运行程序，在选定list1中的内容时候，点击添加，将选定的内容添加到list2中，点击删除则删除list2中选定的内容。
7、新建一个工程，完成“健康称”程序的设计。
（1）窗体的标题为“健康称”，固定边框。
（2）窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的标题为“cm”，Label4的标题为“kg”。
（3）将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。
（4）两个文本框均不接受非数字键。
（5）单击“健康状况”按钮(Command1)，根据计算公式将相应的提示信息显示在标签Label5中。
计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。
'宽度为1500，高度为500，标题为"显示"的命令按钮
'（如图所示），编写适当的事件过程。要求程序运行后，
'如果单击"显示"命令按钮，则在窗体上显示"祝你考试成功"。
Option Explicit
Private Sub Cmd1_Click()
Print "祝你考试成功"
End Sub
Private Sub Form_Load()
Cmd1.Width = 1500
Cmd1.Height = 500
Cmd1.Caption = "显示"
Me.AutoRedraw = True
End Sub
----------------------
'2,输入圆的半径 , 求圆的周长和面积?
Option Explicit
Private Sub Form_Load()
Me.AutoRedraw = True
Dim banjing As Double
Dim mianji As Double
Dim zhouchang As Double
Dim PI As Double
PI = 3.14159265
banjing = InputBox("请输入半径!")
mianji = PI * PI * banjing
zhouchang = banjing * 2 * PI
Print "面积="; mianji
Print "周长="; zhouchang
End Sub
------------------------
'3在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，
'并用这三个单选按钮建立一个控件数组，名称为Option1，程序
'运行后，如果单击某个单选按钮，则文本框中的字体将根据所
'选择的单选按钮切换。
Option Explicit
Private Sub Form_Load()
Dim i As Long
Option1(0).Caption = "宋体"
Option1(1).Caption = "隶书"
Option1(2).Caption = "黑体"
Text1.FontSize = "20"
Text1.Text = "字体变化！！！请你看！！！！！"
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 1
Text1.FontName = "隶书"
Case 2
Text1.FontName = "黑体"
Case 0
Text1.FontName = "宋体"
End Select
End Sub
-------------------------------------
'4
Option Explicit
Private Sub C1_Click()
Dim showCaption As String
showCaption = "我的爱好是"
If Ch1(0).Value <> 0 Then
showCaption = showCaption & "体育"
End If
If Ch1(1).Value <> 0 Then
showCaption = showCaption & "音乐"
End If
If Ch1(2).Value <> 0 Then
showCaption = showCaption & "美术"
End If
Me.Caption = showCaption
End Sub
Private Sub Form_Load()
Ch1(0).Caption = "体育"
Ch1(1).Caption = "音乐"
Ch1(2).Caption = "美术"
C1.Caption = "显示"
End Sub
----------------------------
'5
Option Explicit
Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Long
Dim j As Long
For i = 1 To 7 Step 2
For j = 1 To i
Print "A";
Next j
Next i
For i = 7 To 1 Step -2
For j = 1 To i
Print "B";
Next j
Next i
End Sub
----------------------------------
其他两题,你自己想吧!!!!!
或者新开题目问吧!!!!!!!!
'宽度为1500，高度为500，标题为"显示"的命令按钮
'（如图所示），编写适当的事件过程。要求程序运行后，
'如果单击"显示"命令按钮，则在窗体上显示"祝你考试成功"。
Option Explicit
Private Sub Cmd1_Click()
Print "祝你考试成功"
End Sub
Private Sub Form_Load()
Cmd1.Width = 1500
Cmd1.Height = 500
Cmd1.Caption = "显示"
Me.AutoRedraw = True
End Sub
