VB程序学习代码记录20160713

选择月份

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

从10输出至1

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

列出窗体上所有控件名称

Private Sub Form_Click()    Dim Myctl As Control    For Each Myctl In Me.Controls        Print Myctl.Name    Next MyctlEnd 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 mySumEnd Sub

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

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