1-21、用语句FOR...NEXT制作九九乘法表 已有 99051 人学过 手机观看
APP扫描二维码打开
手机使用APP
学习更轻松
71 条评论 按热度排序 按时间排序 /350
遵守中华人民共和国的各项道德法规,
承担因您的行为而导致的法律责任,
本站有权保留或删除有争议评论。
参与本评论即表明您已经阅读并接受
上述条款。
游客 展开
老师可以将第二个next的9改成a,这样可以减少空的循环,去掉判断。 Dim x!, y!, i! For x = 1 To 9 For i = 1 To x y = i * x
2016年12月22日 09:35
5 回复
T-mfok3r1kz 展开
Sub 九九乘法表() Dim a%, b% For a = 1 To 9 For b = 1 To a Sheet2.Cells(a, b) = b & "*" & a & "=" & a * b Next b Next a End Sub
2019年12月21日 23:20
3 回复
seeuswu 展开
Sub 制作九九乘法表() Dim a%, b% For a = 1 To 9 For b = 1 To 9 If Cells(a, b).Row >= Cells(a, b).Column Then Cells(a, b) = b & "×" & a & "=" & b * a End If Next Next End Sub
2020年01月30日 15:15
1 回复
久久的歌 展开
还可以把"a&"*"&b&"="a*b改为"b&"*"&a&"="a*b更合我们的九九表习惯。
2017年06月13日 15:42
1 回复
mlt51zxw 展开
Sub aa() Dim i%, j% For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i & " X " & j & " = " & i * j If i = j Then Exit For Next Next End Sub 我的是这样写的
2021年04月27日 19:21
0 回复
WXmvgvkrywe 展开
Sub 九九乘法表2() Dim a!, b! For a = 1 To 9 For b = 1 To 9 Sheet4.Cells(a, b) = b & "×" & a & "=" & a * b Next Next End Sub
2021年01月20日 09:07
0 回复
我们的成功之路 更多 换一换
会员名:u26****257
在学校中总是有时老是吊儿郎当,以为出来靠多学软件就能就业,才发现是太天真、
会员名:WXv****eah
因为自身水平有限,只有初中学历的我,沉重的家庭负担很早就辍学来到广东这片打工热土。从一线的操作员工开始接触到数控,初期都是靠简单重复的机械劳动来赚取薪酬
会员名:李****宇
我是一名工业设计师,现在深圳工作,曾经在北京、上海、天津学习生活过,我要自学网始终伴随着我的成长步伐,随时需要随时学习,真心希望能有更好的教学视频和优秀老师加入其中
会员名:yj****23
2007年中专毕业本来所学的专业为机械专业,那时候刚毕业,没什么经验,苦苦找了几个月工作都无法找到专业对口的,对本专业已经没什么希望,无奈之下先随便找了份不加班的工作,找了家短期培训机构
会员名:丶旅****路上
我是19年7月开始学习的,先看漓老师的PhotoshopCC视频教程,感觉自学网老师讲的非常好,一步一步的学习,现在基本功能能使用了,非常感谢这个网站