IRC-Galleria

tänää 2 v yhes Anna kaa<3 Anna on mailman ihanin<3<3

FFS DING 18!!!!!!!! oon täysikänen, HAHAHAH :D:D

kulta pieni, Osku rakastaa sua<3 oot mun pieni simpsu:)<3<3

hyvää jouluu kaikil :)

sunnuntain lähn laival noin 2000 muitte amisten kaa.. ja siel sit tuli iha liikaa kaljaa otettuu:D tänää on sit krapula päivä ja eiks sanota et tyhmä pää koko kroppa kärsii :D

Sub Dotest1()

Dim tal As Double
Dim tal2 As Double

tal = InputBox("skriv in ett tal som är större än 0,5")


Do Until (tal <= 0.5)

tal = tal * 0.9
Loop
MsgBox "talet minskat med 10% är " & tal
End Sub

Sub Dotest2()
Dim tal As Double
Dim tal2 As Double

tal = InputBox("skriv in ett tal som är större än 0,5")
tal2 = InputBox(" ange ett stoppvärde")

Do Until (tal <= tal2)

tal = tal * 0.9
Loop
MsgBox "talet minskat med 10% är " & tal
End Sub

Sub Dotest3()
Dim tal As Double
Dim tal2 As Double
Dim tal3 As Double

tal = InputBox("skriv in ett tal som är större än 0,5")
tal2 = InputBox(" ange ett stoppvärde")
tal3 = tal
Do Until (tal <= tal2)

tal = tal * 0.9
Loop
MsgBox "startvärdet , " & tal3 & " minskat med 10% ända tills stoppvärde du valde kommer imot är " & tal
End Sub

Mult hävis puhelin lauantain ja ei oo mittää numeroit tallel joten voitte tietenki antaa teiä numerot mul..

Dim iAntal As Integer
Dim iAntal2 As Integer


Sub Addera1()
iAntal = InputBox("sätt ett tal i rutan?")
iAntal = iAntal + 1
MsgBox "nesta tal är " & iAntal
End Sub