visual basic

Blackangel

cafte dostal som ulohu z info ze najdenie maxima z 2 cisiel
Zabezpecit aby porovnane cisla boli A ,B ( pouzi inputbox)

pls nevie to nekdo ?? ja nemam ani sajnuu

maximum z dvoch čísel? Si robíš srandu? Načítaj vstupy, a porovnáš ich. Väčšie vypíšeš. Príklad na 5 riadkov

manager666

Je to treba pre VB.Net alebo VB 6 ?
Ale ako toto je asi najjednoduchsie zadanie ake som kedy videl...Co to mas na aku skolu ?

Jake44

Kód: Vybrať všetko

Dim cisla As String
Dim p()
------------------------------------------------------------------------------
Private Sub Command1_Click()
cisla = InputBox("Napis dve cisla a oddel ich ciarkou!", "NADPIS")
n = Len(cisla)
For i = 1 To n + 1
    If i < n + 1 And Mid(cisla, i, 1) <> "," Then
        pom = pom + Mid(cisla, i, 1)
    Else
        m = m + 1
        ReDim Preserve p(m)
        p(m) = Val(pom)
        pom = ""
    End If
Next i
If p(1) > p(2) Then Text1 = Str(p(1)) + " je vacsie."
If p(1) < p(2) Then Text1 = Str(p(2)) + " je vacsie."
If p(1) = p(2) Then Text1 = "Su rovnake."

End Sub
----------------------------------------------------------------------------
Private Sub Command2_Click()
End
End Sub

Takto nejak by som to robil ja...urcite sa to da este zlepsit...
A forma je asi takato:

reDo

v akom MVS si to robil v 2008??

Jake44

nie...bol to VB 6.0