Sub program()
x = InputBox("Podaj liczbe studentów") * 1
If x < 0 Then MsgBox "podałeś złą liczbe "


End Sub






Sub program()
x = MsgBox("Czy jesteś kobietą? ", 4 + 32)
If x = 6 Then
MsgBox "Witam Panią"
Else
MsgBox "Witam Pana"

End If
End Sub






Sub program()
x = MsgBox("Czy jesteś kobietą? ", 3 + 32)
If x = 6 Then
MsgBox "Witam Panią"
ElseIf x = 7 Then MsgBox "Witam Pana"
Else
MsgBox "Witam Ktosia"

End If
End Sub






Sub program()
x = MsgBox("Jutro mam kolokwium. Czy mam się dalej uczyć? ", 2)
If x = 3 Then
MsgBox "Już więcej się nie nauczysz"
ElseIf x = 4 Then MsgBox "Ucz się, ucz, bo nauka to potęgi klucz"
Else
MsgBox "Są ważniejsze sprawy"

End If
End Sub









Sub program()
a = InputBox("Podaj parametry a") * 1
b = InputBox("Podaj parametry b") * 1
c = InputBox("Podaj parametry c") * 1

d = (b ^ 2) - (4 * a * c)
If d > 0 Then
x1 = (-b - Sqr(d)) / (2 * a)
x2 = (-b + Sqr(d)) / (2 * a)
MsgBox "x1= " & x1 & " x2= " & x2

ElseIf d = 0 Then
x = (-b) / (2 * a)
MsgBox "x= " & x
Else
MsgBox "Brak rozwiązań"

End If
End Sub







PĘTLE:


Sub Program()
n = InputBox("Podaj n ") * 1
s = 1
For i = 1 To n
s = s * i
Next i
MsgBox n & "!= " & s
End Sub






ZMIENNE TABLICOWE:


Sub Program()
Dim x(300)
n = InputBox("Podaj liczbe studentów") * 1
For i = 1 To n
x(i) = InputBox("Podaj nazwisko")
Next i
MsgBox x(3)

End Sub





WYŚWIETLANIE NAZWISK BEZ PRZERWY:


Sub Program()
Dim x(300)
n = InputBox("Podaj liczbe studentów") * 1
For i = 1 To n
x(i) = InputBox("Podaj nazwisko")
Next i
For i = 1 To n
lista = lista & x(i)
Next i
ThisDocument.Content = lista
End Sub




WYŚWIETLANIE NAZWISK JEDNO POD DRUGIM:


Sub Program()
Dim x(300)
n = InputBox("Podaj liczbe studentów") * 1
For i = 1 To n
x(i) = InputBox("Podaj nazwisko")
Next i
For i = 1 To n
lista = lista & x(i) & Chr(13)
Next i
ThisDocument.Content = lista
End Sub







WYŚWIETLANIE 15 SŁOWA W TEKŚCIE:


Sub Program()
MsgBox ThisDocument.Words(15)
End Sub






WYŚWIETLANIE POGRUBIONEGO I PODKREŚLONEGO 15 SŁOWA W TEKŚCIE:


Sub Program()
MsgBox ThisDocument.Words(15).Font.Bold = True
End Sub






POGRUBIANIE SZUKANEGO SŁOWA W TEKŚCIE:


Sub Program()
szukamy = InputBox("Podaj szukany wyraz ")
n = ThisDocument.Words.Count
For i = 1 To n
If Trim(ThisDocument.Words(i)) = szukamy Then
ThisDocument.Words(i).Font.Bold = True
End If
Next i

End Sub