循环函数的应用

时　间:2013-04-13 19:49:05
作　者:在水一方   ID：20576  城市：沈阳
摘　要:利用for...next函数做的“乘法口诀”和“英文字母”课件，供初学者参考
正　文:

点击下载此附件
Private Sub 乘法口诀_Click()
    Dim I, J As Long
    Dim A, B, C As String
    For I = 1 To 9          '1到9的数字
        A = I & ": "          '用数字做序号，循环时用来将表达式复位。不需要序号可以设为 “A = Null”
        For J = 1 To I               '计算乘法表达式数量，数字是3就有3个表达式
            B = J & "×" & I & "＝" & J * I        '显示乘法表达式，比如“1×3＝3”
            A = A & B & " "             '将表达式连成行，以空格相隔。比如“1×3＝3 2×3＝6 3×3＝9”
        Next J            '下一个表达式
        C = C & A & Chr(13) & Chr(10) & Chr(13) & Chr(10)       '连成一行的表达式换行
    Next I                    '下一个数字
    Me.Text1 = C & "在水一方 QQ：1206198663"
    ' MsgBox Me.Text1, , "乘法口诀"         '运行模块，输出结果
End Sub

Private Sub 英文字母_Click()
    Dim II, JJ As Long
    Dim AA, BB, CC, DD, EE As String
    For II = 65 To 90                            '对应“A-Z”
        JJ = II + 32                             '对应“a-z”
        AA = Chr(II)                             '大写字母
        BB = Chr(JJ)                             '小写字母
        CC = CC & " " & AA                       '大写字母字符串
        DD = DD & " " & BB                       '小写字母字符串
        EE = EE & " " & AA & BB                  '大小写字母混合字符串
    Next II
    Me.Text1 = "大写英文字母：" & CC & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
               "小写英文字母：" & DD & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
               "混合英文字母：" & EE & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
               "并排英文字母：" & CC & Chr(13) & Chr(10) & "             " & _
                                  DD & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
               "在水一方 QQ：1206198663"
    ' MsgBox Me.Text1, , "英文字母"                 '运行模块，输出结果
End Sub