急！求VB编程题答案。马上就要高一信息技术会考了~以下题求答案！！

第二题

Private Sub Command1_Click()

    Dim a As Long

    Dim s As Long

    Dim i As Long

    If Trim(Text1.Text) = "" Then

        MsgBox "请填写N的值!!", vbInformation, "-提 示-"

        Exit Sub

    ElseIf Trim(Text1.Text) = "0" Then

        MsgBox "0不参于计算!", vbInformation, "-提 示-"

        Exit Sub

    Else

        a = CLng(Trim(Text1.Text))

        s = 1

        For i = 1 To a

           s = s * i

        Next i

        Text2.Text = Str(s)

    End If

End Sub 

第三题:

Private Sub Command1_Click()

    If Trim(Text1.Text) = "" Then

        MsgBox "请输入年龄", vbInformation, "-提 示-"

        Text1.SetFocus

        Exit Sub

    Else

        Dim a As Integer

        a = CInt(Text1.Text)

        Select Case a

            Case Is < 18

                Text2.Text = "青  年"

            Case Is < 60

                Text2.Text = "中青年"

            Case Is >= 60

                Text2.Text = "老  年"

        End Select

    End If

End Sub

第四题:

第四题:

Private Sub Command1_Click()

    If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then

        MsgBox "请填完整"

    ElseIf CLng(Text1.Text) = CLng(Text2.Text) Then

        Label1.Caption = "两数相等!!"

    ElseIf CLng(Text1.Text) > CLng(Text2.Text) Then

        Label1.Caption = Text1.Text

    Else

        Label1.Caption = Text2.Text

    End If

End Sub

Private Sub Command2_Click()

    Text1.Text = "" And Text2.Text = ""

End Sub

第一题:见图/

平时不好好学习，连会考都要求助。鄙视你！