ImageVerifierCode 换一换
格式:DOCX , 页数:2 ,大小:11.13KB ,
资源ID:30929      下载积分:5 金币
已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  
下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文(VB程序设计九九乘法表.docx)为本站会员(peixunshi0)主动上传,三一文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知三一文库(发送邮件至doc331@126.com或直接QQ联系客服),我们立即给予删除!

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

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 页

宁ICP备18001539号-1