. Do While Loop, , x ,
.
Private Sub CommandButton1_Click()
'.
'y=sin(3*x);
' [1; 3];
' h=0.2;
':
' ;
Dim x, y, xp, xk, h As Single
Dim k As Integer
xp = CSng(TextBox1.Text)
xk = CSng(TextBox2.Text)
h = CSng(TextBox3.Text)
x = xp
Do While x <= xk + h / 2
y = Sin(3 * x)
TextBox5.Text = TextBox5.Text + "x=" + _
Format(x, "0000.00") + " y=" + Format(y, "0000.00") + vbCr
x = x + h
Loop
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
Private Sub CommandButton3_Click()
End
End Sub
. Do Loop While, , x ,
.
Private Sub DoLoopWhile()
Dim x, y, xp, xk, h As Single
Dim k As Integer
xp = 1
xk = 3
h = 0.2
x = xp
Do
y = Sin(3 * x)
MsgBox "x=" & Format(x, "00.00") & " y=" & _
Format(y, "000.000")
x = x + h
Loop While x <= xk + h / 2
End Sub
. Do Until Loop, , x ,
.
Private Sub DoUntilLoop()
Dim x, y, xp, xk, h As Single
Dim k As Integer
xp = 1
xk = 3
h = 0.2
x = xp
Do Until x > xk + h / 2
y = Sin(3 * x)
MsgBox "x=" & Format(x, "00.00") & " y=" & _
Format(y, "000.000")
x = x + h
Loop
End Sub
. Do Until Loop, , x ,
.
Private Sub DoLoopUntil()
Dim x, y, xp, xk, h As Single
Dim k As Integer
xp = 1
xk = 3
h = 0.2
x = xp
Do
y = Sin(3 * x)
MsgBox "x=" & Format(x, "00.00") & " y=" & _
Format(y, "000.000")
x = x + h
Loop Until x > xk + h / 2
End Sub
11.12. For Each
For Each :
|
|
For Each <> In <>
< 1>
[ Exit For ]
< 2>
Next [< > ]
<> - Variant, ᒺ VBA;
<> - ᒺ, ᒺ VBA , , , .
For Each ᒺ Variant. ᒺ. For Each , . <> , . <> .
1. ?
2. . .
3. , .
4. If.
5. Select Case.
6. For Next.
7. Do Loop.
8. For Each.