CODEING:
Public Class Form1
Dim i As Integer = 0
Dim k As Integer = 1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
While i <= 100
If k <= 100 Then
Label2.Text = Label2.Text & " " & i & " " & k
Else
Label2.Text = Label2.Text & " " & i
End If
i = i + k
k = i + k
End While
End Sub
End Class
Dim i As Integer = 0
Dim k As Integer = 1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
While i <= 100
If k <= 100 Then
Label2.Text = Label2.Text & " " & i & " " & k
Else
Label2.Text = Label2.Text & " " & i
End If
i = i + k
k = i + k
End While
End Sub
End Class
Comments
Post a Comment