VB程序设计九九乘法表.docx

上传人:peixunshi0 文档编号:30929 上传时间:2025-07-08 格式:DOCX 页数:2 大小:11.13KB
下载 相关 举报
VB程序设计九九乘法表.docx_第1页
第1页 / 共2页
VB程序设计九九乘法表.docx_第2页
第2页 / 共2页
亲,该文档总共2页,全部预览完了,如果喜欢就下载吧!
资源描述

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 页

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > IT计算机 > 嵌入式开发

宁ICP备18001539号-1