Public Class
Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
a()
Call
b()
Call
c()
End Sub
Sub a()
Dim x,
g As String
g = "Budidarma"
For i = 1 To Len(g)
x = Microsoft.VisualBasic.Left(g,
i)
TextBox1.Text = x & vbCrLf
& TextBox1.Text
Next
End Sub
Sub b()
Dim x,
g As String
g = "Budidarma"
For i =
1 To Len(g) Step
+1
x = Microsoft.VisualBasic.Mid(g, 1, i)
TextBox2.Text = TextBox2.Text &
x & vbCrLf
Next
End Sub
Sub c()
Dim x,
g As String
g = "12345"
For i =
1 To Len(g) Step
+1
x = Microsoft.VisualBasic.Mid(g, 1,
i)
TextBox3.Text = TextBox3.Text &
i & x & vbCrLf
Next
End Sub
Sub d()
For i =
1 To 5
TextBox3.Text = TextBox3.Text &
vbCrLf & i
For
s = 1 To i
TextBox3.Text = TextBox3.Text
& s
Next
Next
End Sub
End Class
All 2021 Games to Play in 2021 - Wooricasinos.info
BalasHapusThere are 스포츠분석사이트 over 6,500 different games to play at the 배당흐름 online 커뮤니티 사이트 casino. With each 네이버 룰렛 round of tournaments taking place, 999betasia we cover the latest games and tournaments.