VB FOR～NEXTについて

質問

下記の変数の宣言で、For w As Integer = 1 To 100　のWにチェックが付、デバックできません、考えられる点はどんな事があるのでしょうか？
ご教授お願いします。

' Button4のClickイベントを処理します。
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' LineData用の変数です。
Dim cadLineData As New zwDrawCAD.LineData

' 線分の始点と終点を参照します。
Dim cadStartPoint As zwDrawCAD.DPoint = cadLineData.Start
Dim cadEndPoint As zwDrawCAD.DPoint = cadLineData.End

'とりあえず線のセンターポイントは（100,100）にしてます。
Const X As Integer = 0 'cadStartPoint.x = 100
Const y As Integer = 0 'cadStartPoint.x = 100

Dim sr As System.IO.StreamReader = Nothing

Try

Dim file As String = TextBox1.Text

'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))
Dim ansx As Double '計算された、xの座標
Dim ansy As Double '計算された、yの座標
Dim doc As String 'fileの1行
Dim x1 As String '１列目（X）
Dim y2 As String '２列目（ｙ）、
Dim x3 As String '３列目（X1）、
Dim y4 As String '４列目（ｙ２）
Dim angle As String '５列目（角度）、
Dim spare As String '６列目（予備）、
Dim item() As String '
Dim i As Integer
'１行ずつテキストを読み取る
doc = sr.ReadLine '1行読む

Do Until IsNothing(doc)
i += 1
item = doc.Split(",") 'カンマで区切る
x1 = item(0)
y2 = item(1)
x3 = item(2)
y4 = item(3)
angle = item(4)
spare = item(5)
f2.data(x1, y2, x3, y4, angle, spare)
f2.int(i)
TextBox2.Text &= item(0) & " " & item(1) & " " & item(2) & " " & item(4) & " " & item(5) & " " & vbNewLine
doc = sr.ReadLine '次の1行を読む
Loop

f2.println()
Catch ex As Exception
MessageBox.Show(ex.Message, "read")
Finally
If sr IsNot Nothing Then
sr.Close()
sr.Dispose()
End If

Dim len As Integer 'TextBox1に入力された線の長さ
Dim angle As Double 'TextBox2に入力された角度　単位は度
Dim ansx As Double '計算された、xの座標
Dim ansy As Double '計算された、yの座標

'変数の宣言
Dim w As Integer
Dim i As Integer
'初期化
w = 0
i = 0

For w As Integer = 1 To 100

len = CDbl("x1" / 2)
angle = CDbl(angle + 90)

ansx = X + len * (Math.Cos(angle / 180 * Math.PI)) '終点のx座標
ansy = y + len * (Math.Sin(angle / 180 * Math.PI)) '終点のy座標

cadStartPoint.x = ansx * -1
cadStartPoint.y = ansy * -1
cadEndPoint.x = ansx
cadEndPoint.y = ansy

w = w + 1

Next

End Try

回答No.1

kokorone

Ｆｏｒ　ループの数行前で、ｗを定義し、０で初期化しているのに、
Ｆｏｒ　文で、　Ａｓ　Integer で再定義していますが、これは、故意ですか？
また、Ｆｏｒループの中で、ｗ＝ｗ＋１とカウントアップしていますが、これも故意ですか？

Ｆｏｒ　ループの変数をｗ以外にしたら、どうなりますか？