Access设计九九乘法表

2017-12-15 16:50:00
黄善超
原创
517

小时候,相信大家都背过九九乘法口诀。据说这个在春秋战国已经存在,源远流长。

顺序语句,条件语句和循环语句在任何编程语言中都离不开。所以很多入门示例都是要求做一个这样的口诀表。因为需要用循环语句。


在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


大九九乘法口诀表




小九九乘法口诀表


    分享