Access設(shè)計(jì)九九乘法表

小時(shí)候，相信大家都背過(guò)九九乘法口訣。據(jù)說(shuō)這個(gè)在春秋戰(zhàn)國(guó)已經(jīng)存在，源遠(yuǎn)流長(zhǎng)。

順序語(yǔ)句，條件語(yǔ)句和循環(huán)語(yǔ)句在任何編程語(yǔ)言中都離不開(kāi)。所以很多入門(mén)示例都是要求做一個(gè)這樣的口訣表。因?yàn)樾枰醚h(huán)語(yǔ)句。

在Access vba中，也可以非常方便創(chuàng)建 這樣的口訣表，詳細(xì)源碼：

Private Sub 大九九_(tái)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 小九九_(tái)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

大九九乘法口訣表

小九九乘法口訣表