Hallo es geht darum das ich eine wichtige Prüfung über vba in access morgen machen werde. Mein Problem ist das ich dieses Programmiercodes lesen und dann die jeweiligen Schritte in der Tabelle aufschreiben nicht ganz verstehe. Ich benötige dringend eure Hilfe. Danke im Voraus. Hier das Beispiel:
In das Feld txta wird nach unten angeführten Beispielen eingegeben. Wie sieht die Ausgabe nach Klick auf btx im Feld txtb aus? Betrachten sie jedes Beispiel isoliert, und nehmen sie an, dass das Formular vor jedem Beispiel neu geladen wurde. Schreiben sie die Zeichen in die dafür vorgesehenen Ausgabefelder. Im Falle eines Leerzeichens lassen sie das Kästchen frei.
a) 967
b) trda
c) 7e 4b (Leerzeichen zwischen e und 4)
d) t!2-
e) User gibt nichts ein und klickt sofort auf btx
f) User drückt STRG + RETURN im Feld txta und klickt anschließend auf btx
a
b
c
d
e
f
Option Compare Database
Dim abc() As String
Private Sub btx_Click()
On Error GoTo sp
Dim i, j, k As Long
Dim h, s As String
k = Len(txta)
ReDim abc(1 To k) As String
For i = 1 To k
abc(i) = Mid(txta, i, 1)
Next i
For i = 1 To k
For j = 1 To k - 1
If abc(j + 1) < abc(j) Then
h = abc(j)
abc(j) = abc(j + 1)
abc(j + 1) = h
End If
Next j
Next i
s = ""
For i = 1 To k
s = s + abc(i)
Next i
txtb = s
Exit Sub
sp:
txtb = "abc"
End Sub
|