ILS Einsendeaufgabe VBDN02E (Note: 1)

1. Betrachten Sie bitte folgende Prozedur:
Was können Sie tun, wenn Sie obenstehenden Code schneller ablaufen lassen
wollen?
10 Pkt.
2. Betrachten Sie folgende Ereignisprozedur:
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Label1.BackColor = Color.Blue
Application.DoEvents()
Label1.Top = 0
Application.DoEvents()
Label1.Left = 0
Application.DoEvents()
Label1.Height = 50
Application.DoEvents()
Label1.Width = 200
Application.DoEvents()
Label1.Font = New Font("Arial", 28, FontStyle.Italic)
Application.DoEvents()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = 1
Do
Label1.Text = Label1.Text + 2
If Label1.Text > 7 Then
Label1.Text = Label1.Text + 2
Else
Label1.Text = Label1.Text + 4
End If
Label1.Text = Label1.Text – 1
Loop While Label1.Text < 7
End Sub