Option Compare Database Option Explicit Oefening 1 Public Sub Letters() Dim strTekst As String Dim intLengte As Integer Dim strKarakter As String Dim strNieuweTekst As String Dim intTeller As Integer strNieuweTekst = "" strTekst = InputBox("geef een tekst in", "invoer") intLengte = Len(strTekst) For intTeller = 1 To intLengte strKarakter = Mid(strTekst, intTeller, 1) If strKarakter = "o" Then strKarakter = "s" + strKarakter + "s" strNieuweTekst = strNieuweTekst + strKarakter Else If strKarakter = "a" Then strKarakter = "s" + strKarakter + "s" Else strKarakter = strKarakter End If strNieuweTekst = strNieuweTekst + strKarakter End If Next MsgBox strNieuweTekst, vbInformation, "uitvoer" End Sub
Oefening 2 Public Sub Datum() Dim strDag As String Dim intDag As Integer Dim dteDatum As Date Dim intKwartaal As Integer dteDatum = InputBox("geef een datum in", "invoer") intDag = Weekday(dteDatum) strDag = WeekdayName(intDag, False, vbSunday) Select Case True Case Month(dteDatum) = 1 To 3 intKwartaal = 1 Case Month(dteDatum) = 4 To 6 intKwartaal = 2 Case Month(dteDatum) = 7 To 9 intKwartaal = 3 Case Month(dteDatum) = 10 To 12 intKwartaal = 4 End Select MsgBox "De dag is: " & strDag & " en het kwartaal is: " & intKwartaal, vbExclamation, "uitvoer" End Sub