office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access設計九九乘法錶

2017-12-15 16:50:00
tmtony8
原創
6165

小時候,相信大傢都背過九九乘法口訣。據説這箇在春鞦戰國已經存在,源遠流長。

順序語句,條件語句和循環語句在任何編程語言中都離不開。所以很多入門示例都是要求做一箇這樣的口訣錶。因爲需要用循環語句。


在Access vba中,也可以非常方便創建 這樣的口訣錶,詳細源碼:

Private Sub 大九九_Click()
    Dim i, j As Integer
    For i = 1 To 9
        For j = 1 To 8
            
            
            Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & ";"
            
        Next j
         Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & Chr(13) & Chr(10)
    Next i
    
End Sub

Private Sub 小九九_Click()
    Dim i, j As Integer
    For i = 1 To 9
        For j = i To 8
            
            Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & ";"
        Next j
         Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & Chr(13) & Chr(10)
    Next i
End Sub


大九九乘法口訣錶




小九九乘法口訣錶


    分享