VB程序学习代码记录20160713

Private Sub Form_Load()
Dim i%
For i = 1 To 12
List1.AddItem i & "月"
Next i
End Sub

Private Sub Form_Click()
Dim i%
For i = 10 To 1 Step -1
Print i
Next i
End Sub

Private Sub Form_Click()
Dim Myctl As Control
For Each Myctl In Me.Controls
Print Myctl.Name
Next Myctl
End Sub

Private Sub Form_Click()
Dim i%, mySum%
Do While i <= 50     ‘原代码为：Do While i < 50’
mySum = mySum + i
i = i + 1
Loop
Print mySum
End Sub

Private Sub Form_Click()
Dim i%, mySum%
mySum = 0
For i = 0 To 50 Step 1
mySum = mySum + i
Next i
Print mySum
End Sub