如何用ExcelVBA写幸运7:找出100以内所有满足包含、整除7的数程序
保存在哪里呢?
Sub test()
Dim i As Integer
For i = 1 To 100
If i Mod 7 = 0 Or Left(Str(i), 1) = "7" Or Right(Str(i), 1) = "7" Then
MsgBox (i)
End If
Next i
End Sub
用VBA for和dowhile循环语句写找出100以内所有满足包含、整除7的数程序
您好,我是有问必答小助手,您的问题已经有小伙伴帮您解答,感谢您对有问必答的支持与关注!