找出50以内的能被3整除的数,并写入单元格

发布时间:2019年8月28日         浏览次数:74次

源代码:

Private Sub CommandButton1_Click()  '按钮控件

hang = 1 '行起始赋值 =1

'50以内能被3整除的数,并写入单元格

For i = 1 To 50 Step 1 'for 循环,步距为1

If i Mod 3 = 0 Then '判断 i 除以3 余数如果是0,则执行如下语句

Cells(hang, "a") = i '写入单元格

Cells(hang, "b") = "除以3等于"  '写入单元格

Cells(hang, "c") = i / 3  '写入单元格

hang = hang + 1 '循环自动加一,并累加

End If '结束if判断

Next 'for循环的对应

End Sub '按钮控件 对应

源文件:

点击下载文件:50以内能被3整除的数并写入a列单元格.rar