napisał:  admin
postów: 613
 umieszczony:
21 czerwca 2005
19:57
|
|
A może tak:
Sub liczy100()
Dim a As Single, suma As Single, ilosc As Single
Do
a = InputBox("wpisz liczbe")
suma = suma + a
ilosc = ilosc + 1
MsgBox ("suma liczb wynosi" + Str(suma)) _
& vbCrLf & ("ilosc wprowadzonych znaków" + Str(ilosc))
Loop until a=0
MsgBox "Koniec wprowadziłeś 0"
End Sub |
|
|
napisał: r_c
postów: 38
umieszczony:
21 czerwca 2005
18:02
|
|
Witam!!!
Moim zdaniem jest to tak proste że aż podejrzane.
Sub liczy100()
Dim a As Single, suma As Single
Do Until a = 0
a = InputBox("wpisz liczbe")
suma = suma + a
ilosc = ilosc + 1
MsgBox ("suma liczb wynosi" + Str(suma))
MsgBox ("ilosc wprowadzonych liczb" + Str(ilosc))
Loop
MsgBox "Koniec wprowadziłeś 0"
End Sub
Wpisanie jednej pętli i z głowy.
Chyba coś nie tak, a może tak:
Sub liczy100()
Dim a As Single, suma As Single, ilosc As Single
Do
a = InputBox("wpisz liczbe")
suma = suma + a
ilosc = ilosc + 1
MsgBox ("suma liczb wynosi" + Str(suma)) _
& vbCrLf & ("ilosc wprowadzonych znaków" + Str(ilosc))
If a = 0 Then Exit Do
Loop
MsgBox "Koniec wprowadziłeś 0"
End Sub
:) |
|
|
napisał: tashemik
postów: 35
umieszczony:
18 czerwca 2005
13:13
|
|
Witam!!!
Moim zdaniem jest to tak proste że aż podejrzane.
Sub liczy100()
Dim a As Single, suma As Single
Do Until a = 0
a = InputBox("wpisz liczbe")
suma = suma + a
ilosc = ilosc + 1
MsgBox ("suma liczb wynosi" + Str(suma))
MsgBox ("ilosc wprowadzonych liczb" + Str(ilosc))
Loop
MsgBox "Koniec wprowadziłeś 0"
End Sub
Wpisanie jednej pętli i z głowy.
Pozdro Tashemik ;) |
|
|
napisał: r_c
postów: 38
umieszczony:
15 czerwca 2005
14:11
|
|
po zasstanowieniu b.uporządkowany kod:
'********
Option Explicit
Sub Oblicz_a()
Dim a
Static suma As Single
a = InputBox("Podaj liczbę", "Sumuj", 0)
If IsNumeric(a) And a <> 0 Then
suma = suma + CSng(a)
MsgBox "Wartość = " & suma, _
vbInformation, "Suma"
Call Oblicz_a
ElseIf a = 0 Then
MsgBox "Wybrałeś 0: łączna suma = " _
& suma, vbExclamation, "Koniec"
suma = 0
Exit Sub
Else
MsgBox "Błędna wartość", _
vbCritical, "Popraw"
Call Oblicz_a
End If
End Sub
'********** |
|
|
napisał: r_c
postów: 38
umieszczony:
14 czerwca 2005
22:58
|
|
bez większego zastanowienia można to zapisać:
Sub Oblicz()
Dim a
Static suma As Single
a = InputBox("Wprowadż liczbę", _
"Makro możesz skończyć przez wprowadzenie 0")
If IsNumeric(a) And a <> 0 Then
suma = suma + a
MsgBox "suma = " & suma, vbInformation, "Wynik"
Call Oblicz
End If
If Not IsNumeric(a) Then
MsgBox "Wprowadż wartość", vbCritical, "Popraw"
Call Oblicz
End If
If a = 0 Then
MsgBox "Wprowadziłeś 0", vbInformation, "Koniec zabawy"
suma = 0
Exit Sub
End If
End Sub |
|
|
napisał: oskaritos
postów: 1
umieszczony:
14 czerwca 2005
18:52
|
|
witam, potrzebuje napisac malutkie makro co wczytuje liczby przez inputbox i sumuje je dopóki nie napotka wprowadzenia liczby 0. do szkoły potrzebuje i nie moge nic wykombinowac, pomózcie. gdzie tu wpakowac odpowieni warunek?
Sub liczy100()
Dim a As Single, suma As Single
a = InputBox("wpisz liczbe")
suma = suma + a
ilosc = ilosc + 1
MsgBox ("suma liczb wynosi" + Str(suma))
MsgBox ("ilosc wprowadzonych liczb" + Str(ilosc))
End Sub |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
