CHANVATE.COM

   

วิธีที่ 1
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer
For I = 1 To 5
TextBox1.Text = TextBox1.Text & I
Next
End Sub

วิธีที่ 2
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do While I <> 6
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop
End Sub

 

วิธีที่ 3
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop While I < 6
End Sub

 

วิธีที่ 4
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do While I < 6
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop
End Sub

 

วิธีที่ 5
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do While I < 5
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop
End Sub

 

วิธีที่ 6
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop While I < 5
End Sub

วิธีที่ 7
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do Until I = 5
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop
End Sub

 

วิธีที่ 8
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop Until I = 5
End Sub

 

วิธีที่ 9
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop Until I > 4
End Sub

 

วิธีที่ 10

Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do Until I > 4
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop
End Sub

วิธีที่ 11
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do Until I >= 5
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop
End Sub

 

วิธีที่ 12
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 0
Do
I = I + 1
TextBox1.Text = TextBox1.Text & I
Loop Until I >= 5
End Sub

 

วิธีที่ 13
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do Until I = 6
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop
End Sub

 

วิธีที่ 14
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop Until I = 6
End Sub

 

วิธีที่ 15
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do Until I >= 6
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop
End Sub

 

วิธีที่ 16
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop Until I >= 6
End Sub

 

วิธีที่ 17
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop Until I > 5
End Sub

วิธีที่ 18
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = 1
Do Until I > 5
TextBox1.Text = TextBox1.Text & I
I = I + 1
Loop
End Sub

 

วิธีที่ 19

Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "12345"
End Sub