99乘法表实现 - 工控人家园

工控人家园 触摸屏技术论坛 99乘法表实现

dalao123

qq群542424997

级别: 论坛先锋

发送短信
加为好友
QQ联系

精华主题: 0
发帖数量: 1032 个
工控威望: 1203 点
下载积分: 12103 分
在线时间: 704(小时)
注册时间: 2011-05-29
最后登录: 2026-04-11
查看dalao123的主题 / 回贴

楼主发表于: 29天前

只看楼主 | 小中大

图片：

乘法表打印实现如下

Dim se As String
        Dim j As Integer
        Dim i As Integer
        For i = 1 To 9

            ' TextBox3.Text &= Space((i - 1) * 9)
            For j = 1 To 9
                se = i & " *" & j & "=" & i * j
                TextBox3.Text &= se & Space(8 - Len(se))
            Next j
            TextBox3.Text &= vbCrLf

        Next i

附件：