VB程序学习代码记录20160713

选择月份

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

从10输出至1

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

从1+2+3+…….+50

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

上个程序用FOR语句（且原代码错误）

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