. 1 2 .
2 .
. , , : , .
Sub CommandButton1_Click()
UserForm1.TextBox1.BackColor = RGB(0, 255, 0)
For i = 10 To 70 Step 10
UserForm1.TextBox1.Top = 10 + i
UserForm1.TextBox1.Left = 10 + i
If Application.Wait(Now + TimeValue("0:00:1")) Then
End If
Next
End Sub
Now , TimeValue ( 1 ), Wait (Application) .
3. , . 10.3.
. 10.3
, , b, z TextBox1, TextBox2, z Label2, UserForm1:
Sub CommandButton1_Click()
Dim x As Single, y As Single
Dim a As Single, b As Single, z As Single
x = UserForm1.TextBox1.Text
y = Format(x, "####.##")
a = (x + y) ^ 2: b = Sin(a) - Sin(b) ^ 3
UserForm1.TextBox2.Text = "a=" & a
UserForm1.TextBox3.Text = "b=" & b
UserForm1.Label2.Caption = "z = " & 5 * Sin(10) / 3