1、精品文档,仅供学习与交流,如有侵权请联系网站删除VB程序设计九九乘法表(作者:草原飞狼 2014年5月31日)声明:仅供学习与交流使用,高手请飘过,谢谢!所有代码都是个人亲自编写并调试成功。布局运行界面(1)运行界面(2)源代码如下:Private Sub Command1_Click()Rem 乘法表算法一Dim i, j As IntegerFor i = 1 To 9 For j = 1 To i expss = i & * & j & = & i * j Form1.Picture1.Print Tab(j - 1) * 8 + 1); 控制每个输出表达式的输出位置 Form1.Pic
2、ture1.Print expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command2_Click()Rem 乘法表算法二Dim i, j As IntegerFor i = 9 To 1 Step -1 For j = 1 To i expss = j & * & i & = & i * j Form1.Picture1.Print Tab(j - 1) * 10 + 1); 控制每个输出表达式的输出位置 Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNex
3、t iEnd SubPrivate Sub Command3_Click()Rem 清空Form1.Picture1.ClsEnd SubPrivate Sub Command4_Click()Rem 退出Dim int_msg As Integerint_msg = MsgBox(单击“是”退出程序,单击“否”返回程序!, vbYesNo + vbQuestion + vbDefaultButton1, 退出提示)If int_msg = vbYes Then Unload MeEnd IfEnd SubPrivate Sub Form_Load()Rem 初始化With Picture1 .FontName = 宋体 .FontSize = 12 .FontBold = True .ForeColor = &H80FF&End WithEnd Sub【精品文档】第 2 页