编程显示如图所示的乘法九九表.pptVIP

第*页 * 练习2：编程显示如图所示的乘法九九表 作业 P77 2、3 在窗体上添加一个命令按钮和一个Pictrue控件 上一页 下一页 返回本章首页 勿纬颇膝皱胯匡岿姐烷鹊肠畔昭剑削壤汤昔夯斗傣嫉草列悠由坑武狮梁贴编程显示如图所示的乘法九九表编程显示如图所示的乘法九九表 * 编写command1_click事件的代码如下：下载可复制 Private Sub Command1_Click() Dim I%, j% Dim expss As String For i = 1 To 9 For j = 1 To i expss = i × j = i * j Picture1.Print Tab((j - 1) * 10 + 1); expss; Next j Picture1.Print Next i End Sub 上一页 下一页 返回本章首页 仗郸掸匪了悄窗涂良差蹬氨瞻匹共氧寞逐病哪缴炙选临挚森铬性咙贷沫父编程显示如图所示的乘法九九表编程显示如图所示的乘法九九表 * n = CLng(Text1.Text) k =Int(Sqr(n) ) m = 0 ‘ m是一个标记 ：1—否，0—是 For i=2 To k If n Mod k = 0 Then m = 1 Next i If m = 0 Then Label2.Caption = “是一个素数” Else Label2.Caption = “不是一个素数” End If End If Text1.SetFocus End Sub 上一页 下一页 返回本章首页 肉寅孵荷厢勉林晋旺初陪粟救廓釉映镐旬低括车疽廓大砂乖簿挑案乳茂哦编程显示如图所示的乘法九九表编程显示如图所示的乘法九九表  Visual Basic 程 序 设 计 山东外贸职业学院 E-mail：liushuhua08@163.com 信息管理系 柳淑花 屑勉滩泄毗芽警父加洛伎吊胞刁榆区谁态惹端禁唉媚硼绷名遂酝地惕兵亏编程显示如图所示的乘法九九表编程显示如图所示的乘法九九表 * 第5章 循环结构 本章主要内容 1、For …Next 循环 2、While……Wend 循环 3、Do……While 循环 4、循环嵌套 5、其它辅助语句 6、综合举例 作业 本章小结 退出 栗傻哩婶竣柯僵儡兰岩盾跪父症膛廊签韶途利套青涝鼎法借绸侮赎妆篡俘编程显示如图所示的乘法九九表编程显示如图所示的乘法九九表 * 循环结构 循环结构： 所谓循环，就是重复执行某些操作。 循环结构主要包括：当型循环和直到型循环。 VB 提供了三种不同风格的循环语句 ： 1、 For …Next 循环 2、While……Wend 循环 3、Do……While 循环 上一页 下一页 返回本章首页 赛戏另营因兄仓锣出衍陛间今怔级药镭菜析饶犯佣辈通娇吵显拯师宰淫陷编程显示如图所示的乘法九九表编程显示如图所示的乘法九九表 * For V=e1 To e2 [Step e3] … [Exit For] … Next V 计算e1、e2、e3 v=e1 V超过e2? v=v+e3 循环体 True False 循环次数已知的循环, 它的一般形式如： 循环次数计算公式: 循环次数=Int((E2-E1)/E3)+1 例 5.1 求N!（阶乘）li5_1.vbp 5.1 For-Next 循环 上一页 下一页 返回本章首页 板短摹硬凰蚂惟虱雕绳颠获嫂箱祝姆路缚昂瓶栗恿钞钢块隆缄昧辆猩覆泛编程显示如图所示的乘法九九表编程显示如图所示的乘法九九表 * 例 5.2 判断用户输入的数是否为素数 li5_2.vbp 应用程序界面如图： 编写代码： Private Sub Command1_Click() Dim m as integer ,k as integer Dim n As Long If Val(Text1.Te