в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:53:59Z

1 версия

Новая страница

==Calculated step==

<source lang="vbnet">public class Test
public Shared Sub Main
For x As Single = 1 To 2 Step 1 / 7
Console.WriteLine(x)
Next x
End Sub
End class</source>
<pre class=codeResult>1
1.142857
1.285714
1.428572
1.571429
1.714286
1.857143</pre>

==Calculating compound interest.==

<source lang="vbnet">Module Tester
Sub Main()
Dim amount, principal As Decimal
Dim rate As Double
Dim year As Integer
Dim output As String
principal = 1000
rate = 0.05
output = "Year" & vbTab & "Amount on deposit" & vbCrLf
For year = 1 To 10
amount = principal * (1 + rate) ^ year
output &= year & vbTab & _
String.Format("{0:C}", amount) & vbCrLf
Next
Console.WriteLine(output)
End Sub
End Module</source>
<pre class=codeResult>Year Amount on deposit
1 $1,050.00
2 $1,102.50
3 $1,157.63
4 $1,215.51
5 $1,276.28
6 $1,340.10
7 $1,407.10
8 $1,477.46
9 $1,551.33
10 $1,628.89</pre>

==Float step==

<source lang="vbnet">public class Test
public Shared Sub Main
For x As Single = 1 To 3 Step 0.5
Console.WriteLine(x.ToString("0.0"))
Next x
End Sub
End class</source>
<pre class=codeResult>1.0
1.5
2.0
2.5
3.0</pre>

==For loop with float point control number==

<source lang="vbnet">Option Strict On
Imports System
Module Module1
Sub Main( )
Dim loopCounter As Single
For loopCounter = 0.5 To 9
Console.WriteLine("loopCounter: {0}", loopCounter)
Next
End Sub "Main
End Module</source>
<pre class=codeResult>loopCounter: 0.5
loopCounter: 1.5
loopCounter: 2.5
loopCounter: 3.5
loopCounter: 4.5
loopCounter: 5.5
loopCounter: 6.5
loopCounter: 7.5
loopCounter: 8.5</pre>

==For To Next Loop==

<source lang="vbnet">Option Strict On
Imports System
Module Module1
Sub Main( )
Dim loopCounter As Integer
For loopCounter = 0 To 9
Console.WriteLine("loopCounter: {0}", loopCounter)
Next
End Sub
End Module</source>
<pre class=codeResult>loopCounter: 0
loopCounter: 1
loopCounter: 2
loopCounter: 3
loopCounter: 4
loopCounter: 5
loopCounter: 6
loopCounter: 7
loopCounter: 8
loopCounter: 9</pre>

==Nested For Loop==

<source lang="vbnet">Option Strict On
Imports System
Module Module1
Sub Main( )
Dim outer As Integer
Dim inner As Integer
For outer = 3 To 6
For inner = 10 To 12
Console.WriteLine("{0} * {1} = {2}", _
outer, inner, outer * inner)
Next inner, outer
End Sub "Main
End Module</source>
<pre class=codeResult>3 * 10 = 30
3 * 11 = 33
3 * 12 = 36
4 * 10 = 40
4 * 11 = 44
4 * 12 = 48
5 * 10 = 50
5 * 11 = 55
5 * 12 = 60
6 * 10 = 60
6 * 11 = 66
6 * 12 = 72</pre>

==Set For Loop float Step==

<source lang="vbnet">Option Strict On
Imports System
Module Module1
Sub Main( )
Dim loopCounter As Single
For loopCounter = 0.5 To 9 Step 0.5
Console.WriteLine("loopCounter: {0}", loopCounter)
Next
End Sub "Main
End Module</source>
<pre class=codeResult>loopCounter: 0.5
loopCounter: 1
loopCounter: 1.5
loopCounter: 2
loopCounter: 2.5
loopCounter: 3
loopCounter: 3.5
loopCounter: 4
loopCounter: 4.5
loopCounter: 5
loopCounter: 5.5
loopCounter: 6
loopCounter: 6.5
loopCounter: 7
loopCounter: 7.5
loopCounter: 8
loopCounter: 8.5
loopCounter: 9</pre>

==Using For/Next structure to demonstrate summation.==

<source lang="vbnet">Imports System.Windows.Forms
Module Tester
Sub Main()
Dim sum = 0, number As Integer
" add even numbers from 2 to 100
For number = 2 To 100 Step 2
sum += number
Next
Console.WriteLine("The sum is " & sum & "Sum even integers from 2 to 100")
End Sub
End Module</source>
<pre class=codeResult>The sum is 2550Sum even integers from 2 to 100</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Statements/For - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия