求VB高手帮忙

我的VB课让我们做三个实验，可是都不会，请教高手，好的解答我会追加。
截图如下：
这是实验一，都是十以内的加减法，要求点击出试卷后随机给出10道题，在答卷内答题，然后点评卷后，会针对左边的答卷给出√或者×并显示分数。
这是实验二，易做图号码和买主姓名是自己输入的，输入后点击购买就可以存入左边的那列，再点击开奖就会随机出来5个数
这是实验三，是一个游戏，就跟愤怒的小鸟类似。
 
 
真的不想挂科，求高手帮忙，感激不尽。Thankx a lot！
 

追问：帅哥，能帮我把成品发过来吗？拜托啦。。真心不会啊。。

答案：实验一：
Private Sub Command1_Click()
Dim a(1) As String
a(1) = "-": a(0) = "+"
For i = 1 To 10
  Label2(i - 1).Caption = Int(Rnd * 10)   '随机选择10个10<>1的数作为第1个运算数。
   Label2(i + 9).Caption = Int(Rnd * 2)    '随机选择“+”“-”号如果是1则为“+”是2则为“-”
    If Label2(i + 9).Caption = 1 Then
      Label2(i + 9).Caption = a(0)
       Else
    Label2(i + 9).Caption = a(1)
End If
Label2(i + 19).Caption = Int(Rnd * 10)  '随机选择10个10<>1的数作为第2个运算数.
Text1(i - 1).Text = ""                  '将Text1控件数组内容清空。
Next i
List1.Clear
End Sub
Private Sub Command2_Click()
Dim s, s1 As Integer     's记录两数运算结果,s1记录正确的数量。
Dim d, d1 As String   'd用来表示√ ：d1表示×
List1.Clear
s1 = 0
For i = 1 To 10
d = "(" & i & "):√"
d1 = "(" & i & "):×"
If Label2(i + 9).Caption = "+" Then
    s = Val(Label2(i - 1).Caption) + Val(Label2(i + 19).Caption)
     Else
  s = Val(Label2(i - 1).Caption) - Val(Label2(i + 19).Caption)
End If
If s = Val(Text1(i - 1).Text) Then
List1.AddItem d
s1 = s1 + 10
Else
List1.AddItem d1
End If
Next i
List1.AddItem "你的得分是：" & s1 & "分"
End Sub
Private Sub Form_Load()
Dim a(1) As String
a(1) = "-": a(0) = "+"
For i = 1 To 10
  Label2(i - 1).Caption = Int(Rnd * 10)   '随机选择10个10<>1的数作为第1个运算数。
   Label2(i + 9).Caption = Int(Rnd * 2)    '随机选择“+”“-”号如果是1则为“+”是2则为“-”
    If Label2(i + 9).Caption = 1 Then
       Label2(i + 9).Caption = a(0)
    Else
       Label2(i + 9).Caption = a(1)
    End If
Label2(i + 19).Caption = Int(Rnd * 10)  '随机选择10个10<>1的数作为第2个运算数.
Next i
End Sub
 
 
 
'第二题答案
Private Sub Form_Click()
    Dim x As Integer
    x = InputBox("请输入一个数：")
    If x >= 5 Then y = 1 - x
    If x < 5 Then y = 1   2 * x
    Print y
End Sub
'第四题答案
Private Sub Form_Click()
    Dim a(1 To 10) As Integer
    Print "原数据是："
    For i = 1 To 10
        a(i) = InputBox("请输入一个数：")
        Print a(i); " ";
    Next i
    Print
    For i = 2 To 10
        If a(1) < a(i) Then a(1) = a(i)
    Next i
    Print "最大值是：" 
实验一比较简单，可以针对加数创建一个类模块，设置两个属性分别为第一个加数和第二个加数，设置一个过程生成两个加数，设置一个只读属性保存两个加数的和。评卷喃，要看是每个题要给分数还是直接给总分。
实验二要稍微复杂些，可以定义一个结构体来储存买主的姓名和号码。开奖比较简单，是一个生成五位随机数的问题，后面的四位、三位的号码直接截取就行了。开奖后对每一个买主的号码进行检查，就可以了。
实验三，说实话难，要用到定时器和一系列判定等等……
嗯,楼上有理!

上一个：VB如何修改注册表
下一个：vb中PaintPicture怎么使用呢？