精品文档,仅供学****与交流,如有侵权请联系网站删除
【精品文档】第 1 页
VB程序设计-九九乘法表
(作者:草原飞狼 2014年5月31日)
声明:仅供学****与交流使用,高手请飘过,谢谢!所有代码都是个人亲自编写并调试成功。
布局
运行界面(1)
运行界面(2)
源代码如下:
Private Sub Command1_Click()
Rem 乘法表算法一
Dim i, j As Integer
For i = 1 To 9
For j = 1 To i
expss = i & "*" & j & "=" & i * j
Tab((j - 1) * 8 + 1); '控制每个输出表达式的输出位置
expss;
Next j
Next i
End Sub
Private Sub Command2_Click()
Rem 乘法表算法二
Dim i, j As Integer
For i = 9 To 1 Step -1
For j = 1 To i
expss = j & "*" & i & "=" & i * j
Tab((j - 1) * 10 + 1); '控制每个输出表达式的输出位置
expss;
Next j
Next i
End Sub
Private Sub Command3_Click()
Rem 清空
End Sub
Private Sub Command4_Click()
Rem 退
VB程序设计-九九乘法表 来自淘豆网www.taodocs.com转载请标明出处.