Tu no estas pidiendo ayuda tu estas pidiendo que te hagan el trabajo 
[/quote]

mira pana yo no les pedia q me icieran los programas ni la tarea solo q me dijeran mas o menos donde podia conseguirlos q me AYUDAEN A CONSEGUIR ALGUNOS q pesados son solo q qaria q me mostraran algun lugar dond salgan esos ejercicios o parcidos

weno panas disculpenme ice las cosas mal weno ya de todos modos los ice solo me faltan detalles como aora si pueden ayudarme aunq sea diciendome como llamo una  imagen ejemplo :

If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj")
Label1.Caption = "ES UN DJ"
end if

al yo correr el programa me dice run-time error 53 pueden ayudarme a llamar la imagen de esa manera con option button gracias
a por cierto  cΔssiΔnі me caes bien jeje
me darias tu correo?? jeje

como ago un  osea como hago para q el programa haga esto: programa que lea 2 números enteros y sin multiplicarlos determine si su resultado es  positivo o negativo

Uhm... parece que cambiaste la estrategia, pero haces lo mismo 

Estos ejercicios son lógica pura, si no la tienes no llegaras muy lejos...

En matemáticas, al multiplicar los signos tenemos:

Signos iguales dan suma y signos diferentes dan resta, esa premisa será la que usaras para resolver este ejercicio, lo demás es conocer los controles y eventos que necesitaras para elaborarlo.

Esta es una de las tantas formas que puedes usar:

Option Explicit
 
Private Sub CmdDeterminar_Click()
    If Text1.Text = "" Or Text2.Text = "" Then Exit Sub
 
    If (Text1.Text < 0 And Text2.Text < 0) Or _
    (Text1.Text > 0 And Text2.Text > 0) Then
 
        MsgBox "El resultado será positivo"
    Else
        MsgBox "El resultado será negativo"
    End If
End Sub

Pd: A mi no me engañas 

Edit: 0 es neutro

gracias aora tengo lio con un codigo por mas q le haga periqitos osea arreglos o sea lo q sea me da error se trata de llamar una imagen con los option button y mostrar su nombre en un label. ya nos e q acer!!!! por mas q le ponga las extansiones de jpg o bmp nada no muestra la imagen!!!

Private Sub Command1_Click()

If Option1 And Option2 And Option3 And Option4 And Option5 = False Then
x = MsgBox("debe seleccionar una opcion", vbCritical, "Opciones")
End If

If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj.bmp")
Label1.Caption = "ES UN DJ"
End If

If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\mini.bmp")
Label1.Caption = "ES UNA MINITECA"
End If

If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\cerw.bmp")
Label1.Caption = "ES UN CAJON CERWIN VEGA"
End If

If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\car.bmp")
Label1.Caption = "ES CARIBBEAN"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ tri.bmp ")
Label1.Caption = "ES TRIDIMENSION"
End If

End Sub

-Programa que a través de una selección de imágenes  muestre la reconversión monetaria

Private Sub Command1_Click()
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\1.bmp")
Label1.Caption = "un bolivar fuerte"
End If

If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\2.bmp")
Label1.Caption = "dos bolivares fuertes"
End If

If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\5.bmp")
Label1.Caption = "cinco bolivares fuertes"
End If

If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\10.bmp")
Label1.Caption = "dies bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 10.bmp ")
Label1.Caption = "veinte bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 50.bmp ")
Label1.Caption = "cincuenta bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 100.bmp ")
Label1.Caption = "cien bolivares fuertes"
End If
End Sub